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

  • ID: 00572 
  • 10 страниц
100 рубСкачать

антиплагиат в подарок

PR1.exe

PR1.pas

PR2.exe

PR2.pas

Z1 2.exe

Z1 2.pas

Z1.exe

Z1.pas

Z2.exe

Z2.pas

Z3.exe

Z3.pas

Z4.exe

Z4.pas

Z5.pas

Контрольная работа.docx

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

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

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

Программа с циклом 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