Результаты исследования студентов в проекте Циклы в Delphi — различия между версиями
Материал из НГПУ им. К.Минина
Рег8ина=Ъ (обсуждение | вклад) (→Тема исследования группы) |
Рег8ина=Ъ (обсуждение | вклад) (→Авторы и участники проекта) |
||
| Строка 2: | Строка 2: | ||
*[[Участник:Надежда Жиркова|Жиркова Надежда]] | *[[Участник:Надежда Жиркова|Жиркова Надежда]] | ||
*[[Участник:Рег8ина=Ъ|Гусанкина Регина]] | *[[Участник:Рег8ина=Ъ|Гусанкина Регина]] | ||
| − | и участники группы | + | и участники группы математики |
==Тема исследования группы== | ==Тема исследования группы== | ||
Версия 11:11, 22 ноября 2011
Содержание
Авторы и участники проекта
и участники группы математики
Тема исследования группы
Решение задач по математике
Проблемный вопрос (вопрос для исследования)
Как с помощью циклов можно решать математические задачи?
Цели исследования
- Изучить литературу по программированию
- 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.
