Блок схемка, Как будет выглядит б/с к проге? Опции

[ghost]

Вот прога

Код

program Sortirovka;
uses Crt;
var
  M:array[1..100] of integer;
  f,n,k,i:integer;
  Error:integer;
  Ch:char;
  label l1,l2;
begin
repeat
ClrScr;
  gotoxy (15,1);
  writeln('текст');
  gotoxy (13,2);
  writeln('текст');
  gotoxy (13,3);
  writeln('текст');
  gotoxy (27,5);
  writeln('Внимание!');
  gotoxy (14,6);
  writeln('Размерность исходного массива должна быть');
  gotoxy (15,7);
  writeln('больше 2, но меньше 100 элементов');
  gotoxy (10,8);
  writeln('Элементы массива только целые числа от -1000 до 1000.');
  gotoxy (12,12);
  writeln('текст');
  gotoxy (25,13);
  writeln('текст');
  gotoxy (21,14);
  writeln('текст');
  writeln(' ');
l1:
   repeat
   writeln(' ');
    writeln('Введите значение n(2..100)');
    {$I-}
    readln(n);
    error:=IOResult;
    {$I+}
   if (n<2) or (n>100) or (Error<>0) then
  begin
   writeln('Неверно задано n! Повторите ввод...');
  end;
   until (n>=2) and ((n<=100) and (Error=0));
   writeln;
   for i:=1 to n do
  begin
   repeat
     writeln('Введите M[',I,'](-1000..1000):');
     {$I-}
     readln(M[I]);
     error:=IOResult;
     {$I+}
     if (M[i]>1000) or (M[i]<-1000) and (error<>0) then
   begin
    writeln('Неверно задано M[',i,']');
  end;
    until (M[i]<=1000) and (M[i]>=-1000) and (error=0);
   end;
   writeln('Исходный массив:');
  for i:=1 to n do
   begin
   write(M[i],',');
   end;
  repeat
   f:=0;
   for i:=1 to n-1 do
    begin
     if M[i]>M[i+1] then
      begin
       k:=M[i];
       M[i]:=M[i+1];
       f:=1;
       M[i+1]:=k;
      end;
    end;
  until (f=0);
  writeln('');
  writeln('Сортированный массив:');
  for i:=1 to n do
  begin
   write(M[i],',');
  end;
  writeln;
  writeln;
  writeln('Хотите ли вы отсортировать еще один массив? y/n');
l2:
   case readkey of
   #89:goto l1;
   #121:goto l1;
   #78:exit;
   #110:exit;
  end;
 goto l2;
until (Ch = #78) or (Ch = #110);
end.

Как будет выглядеть к ней блок схема?

[APAL]

Это продолжение предидущей темы?
Прямо чертежный стол...

Ну а сам то не хочешь подумать?

[Лита]

в принципе все просто, даже вложенных циклов я не заметила... линейные структуры и простые циклы...
вот только чертить долго и нудно...
если сравнишь задачу и блок схему из предыдущей твоей темы и найжешь закономерности, то все сам сможешь построить... ;)

[APAL]

Абсолютно согласен с Лита.
Пошевели мозгами сам... хотя бы раз.. :D

[Лита]

Абсолютно согласен с Лита.

ну в принципе мое имя можно и просклонять :D

Ну тогда: ... с пользователем Лита. :D

Сообщение отредактировано: APAL - 12.11.2004 16:18

[Лита]

APAL
мдя, я-то и забыла, что ты администратор... хе-хе... а сначала очень удивилась...

[Altair]

я-то и забыла, что ты администратор...

Ничего, тут таких много :D
один мой друг, говорит (он на форуме часто сидит но ничего непишет).
что к девушкам на форуме особое отношение ... ;)

[Лита]

Oleg_Z
Особое - это какое? :D

эээ.... ну ... ;)


Сообщение отредактировано: Oleg_Z - 14.11.2004 20:22