Pascal. Вычислить используя циклы while и repeat.

[Knubbe]

Дано натуральное число n, действительное x. Вычислить sinx+sin sinx+…+sin sin…sinx

[Roof]

program ppp;
uses crt;
var
 n, counter: integer;
 x, val: real;
begin
 writeln('Введите n');
 readln(n);
 writeln('Введите x');
 readln(x);

 counter:= 1;
 val:= 0;
 while counter <= n do begin
   val:= val + sin(x);
   Inc(counter);
 end;
 
 writeln('Значение= ', val:4:3);
 readln;
end.

[Базиля]

Knubbe

Pascal. Вычислить используя циклы while и repeat.

Цилы вложенные???
Или нужно решить одну и туже задачу и с помощью While и отдельно с помощью repeat?

[tinpl]

не совсем так... там нужно еще синусы от синусов брать...
Т.е. в while надо еще 1 while от 1 до counter, и делать val2:=sin(val2);
перед этим ставить val2:=sinx;
а к val уже прибавлять val2

[Roof]

2 tinpl

sinx+sin sinx+…+sin sin…sinx

- значит я в в это вообще не въезжаю. И твое пояснение не понял.

[tinpl]

val = sin(x) + sin( sin(x) ) + sin( sin( sin(x) ) ) ....
что то в стиле этого насколько я понял..

[Roof]

2 tinpl - я что-то так и не понял - с чего ты взял, что нужно брать sin от sin(x)
Напиши свой вариант кода.

[tinpl]

sinx+sin sinx+…+sin sin…sinx
посмотри на 1й а потом на 2й член... потом на последний...

[tinpl]

program ppp;
uses crt;
var
n, i,counter: integer;
x, val, val2: real;
begin
writeln('Введите n');
readln(n);
writeln('Введите x');
readln(x);

counter:= 1;
val:= 0;
while counter <= n do
begin
i:=1;
val2:=sin(x);
while i<=counter do
begin
inc(i);
val2:=sin(val2);
end;

val:= val + val2;
Inc(counter);
end;

writeln('Значение= ', val:4:3);
readln;
end.


что-то вроде этого...