Используя метод нисходящего проектирования, разработать схему алгоритма и составить программу вычисления функции при заданных значениях аргументов. Результаты вычислений напечатать.
Приложения:
![](https://st.uroker.com/files/eb5/eb5dd99a37dfea37c7759c1d2a0e6d8b.png)
Ответы
Ответ дал:
0
Проектировать здесь нечего, так как задача - простейшая.
Блок-схема - в прилагаемом файле.
Программа:
var x,p:integer; f:real;
begin
writeln('x F');
p:=1;
writeln(x,' ',exp(0)-p:5:2);
for x:=1 to 6 do
begin
p:=p*x;
f:=exp(-x)-p;
writeln(x,' ',f:8:4);
end;
end.
Результат:
x F
0 0.00
1 -0.6321
2 -1.8647
3 -5.9502
4 -23.9817
5 -119.9933
6 -719.9975
Блок-схема - в прилагаемом файле.
Программа:
var x,p:integer; f:real;
begin
writeln('x F');
p:=1;
writeln(x,' ',exp(0)-p:5:2);
for x:=1 to 6 do
begin
p:=p*x;
f:=exp(-x)-p;
writeln(x,' ',f:8:4);
end;
end.
Результат:
x F
0 0.00
1 -0.6321
2 -1.8647
3 -5.9502
4 -23.9817
5 -119.9933
6 -719.9975
Приложения:
![](https://st.uroker.com/files/702/702ea82f29a637a720ec27728818bece.png)
Ответ дал:
0
Будьте добры, помогите написать) Необходимо, чтобы присутствовало repeat и until
Ответ дал:
0
var x,p:integer; f:real;
begin
writeln('x F');
x:=0;
p:=1;
writeln(x,' ',exp(0)-p:5:2);
repeat
x:=x+1;
p:=p*x;
f:=exp(-x)-p;
writeln(x,' ',f:8:4);
until x>=6;
end.
begin
writeln('x F');
x:=0;
p:=1;
writeln(x,' ',exp(0)-p:5:2);
repeat
x:=x+1;
p:=p*x;
f:=exp(-x)-p;
writeln(x,' ',f:8:4);
until x>=6;
end.
Ответ дал:
0
Благодарю.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад