4_3_2 (1185054), страница 2

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

begin f1:= sin(z); end;

function f2(z:real):real;

begin f2:= cos(z); end;

procedure TForm1.Button1Click(Sender: TObject);

var a: array[1..5,1..7] of real;

rab1: array[1..7] of real;

rab2: array[1..5] of real;

i,j,kol1,kol2,kol3: integer;

sum1,sum2: real;

procedure P(x:array of real; c:real; f:fun; var sum:real; var kol:integer);

var k:integer;

begin

sum:=0; kol:=0;

for k:=0 to High(x) do if ( f(x[k])>c) then begin sum:=sum+x[k]; kol:=kol+1; end;

end;

begin

for i:=1 to 5 do

for j:=1 to 7 do a[i,j]:=StrToFloat( StringGrid1.Cells[j-1,i-1]);

for i:=1 to 5 do

begin

for j:=1 to 7 do rab1[j]:=a[i,j];

p(rab1,0.7,f1,sum1,kol1);

if(kol1 > 0) then

StringGrid2.Cells[0,i-1]:= FloatToStr(sum1)

else

StringGrid2.Cells[0,i-1]:= 'kol1=0';

end;

kol3:=0;

for j:=1 to 7 do

begin

for i:=1 to 5 do rab2[i]:=a[i,j];

p(rab2,0.6,f2,sum2,kol2);

if((sum2>0) and (kol2>0)) then kol3:=kol3 + 1;

end;

Edit1.Text:= IntToStr(kol3);

end;

procedure TForm1.Button2Click(Sender: TObject);

var i,j:integer;

begin

Edit1.Text:=' ';

for i:=1 to 5 do

for j:=1 to 7 do StringGrid1.Cells[j-1,i-1]:= ' ';

end;

procedure TForm1.Button3Click(Sender: TObject);

var i,j:integer;

begin

with StringGrid1do

begin

{запись данных последовательно в ячейки таблицы StringGrid1 (их 35)}

cells[0,0]:= ‘1,57’;

cells[1,0]:= ‘0’;

. . .

cells[6,4]:= ‘0’;

end;

end;

end.

Характеристики

Список файлов лабораторной работы