Составить программу для вычисления значений переменной y при заданном значении n.(использовать три различных оператора цикла) y=[latex] \frac{1}{1} + \frac{1}{2} +...+ \frac{1}{n} [/latex]
Составить программу для вычисления значений переменной y при заданном значении n.(использовать три различных оператора цикла)
y=[latex] \frac{1}{1} + \frac{1}{2} +...+ \frac{1}{n} [/latex]
Ответ(ы) на вопрос:
Гость
Var
y:real;
n,i:integer;
Begin
Write('n = ');ReadLn(n);
{Цикл с параметром:}
y:=0;
For n:= 1 to n do
y:=y+(1/n);
WriteLn('y = ',y);
{Цикл с постусловием:}
y:=0;
i:=1;
Repeat
y:=y+(1/i);
i:=i+1
Until i>n;
WriteLn('y = ',y);
{Цикс с предусловием:}
y:=0;
i:=1;
While i<=n do
Begin
y:=y+(1/i);
i:=i+1
End;
WriteLn('y = ',y)
End.
Не нашли ответ?
Похожие вопросы