Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.12.2010, 21:13   #1
arctica
 
Регистрация: 08.11.2010
Сообщений: 3
По умолчанию Delphi7. Сумма n слагаемых заданного вида, основные операторы цикла.

Доброго времени суток, друзья)
Возникла проблема со следующей задачей.

01.JPG
10001.JPG

Вот то, что есть:
Код:
program Pr;
var x, af, e, s, sE, sE10:real;
    n,i:integer;
begin
  writeln('vvedite x');
  readln(x);
  writeln('vvedite n');
  readln(n);
  writeln('vvedite e');
  readln(e);

  if n>0 then
    begin
    af:=1;
    s:=1;
    for i:=1 to (n-1) do
      begin
      af:=af * (x/i);
      s:=s + af;
      end;
    end
    else s:=0;

    sE:=0;
    i:=1;
    af:=1;
    if abs(af)>e then
      begin
      while abs(af)>e do
        begin
        sE:=sE+af;
        af:=af * (x/i);
        i:=i+1;
        end;
      end;

    i:=1;
    sE10:=0;
    af:=1;
    if abs(af)>e*0.1 then
      begin
      while abs(af)>e*0.1 do
        begin
        sE10:=sE10+af;
        af:=af * (x/i);
        i:=i+1;
        end;
      end;
end.
Неправильно считается переменная вида sE.
Помогите исправить и дополнить. Буду очень благодарна ^^
arctica вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Операторы цикла stud3nt Паскаль, Turbo Pascal, PascalABC.NET 0 26.06.2010 20:13
операторы цикла pilot76 Помощь студентам 4 10.09.2009 19:08
операторы цикла semennn Помощь студентам 5 19.05.2009 17:44
Операторы цикла Paul Oakenfold Паскаль, Turbo Pascal, PascalABC.NET 4 14.04.2009 19:28
Операторы цикла Paul Oakenfold Помощь студентам 10 23.03.2009 16:08