Цитата:
Сообщение от -VitOS-
Помогите с задачками
|
Да ну, скучища школьная...
Цитата:
Сообщение от -VitOS-
1. Для заданных с клавиатуры значений переменных x вычислить
|
Код:
Var
x,Z:Real;
i:Byte;
Begin
Write('x= ');
Readln(x);
Z:=1;
For i:=2 to 10 do Z:=Z*(x+1.0*i)/i;
Writeln('Z= ',Z:0:5);
Readln
End.
Цитата:
Сообщение от -VitOS-
2. Определить номер первого из чисел sin x, sin(sin x), sin(sin(sin x)), ... , меньшего по модулю 10^-3.
|
Код:
Const
e=0.001;
Var
x,y:Real;
i:LongInt;
Begin
Write('x= ');
Readln(x);
y:=Sin(x);
i:=1;
While Abs(y)>=e do
begin
y:=Sin(y);
i:=i+1;
end;
Writeln('i= ',i);
Readln
End.