проблема с блок-схемами

[gotex]

Народ, не могли бы вы помочь сделать отдельные блок-схемы к каждой из нескольких процедур?

вот их код:

{___*****PROCEDURE OF READ*****____}

Procedure Chtenie(var Fname:text; var str:Tstr);
Begin
Assign(fname, labText);
Reset(Fname);
i:=0;
while not eof(fname) do
begin
i:=i+1;
Readln(Fname, str[i]);
Writeln ('string ',i,' : ', str[i]);
end;
writeln;
close(fname);
end;


{____*****FIRST PROCEDURE*****____}

Procedure Otlichie(Str:Tstr; N:integer; K:integer);
var i,j:integer;
b:boolean;
begin
write('Absent symbols: ');
for i:=1 to N do begin
j:=1;
b:=false;
while (not b) and (j<=K) do begin
if str[1][i]=str[2][j] then begin
b:=true;
end;
inc(j);
end;
if not b then
write(str[1][i], ' ');
end;
end;


{____*****SECOND PROCEDURE*****____}

Procedure New_String(Var NewSTR:string; Str:Tstr);
Var
i:integer;
begin

if n<=k then
begin
NewSTR:='';
for i:=1 to 2*N do


if odd(i) then
begin
NewSTR:=NewSTR+Str[1][i div 2+1];
end
else begin
NewSTR:=NewSTR+Str[2][i div 2];
end;
NewSTR:=NewSTR+copy(str[2],n+1,k-n);
end
else
begin
NewSTR:='';
for i:=1 to 2*k do


if odd(i) then
begin
NewSTR:=NewSTR+Str[1][i div 2+1];
end
else begin
NewSTR:=NewSTR+Str[2][i div 2];
end;
NewSTR:=NewSTR+copy(str[1],k+1,n-k);
end;
Writeln('New String: ', NewSTR);
end;

Заранее спасибо!)

[Stilet]

Тут недавно советовали прогу рисующую блок-схемы для Паскалей, называется BS 1.0, порули поиском, найди ту страничку где ссылка на качку и пользуйся.

[gotex]

Сообщение от Stilet

Тут недавно советовали прогу рисующую блок-схемы для Паскалей, называется BS 1.0, порули поиском, найди ту страничку где ссылка на качку и пользуйся.

я ее юзал...она какието пустые блоки выкидывает

[_Dmitry]

Сообщение от gotex

я ее юзал...она какието пустые блоки выкидывает

Естественно, осталось только побороть лень, разобраться и заполнить эти блоки.

[Air]

gotex
Вот ссылка, её смотрели?
http://www.programmersforum.ru/showthread.php?t=17294

[Ultimate6865]

Помогите пожалуйста,завтра надо здать
Составить Блок схемы
Задача на условие.
Дано действительное число x≤800. Если x≤100, то получить его дробную часть. Если 100<x≤800, то округлить x до ближайшего целого и в полученном результате переставить цифры в обратном порядке.
Задача на циклы
Для вводного целого положительного числа определите его двоичный эквивалент, используя алгоритм перевода числа в другую систему счисления путем деления числа на основание системы счисления.

Создай свою тему. Нечего некропостить.
Модератор