Дано действительное число x. Вычислить, НГПУ, информатика, контрольная

Фрагмент работы:

Дано действительное число x. Вычислить:

[image]

Решить двумя способами: с использованием цикла с параметрами и одного из двух других способов.

Программа с циклом for:

uses crt;

var x,s: real;

i,n: integer;

begin

clrscr;

s:= 1;

write(‘Vveite x ‘);

readln(x);

n:= 63;

for i:=1 to n do

begin

s:= s*(x-i)/(x-i-1);

end;

writeln;

writeln(‘s= ‘,s:5:3);

repeat until keypressed;

end.

Результат:

Vveite x 456

s= 1.161

Программа с циклом repeat … until.

uses crt;

var x,s: real;

i,n: integer;

begin

clrscr;

s:= 1;

write(‘Vveite x ‘);

readln(x);

n:= 63;

i:=1;

while (i