Паскаль Вычислить у - первое из чисел sin х, sin sin x, sin sin sin x, ..., меньшее по модулю 10-4

[Kikikiss]

Текст задачи Вычислить у - первое из чисел sin х, sin sin x, sin sin sin x, ..., меньшее по модулю 10-4
Мой мозг просто отказывается понимать как это сделать , заранее спасибо =)

[vova_]

program s;
Label 1;
var x: Double;
write ('Введите число: ');
    readln (x);
1:
x=sin(x);
if abs(x) > 0.0001 then goto 1;
writeln (x);
readln
end.

[GreenWizard]

vova_, верно, но плохой тон использовать goto... лучше так:

program s;

var
  x, sin_: Double;
  s: string;
begin
   write('Введите число: ');
   readln (x);

  s := 'sin x = ';
  sin_ := sin(x);
  while abs(sin_) > 0.0001 do
    begin
      writeln(s, sin_);
      s := 'sin ' + s;
      sin_ := sin(sin_);
    end;

  readln;
end.

тут вывод всех значений sin(x) > 0.0001