Задания во вложении + к каждому блок-схема.

Задания во вложении + к каждому блок-схема.
Гость
Ответ(ы) на вопрос:
Гость
3. var x:array[1..10] of real; k:integer; begin write('x[1] = '); readln(x[1]); write('x[2] = '); readln(x[2]); for k:=3 to 10 do   x[k]:=sin(x[k-1]-x[k-2])/cos(x[k-1]-x[k-2])+sqrt(abs(sin(x[k-1]))) ;for k:=1 to 10 do write(x[k]:5:2); writeln; end. Пример: x[1] = 1 x[2] = 1 1.00 1.00 0.92 0.81 0.74 0.75 0.84 0.95 1.01 0.98 4. const n=10; var x:array[1..n] of real; i:integer; s,p:real; begin Randomize; writeln('Массив x:'); for i:=1 to n do  begin  x[i]:=3*random;  write(x[i]:6:2);  end; writeln; p:=1; for i:=1 to n do p:=p*x[i]; writeln('p = ',p); s:=1+exp(p); writeln('S = ',s); end. Пример: Массив x:   1.98  1.38  2.96  2.14  1.64  1.94  2.32  2.74  0.00  2.10 p = 0.371053196230522 S = 2.449260166514
Не нашли ответ?
Ответить на вопрос
Похожие вопросы