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

Материал из Wiki Mininuniver
Перейти к навигацииПерейти к поиску
(Новая: {SUBST:Шаблон:Вики-статья студента}})
 
(→‎Результаты проведённого исследования)
 
(не показано 16 промежуточных версий этого же участника)
Строка 1: Строка 1:
−
{SUBST:Шаблон:Вики-статья студента}}
+
==Авторы и участники проекта==
 +
*[[Участник:Надежда Жиркова|Жиркова Надежда]]
 +
*[[Участник:Рег8ина=Ъ|Гусанкина Регина]]
 +
и участники группы математики
 +
 
 +
==Тема исследования группы==
 +
Решение задач по математике
 +
 
 +
== Проблемный вопрос (вопрос для исследования)==
 +
Как с помощью циклов можно решать математические задачи?
 +
 
 +
==Цели исследования==
 +
#Изучить литературу по программированию
 +
#Cоставить программы по реализации циклов
 +
#Проанализировать работу программ.
 +
 
 +
==Результаты проведённого исследования==
 +
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.
 +
[[Изображение:Скриншот к циклы с параметром.JPG|400px]]
 +
 
 +
==Вывод==
 +
 
 +
==Полезные ресурсы==
 +
 
 +
== Другие документы ==
 +
 
 +
 
 +
[[Категория:Проекты]]

Текущая версия на 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.

Скриншот к циклы с параметром.JPG

Вывод

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

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

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