Pascal.циклы С Параметром

Тема в разделе "Pascal and Delphi", создана пользователем Smile1995, 30 ноя 2013.

  1. Smile1995

    Smile1995 New Member

    Регистрация:
    10 сен 2013
    Сообщения:
    0
    Симпатии:
    0
    помогите пожалуйста не могу понять где ошибка(
    при n=2
    должен выдавать значения t=0.16 u =0.41
    а выдает второе значение под первым номером и под вторым это же значение увеличенное вдвое

    Pascal

    t(Общий вид слагаемого суммы)
    s(Сумма)
    n(Кол-во слагаемых)

    Program Variant_7;
    var t,s,f:real;
    n,i:integer;
    begin
    Writeln('Vvod usxodnux dannux:');
    Write('n=');
    Readln(n);
    Writeln;
    Writeln('________');
    Writeln('i t');
    Writeln('________');
    t:=0;
    s:=0;
    f:=1.0/4.0;
    For i:= 1 to n do
    begin
    t:=1.0/(n*(n+1.0)*(n+2.0));
    s:=s+t;
    writeln(i:3, ' ', t:0:6);
    end;
    Writeln('________');
    Writeln;
    Writeln('f=',f:0:6);
    end.
     

    Вложения:

    • AgMaNAHw9zs.jpg
      AgMaNAHw9zs.jpg
      Размер файла:
      40,9 КБ
      Просмотров:
      30
  2. Senset

    Senset Well-Known Member

    Регистрация:
    11 сен 2006
    Сообщения:
    136
    Симпатии:
    0
    Полностью задание напиши, мне вот че-то непонятно что за f=....
    Ап! увидел задание, пардон)

    Код (Text):
    For i:= 1 to n do
    begin
    t:=1.0/(n*(n+1.0)*(n+2.0));
    s:=s+t;
    writeln(i:3, ' ', t:0:6);
    end;
    Заменить на:
    Код (Text):
    For i:= 1 to n do
    begin
    t:=1.0/(i*(i+1.0)*(i+2.0));
    s:=s+t;
    writeln(i:3, ' ', t:0:6);
    end;
    и в конце добавить вывод суммы:
    Код (Text):
    writeln('S=',s);
     
  3. Smile1995

    Smile1995 New Member

    Регистрация:
    10 сен 2013
    Сообщения:
    0
    Симпатии:
    0
    блин, большое спасибо, протупила :)
     
Загрузка...

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