Class06:
Оператор цикла for.
1. Определить значение переменной s после выполнения операторов
a) s:=1; n:=1; for i:=2 to n do s:=s+1/i;
b) s:=1; n:=1; for i:=2 downto n do s:=s+1/i;
c) s:=1; n:=5; k:=0; for i:=1 to n do inc(k); s:=k+i;
2. Найти ошибки в следующем фрагменте
a) y:=0; for x:=0.1 to 0.9 do y:=y+sin(x);
b) k:=81; y:=1; for i:=1 to sqrt(k) do y:=2*y;
c) k:=0; for i:=1 to 9 do k:=k+sqr(i); k:=k*i;
d) k:=1; for i:=1 to 64 do begin i:=2*i; k:=k+i end;
3. Сколько раз будет выполнено тело цикла
k:=0; for i:=1 to k+3 do k:=k+1;
4. Написать программы для вычисления
a) y = (2n-1)!! = 1 * 3 * 5 * ... * (2n-1), n>0
var y : real; n, i : integer;
begin
readln(n);
y:=1;
for i:=1 to n do y:=y*(2*i-1);
writeln(y);
end.
b) y = sin1 + sin1.1 + sin1.2 + ... + sin2
c) y = cos(1 + cos(2 + ... + cos(39 + cos40)...)), используйте цикл с downto
5. Программа. Даны натуральное n и координаты точек на плоскости X1,Y1, X2,Y2, ..., Xn,Yn.
Определить радиус наименьшего круга, с центром в начале координат, внутрь которого
попадают все эти точки.
6. Программа. Даны натуральное n, R и координаты точек на плоскости X1,Y1, X2,Y2, ..., Xn,Yn.
Вычислить количество точек, попадающих в круг радиуса R (R > 0) с центром в начале координат.