Результаты исследования студентов в проекте Циклы в Delphi — различия между версиями

Текущая версия на 11:27, 22 ноября 2011

Авторы и участники проекта

• Жиркова Надежда
• Гусанкина Регина

и участники группы математики

Тема исследования группы

Решение задач по математике

Проблемный вопрос (вопрос для исследования)

Как с помощью циклов можно решать математические задачи?

Цели исследования

1. Изучить литературу по программированию
2. Cоставить программы по реализации циклов
3. Проанализировать работу программ.

Результаты проведённого исследования

procedure TForm1.Button1Click(Sender: TObject);
Var a:array [1..5,1..5] of integer;
S1,S2,S3,i,j,k:integer;
 S4:real;
begin
S1:=0;
Edit1.text:='        ' ;
   For i:= 1 to 5 do
begin
   For j:= 1 to 5 do
begin

A[i,j]:=random(300-20)+20;
   Stringgrid1.cells[i-1,j-1]:=inttostr(A[i,j]);
   end;
   end;
        For i:= 1 to 5 do
begin
   For j:= 1 to 5 do
     begin
     if i=2 then S1:=S1+A[2,j];
     end;

end;
Edit1.Text:=Inttostr(S1);
          S2:=0;
                S3:=0;
                k:=0;
        For i:= 1 to 5 do
begin
   For j:= 1 to 5 do
     begin
     if j=5 then S2:=S2+A[i,5];

       Edit2.Text:=Inttostr(S2)
           end;
   end;

    For i:= 1 to 5 do
begin
   For j:= 1 to 5 do
     begin
     S3:=S3+A[i,j];
     k:=k+1;
    Edit3.Text:=Inttostr(S3);
  end;
  end;
     S4:=0;
  For i:= 1 to 5 do
begin
   For j:= 1 to 5 do
     begin
     S4:=S3/k;
    Edit4.Text:=Floattostr(S4);
     end;
     end;
  end;
end.

Вывод

Полезные ресурсы

Другие документы