Class05:
Оператор цикла While и Repeat
1. Определить значение переменной s после выполнения операторов
а) s:=0; i:=0;
while i < 5 do i:=i+1; s:=s+1/i;
b) s:=0; i:=1;
while i > 1 do begin s:=s+1/i; i:=i-1; end;
c) s:=0; i:=1;
repeat s:=s+1/i; i:=i-1 until i < =1;
2. Написать программу для вычисления
a) y = (2n-1)!! = 1 * 3 * 5 * ... * (2n-1), n > 0
b) u - первый неотрицательный член последовательности cos(ctg n), n=1,2,3,...
c) c точностью eps>0 (точность достигнута, если очередное слагаемое
по модулю меньше eps - все последующие слагаемые можно не учитывать)
y = exp(x) = 1 + x/1! + x^2/2! + x^3/3! + ... + x^n/n! + ...
d) y = sin1 + sin1.1 + sin1.2 + ... + sin2
e) k - количество цифр в десятичной записи целого неотрицательного n
3. Вводится непустая последовательность ненулевых целых чисел,
заканчивающаяся нулем.
Найти порядковый номер того из чисел, которое наиболее
далеко от указаного целого числа.
4. Заменить операторы эквивалентными.
а) Переписать, используя repeat
while exp do st;
b) Переписать, используя while
repeat st; until exp;