Помогите отладить задание по Делфи 7!

  • Автор темы Xenam
  • Дата начала
Статус
Закрыто для дальнейших ответов.
X

Xenam

Гость
#1
Парни помогите с задачей по Delphi7 :
Задание:Произведение обратных величин сумм 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.
Но что то не правильно подскажите (она не работает)!
 
B

Barmutik

Гость
#2
Ну я думаю всё неправильно работающее сосредоточилось в одной строчке:

Код:
T[k]:=(x[n]+u[n])/1;
Потому как кажтся вместо этого должно быть:

Код:
T[k]:=1 / (x[k]+u[k]);
Только конечно стоит проверять что бы сумма не была равна 0...
 
Статус
Закрыто для дальнейших ответов.