Предмет: Информатика,
автор: martiemiliya
Задания во вложении + к каждому блок-схема.
Приложения:
![](https://files.topotvet.com/i/813/8138935ea17996754a8a410aa0e65d4e.jpg)
petyaGavrikov:
А где брать значения x[1] и x[2]? Вводить с клавиатуры?
Ответы
Автор ответа:
1
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
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
Похожие вопросы
Предмет: Биология,
автор: ula15483
Предмет: Алгебра,
автор: d22p
Предмет: Математика,
автор: haruneicel
Предмет: Английский язык,
автор: dilyasydykova05
Предмет: Физика,
автор: befbeverli15