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

Версия 11:06, 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.

Вывод

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

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