Результаты исследования студентов в проекте Циклы в Delphi - История изменений

Рег8ина=Ъ: /* Результаты проведённого исследования */

2011-11-22T08:27:14Z

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

2011-11-22T08:23:25Z

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

2011-11-22T08:13:47Z

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

2011-11-22T08:11:56Z

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

2011-11-22T08:11:18Z

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

2011-11-22T08:09:57Z

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

2011-11-22T08:06:40Z

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

2011-11-22T07:57:15Z

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

2011-11-22T07:56:20Z

«Результаты исследования студентов в проекте Циклы с условием в Delphi» переименована в «[[Результаты исследования студентов в проекте Цик

2011-11-08T08:41:15Z

@@ Строка 17: / Строка 17: @@
 ==Результаты проведённого исследования==
   procedure TForm1.Button1Click(Sender: TObject);
-Var a:array [1..5,1..5] of integer;
+ Var a:array [1..5,1..5] of integer;
-S1,S2,S3,i,j,k:integer;
+ S1,S2,S3,i,j,k:integer;
    S4:real;
-begin
+ begin
-S1:=0;
+ S1:=0;
-Edit1.text:='        ' ;
+ Edit1.text:='        ' ;
      For i:= 1 to 5 do
-begin
+ begin
      For j:= 1 to 5 do
   begin
@@ Строка 33: / Строка 33: @@
      end;
           For i:= 1 to 5 do
-begin
+ begin
      For j:= 1 to 5 do
        begin
@@ Строка 39: / Строка 39: @@
        end;
-end;
+ end;
-Edit1.Text:=Inttostr(S1);
+ Edit1.Text:=Inttostr(S1);
             S2:=0;
                   S3:=0;
                   k:=0;
           For i:= 1 to 5 do
-begin
+ begin
      For j:= 1 to 5 do
        begin
@@ Строка 56: / Строка 56: @@
       For i:= 1 to 5 do
-begin
+ begin
      For j:= 1 to 5 do
        begin
@@ Строка 66: / Строка 66: @@
        S4:=0;
     For i:= 1 to 5 do
-begin
+ begin
      For j:= 1 to 5 do
        begin
@@ Строка 74: / Строка 74: @@
        end;
     end;
-end.
+ end.
 [[Изображение:Скриншот к циклы с параметром.JPG|400px]]

@@ Строка 75: / Строка 75: @@
     end;
 end.
 ==Вывод==

@@ Строка 12: / Строка 12: @@
 ==Цели исследования==
 #Изучить литературу по программированию
-#Cоставить программы по реализации циклов с условием
+#Cоставить программы по реализации циклов
 #Проанализировать работу программ.

@@ Строка 2: / Строка 2: @@
 *[[Участник:Надежда Жиркова|Жиркова Надежда]]
 *[[Участник:Рег8ина=Ъ|Гусанкина Регина]]
-и участники группы экологи
+и участники группы математики
 ==Тема исследования группы==

@@ Строка 5: / Строка 5: @@
 ==Тема исследования группы==
-Решение задач по экологии
+Решение задач по математике
 == Проблемный вопрос (вопрос для исследования)==

← Предыдущая		Версия 08:06, 22 ноября 2011
Строка 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.

	==Вывод==		==Вывод==

@@ Строка 8: / Строка 8: @@
 == Проблемный вопрос (вопрос для исследования)==
-Как с помощью циклов можно решать экологические задачи?
+Как с помощью циклов можно решать математические задачи?
 ==Цели исследования==

← Предыдущая	Версия 07:56, 22 ноября 2011
(нет различий)