Технический форум - Помогите, пожалуйста, с Паскалем

Цитата:

Сообщение от -VitOS- (Сообщение 959396)

Помогите с задачками

Да ну, скучища школьная...

Цитата:

Сообщение от -VitOS- (Сообщение 959396)

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- (Сообщение 959396)

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.