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

Тема в разделе "Delphi - Базы данных", создана пользователем Xenam, 22 окт 2006.

Статус темы:
Закрыта.
  1. Xenam

    Xenam Гость

    Парни помогите с задачей по Delphi7 :
    Задание:Произведение обратных величин сумм Xk+Yk,k=1,2,3...,n.
    Решение:
    Код (Text):
    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.
    Но что то не правильно подскажите (она не работает)!
     
  2. Barmutik

    Barmutik Гость

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

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

    Код (Text):
    T[k]:=1 / (x[k]+u[k]);
    Только конечно стоит проверять что бы сумма не была равна 0...
     
Загрузка...
Похожие Темы - Помогите отладить задание
  1. limbra
    Ответов:
    3
    Просмотров:
    44
  2. NylevoiChelovek
    Ответов:
    4
    Просмотров:
    98
  3. Ruska132
    Ответов:
    34
    Просмотров:
    264
  4. gURaBA_N
    Ответов:
    7
    Просмотров:
    147
  5. uxbmw3w
    Ответов:
    0
    Просмотров:
    62
Статус темы:
Закрыта.

Поделиться этой страницей