Очень срочно нужна блок схема :(((

[maximon]

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

PHP код:

uses crt;
const MAXN=50;
var
 a:array[1..50] of integer;
 fin:file of integer;
 fout:text;
 size,x,c1,c2:integer;
begin
clrscr;
assign(fin,'file.in');
reset(fin);
size:=0;
repeat
 read(fin,x);
 write(x,' ');
 if (abs(x) mod 5=0) then    
 begin
  inc(size);
  a[size]:=x;
 end;
until eof(fin);
close(fin);
writeln('**************************');
for c1:=1 to size do
 for c2:=1 to size-1 do
  if a[c2]<a[c2+1] then
  begin
   x:=a[c2];
   a[c2]:=a[c2+1];
   a[c2+1]:=x;
  end;
assign(fout,'text.txt');
rewrite(fout);
for c1:=1 to size do
begin
 write(a[c1],' ');
 write(fout,a[c1],' ');
end;
close(fout);
readkey;
end. 


[Siluet]

вот прога которая строит блок-схемы...надеюсь поможет

[maximon]

Она ошибку выдает непонятную и блок схему не строит (

[Zeraim]

Вроде блок схемы рисует, даже печатает 8)

[Siluet]

а у тебя в паскале эта программа работает ?

[maximon]

да в паскале...забыл указать.

[maximon]

Прога Avtoshema рисует ка кто не понятно блок схему разделяет ее на две части я не знаю как ее соеденить что бы номрально была ((

[Zeraim]

Ну автосхема она для паски, но я её проверял на дельфи, прекрасно работает. У меня все норм было, ты пробовал печатать? Может она их при печати нормально оформит?

[puporev]

Она ошибку выдает непонятную и блок схему не строит

А ты программу полностью напиши, в том числе заголовок Program aaaaa;

[maximon]

нет все раздельно может кто нарисует хоть в паинте что да как