Предмет: Информатика,
автор: michailo7115
Используя метод нисходящего проектирования, разработать схему алгоритма и составить программу вычисления функции при заданных значениях аргументов. Результаты вычислений напечатать.
Приложения:

Ответы
Автор ответа:
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
Приложения:

Автор ответа:
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
Благодарю.
Похожие вопросы
Предмет: Математика,
автор: slakomov462
Предмет: Английский язык,
автор: ttvbjkbvvvcfvhj
Предмет: Физика,
автор: bttbrhrn
Предмет: Математика,
автор: ggbjkliyd
Предмет: История,
автор: MVartanyan