Примеры использования

Найти max из введенных чисел

begin

write('Введите целое число n (n>0): '); Результат работы программы: var n := ReadInteger;

assert(n>0);

write('Введите 1 число: '); var x := ReadReal;

var max := x;

for var i := 2 to n do begin

write('Введите ', i, ' число: '); x := ReadReal;

if max < x then max := x;

end;

writeln('Максимальное из введенных чисел: ', max); end.

Пример использования

var

a: real;

n: integer; begin

write('Введите a и n (n>0): '); readln(a,n);

assert(n>0); var x := a; var s := x;

for var i := 2 to n do begin

x *= a / i; s += x; end;

writeln('Сумма = ', s); end.

Пример использования

var a: real; begin

write('Введите a (0 < a < 1): '); readln(a);

assert((a>0) and (a<1));

var eps := 0.0001; var i := 1;

var s := 0.0; var y := -a; repeat

s += y / i; i += 1;

y *= -a;

until abs(y/i) < eps;

writeln('Сумма = ', s); End.