X
Xenam
Парни помогите с задачей по Delphi7 :
Задание:Произведение обратных величин сумм Xk+Yk,k=1,2,3...,n.
Решение:
Но что то не правильно подскажите (она не работает)!
Задание:Произведение обратных величин сумм Xk+Yk,k=1,2,3...,n.
Решение:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
k,n:integer;
x,u,T:array[1..100] of real;
S:real;
begin
n:=StrToInt(edit1.Text);
for k:=1 to n do
begin
x[k]:=StrToFloat(StringGrid1.Cells[k,1]);
u[k]:=StrToFloat(StringGrid2.Cells[k,2]);
end;
for k:=1 to n do
T[k]:=(x[n]+u[n])/1;
end;
S:=1;
for k:=1 to n do
S:=S*T[k];
end;
edit2.text:=FloatToStr(S);
end.