Блок-схема

[kasper182]

Блок-схема

uses crt;
const eps=0.0001;
var x_nach,x_kon,x,s,delta_x,t:real;
n:integer;
begin
clrscr;
write('Введите начало интервала x_nach<-1 x_nach=');
readln(x_nach);
repeat
write('Введите конец интервала, больше ',x_nach:0:1,' x_kon=');
readln(x_kon);
until x_kon>x_nach;
repeat
write('Введите шаг табуляции, меньше ',x_kon-x_nach:0:1,' delta_x=');
readln(delta_x);
until delta_x<x_kon-x_nach;
clrscr;
x:=x_nach;
writeln(' Табулирование функции F(x)=e^-x,');
writeln(' представленной разложением в степенной ряд');
writeln(' на интервале ',x_nach:0:1,'..',x_kon:0:1,' с шагом ',delta_x:0:1);
writeln;
writeln(' -----------------------------------');
writeln(' | X | S | e^-x | n | ');
writeln(' -----------------------------------');
while x<=x_kon+delta_x/2 do
begin
n:=0;
t:=1;{текущий член ряда x^n/n!}
s:=t;{сумма}
while abs(t)>=eps do
begin
n:=n+1;
t:=-t*x/n;
s:=s+t;
end;
writeln(' |',x:6:1,' |',s:8:4,' |',exp(-x):8:4,' | ',n:4,'|');
x:=x+delta_x;
end;
writeln(' -----------------------------------');
readln
end.

 

[Léon1]

kasper182, у меня просьба. Выложите задание в каждой теме к программе. Вдруг кому-нибудь понадобиться. А блок-схему сейчас сделаю.

 

[Léon1]

Ловите:.........