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

Материал из Wiki Mininuniver
Перейти к навигацииПерейти к поиску
(→‎Проблемный вопрос (вопрос для исследования))
(→‎Результаты проведённого исследования)
Строка 16: Строка 16:
  
 
==Результаты проведённого исследования==
 
==Результаты проведённого исследования==
 +
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.
  
 
==Вывод==
 
==Вывод==

Версия 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.

Вывод

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

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

Источник — https://wiki.mininuniver.ru/index.php?title=Результаты_исследования_студентов_в_проекте_Циклы_в_Delphi&oldid=34651