Опять срочно, блок схемы , Нужны блоксхемы и быстро

Нужна блок схема программы , с блок схемами вложенных функций и процедур(если они есть.)Желательно на MS Visio в графическом формате (jpg, gif).
Собственно программа:

program mainkursrab;
uses crt;
var
f:Text; {файл}
i,j:integer; {счётчики циклов}
n:integer; {будет содержать кол-во точек}
x,y,k:real; {соответственно координаты x,y, коэффициент k}
a:array[1..20,1..2] of real;{массив, который будет содержать координаты точек}
s:string; {переменная, будет содержать путь к файлам}
b:boolean;

function F1(x2,y2:real):real; {функция вычислит значение F1(x2,y2)}
begin
F1:=y2*y2-0.5*x2;
end;

function F2(x2,y2:real):real; {функция вычислит значение F2(x2,y2)}
begin
F2:=y2-1.4*cos(x2+0.25);
end;

function F3(x2,y2,k2:real):real; {функция вычислит значение F3(x2,y2)}
begin
F3:=y2-0.2*x2+k2;
end;

begin
clrscr;
Writeln('Путь к файлу с координатами точек:');
readln(s);
Assign(f,s);
{$I-}
reset(f); {Пытаемся открыть файл}
{$I+}
if IOresult<>0 then writeln('Файл не найден') {Проверяем существование файла}
else
begin {1}
while not eof(f) do {считываем все координаты до конца файла}
begin
b:=true;
Inc(i); {увеличиваем значение переменной i на 1}
{$I-} {отключаем обработку ошибок ввода\вывода}
read(f,a[i,1]); {Пытаемя прочесть координату X}
{$I+} {включаем обработку ошибок ввода\вывода}
if IOResult<>0 then begin {проверка, не было ли ошибки ввода\вывода}
writeln('Неправильная координата X в строке ',i);
b:=false;
end;
{$I-} {отключаем обработку ошибок ввода\вывода}
read(f,a[i,2]); {Пытаемся прочесть координату Y}
{$I+} {включаем обработку ошибок ввода\вывода}
if IOResult<>0 then begin {проверка, не было ли ошибки ввода\вывода}
writeln('Неправильная координата Y в строке ',i);
b:=false;
end;
if b=false then {если была ошибка при считывании данных}
Dec(i); {уменьшаем значение переменной i на 1, т.к. этой точки нет}
end;
n:=i; {запоминаем кол-во точек}
Close(f);
writeln('Путь к файлу с результатом');
readln(s);
assign(f,s);
rewrite(f); {Создаём файл с результатом}
for i:=1 to 5 do {в этом цикле идёт проверка точек на нахождение} {проверяем для всех k}
begin
k:=i*0.1;
writeln('k=',k:1:1); {вывод на экран}
writeln(f,'k=',k:1:1); {вывод в файл}
for j:=1 to n do {проверяем все точки}
begin
write('Точка (',a[j,1]:2:2,';',a[j,2]:2:2,')',': ');
write(f,'Точка (',a[j,1]:2:2,';',a[j,2]:2:2,')',': ');
x:=a[j,1];
y:=a[j,2];
if ((F1(x,y)<=0) and (F2(x,y)<=0) and (x<2.5)) or
((F3(x,y,k)<=0) and (F2(x,y)>=0) and (x>1) and (x<5.5))
then begin
writeln('внутри'); {вывод на экран}
writeln(f,'внутри'); {вывод в файл}
end
else begin
writeln('снаружи'); {вывод на экран}
writeln(f,'снаружи'); {вывод в файл}
end;
end; {for j:=1 to n}
end; {for i:=1 to 5}
Close(f); {закрываем файл}
writeln('Результат сохранён в файл ',s);
end; {1}
readkey;
end.

Сообщение отредактировано: purpe - 24.02.11, 10:57

Продлили время, всё еще нужна блок схема...
100р по вебмани...выполнить в MS Visio либо просто красиво.

100 рублей? Хм... за просто набросаную от руки схему к курсовику я получаю не менее 10 долларов.

Ты бы алгоритм описал, а по ниму блок схем составит
что два пильца обас....

Люди помогите ,горю, завтро практику здавать , а у меня блок-схемы нет к программе.
А я в душе не е... как её рисовать!!!!!!!


Program pog;
Uses crt;

const
LU=#201;
RU=#187;
LD=#200;
RD=#188;
H=#205;
V=#186;
n=7;
var x1,x2,y1,y2,k,a,b,c,i,P,Vt,S,Ch,Pi,Su,Vos,q:integer;
den:array[1..n,1..2] of string;
yes:boolean;
ned:array[1..7] of string;
t:array [1..7] of integer;
z,j,temp1 :integer;
zx:real;
temp2:string;
as:boolean;
procedure box(x1,y1,x2,y2:integer);
var i: integer;
begin
clrscr;
TextBackground(red);
TextColor(black);
clrscr;
TextBackground(black);
Window(x1+2,y1+1,x2+2,y2+1);
clrscr;
TextBackground(green);
Window(x1,y1,x2,y2);
ClrScr;
Write(LU);
for k:=x1+1 to x2-1 do Write(H);
Write(RU);
for k:=y1+1 to y2-1 do
begin
Gotoxy(1,k-y1+1);
Write(V);
Gotoxy(x2-x1+1,wherey);
Write(V);
end;
Write(LD);
Window(x1,y1,x2,y2+1);
Gotoxy(2,y2-y1+1);
for k:=x1+1 to x2-1 do Write(H);
Write(RD);
Window(x1+1,y1+1,x2-1,y2-1);
end;
begin
clrscr;
box(20,7,65,23);
{writeln('­ ¦¬ЁвҐ Ї®¦ «г©бв  Є« ўЁиг "Enter" '); }


begin
clrscr;
ned[1]:='Ї®­Ґ¤Ґ«м­ЁЄ';
ned[2]:='ўв®а­ЁЄ';
ned[3]:='б। ';
ned[4]:='зҐвўҐаЈ';
ned[5]:='Їпв­Ёж ';
ned[6]:='бгЎЎ®в ';
ned[7]:='ў®бЄаҐбҐ­мҐ';

{box(21,9,63,25);}
for z:=1 to 7 do
begin
writeln('ўўҐ¤ЁвҐ ⥬ЇҐа вгаг ў ',ned[z]);{ᤥ« вм ўлў®¤ ®иЁЎЄЁ}
readln(t[z]);
end;
readkey;
box(22,5,63,22);
for z:=1 to 7 do zx:=zx+t[z];
zx:=zx/7;
for z:=1 to 7 do if t[z]<zx then

begin
writeln('----------­Ё¦Ґ б।­ҐЈ®-----------');
writeln ('',ned[z],' ⥬ЇҐа вга  = ',t[z],'');
end;
readln;
repeat
box(20,3,61,20);
begin
as:=true;
for z:=7 downto 2 do
if t[z]<t[z-1] then
begin
temp1:=t[z]; t[z]:=t[z-1]; t[z-1]:=temp1;as:=false;
temp2:=ned[z]; ned[z]:=ned[z-1]; ned[z-1]:=temp2;
end;
end;
clrscr;
until as=true;
writeln('⥬ЇҐа вга  ў Ї®ап¤ЄҐ гЎлў ­Ёп');
for z:=7 downto 1 do writeln(' ',ned[z],' --> ⥬ЇҐа вга  = ', t[z]);
readln;
end;
end.