Блок схема

[qwerty_]

Помогите пожалуйста составить блок схему


Program scanir;
uses crt;
const
c=-2;d=2;h=0.1; eps=1e-5;
fres='res1_01.pas';
var k:INTEGER;
a,b,x: real;
fr:text;
function f(x:real):real;
Begin
f:=(x*x)-cos(pi*x);
end;
procedure mpd(var fr: text;a,b,eps:real; var x:real);
var
m,i:integer;
begin
writeln(fr,'***** метод половинного деления ******');
m:=trunc(ln((b-a)/eps)/ln(2))+1;
writeln (fr, 'теоретическая оценка m=',m);
writeln(fr,'итерация':8,'x':6,'f(x) ':14);
i:=1;
while b-a>eps do
begin
x:=(a+b)/2;
writeln (fr,i:6,x:12:6,f(x):12:6 );

i:=i+1;
if i>m+2 then
begin
writeln(fr,'нет сх-ти за ',m, ' итераций!!!');
exit;
end;
if f(a)*f(x)<=0 then b:=x else a:=x;
end;
end;
begin
clrscr;
assign(Fr,fres);
rewrite(fr);
k:=0;
a:=c;
b:=a+h;
while b<=d do
begin
if f(a)*f(b)<0 then
begin
k:=k+1;
writeln(fr,' корень ', k, ' a=',a:0:2,' b=',b:0:2);
mpd(fr,a,b,eps,x);
writeln(fr,' Корень =',x:0:6);
end;
a:=b;
b:=a+h;
end;
write(fr,'найдено ',k );
case k of
1:write (fr, ' корень');
2..4:write (fr, ' корня');

else
begin
write (fr, ' корней');
end;
end;
close(fr);
writeln('смотри файл ',fres);
readkey
end.

[Paster Fob]

http://diamfc.oratau.com/

[denisbrain]

Сообщение от Paster Fob

http://diamfc.oratau.com/

есть версия
от
http://programmir.far.ru/?ref=BlokShemnik

[qwerty_]

Спасибо!очень помогло