1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

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

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

    Xenam Гость

    Репутация:
    0
    Парни помогите с задачей по 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.
    Но что то не правильно подскажите (она не работает)!
     
  2. Barmutik

    Barmutik Гость

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

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

    Код:
    T[k]:=1 / (x[k]+u[k]);
    Только конечно стоит проверять что бы сумма не была равна 0...
     
Загрузка...
Похожие Темы - Помогите отладить задание
  1. Tayrus
    Ответов:
    2
    Просмотров:
    31
  2. KanycTa
    Ответов:
    1
    Просмотров:
    50
  3. Samyrro
    Ответов:
    1
    Просмотров:
    56
  4. Tayrus
    Ответов:
    0
    Просмотров:
    49
  5. bronnn
    Ответов:
    0
    Просмотров:
    110
Статус темы:
Закрыта.

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