Результаты исследования студентов в проекте Циклы в Delphi
Материал из Wiki Mininuniver
Содержание
Авторы и участники проекта
и участники группы экологи
Тема исследования группы
Решение задач по математике
Проблемный вопрос (вопрос для исследования)
Как с помощью циклов можно решать математические задачи?
Цели исследования
- Изучить литературу по программированию
- 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.