Проблема с процедурами. Опции

[Zork]

Дело в том, что у нас в Политехническом институте нужно сделать 9 лабараторных робот до екзаменов. Я сделал все кроме одной. В восьмой работе нужно было создать програму сортировки массива.

Задача: Существует массив. Отсортировать его по возрастанию.

Код

program sortplus;
const n=10;
var a:array[1..n] of integer;
i,j,b:integer;
begin
writeln('Введите массив из ',n,' чисел');
for i:=1 to n do readln(a[i]);
for i:=1 to n-1 do
for j:=1 to n-1 do
if a[j]>a[j+1] then
begin
b:=a[j];
a[j]:=a[j+1];
a[j+1]:=b;
end;
write('Получившийся массив');
for i:=n downto 1 do write(' ',a[i]);
readln;
end.

Я эту прогу написал. Но в девятой работе моя задача такова: Добавить процедуры в эту прогу. Не нужно менять код программы - только добавить процедуры. Помогите пожалуйста. Я не знаю как это сделать. Заранее огромное спасибо.

Сообщение отредактировано: Zork - 13.12.2004 11:15

[volvo]

Zork
Во-первых, это есть в ФАКе именно в виде процедуры...
Ну, а код будет таким, например:

Код

program sortplus;
const n=10;
var a:array[1..n] of integer;

procedure sort;
var i, j, b: integer;
begin
for i:=1 to n-1 do
for j:=1 to n-1 do
if a[j]>a[j+1] then
begin
b:=a[j];
a[j]:=a[j+1];
a[j+1]:=b;
end;
end;

begin
writeln('Введите массив из ',n,' чисел');
for i:=1 to n do readln(a[i]);
sort;
write('Получившийся массив');
for i:=n downto 1 do write(' ',a[i]);
readln;
end.

Сообщение отредактировано: volvo - 13.12.2004 11:20

[APAL]

Например так:

program sortplus;
const n=10;
var
  a:array[1..n] of integer;
  i,j,b:integer;

  Procedure Swap;
  Begin
    b:=a[j];
    a[j]:=a[j+1];
    a[j+1]:=b;
  End;

begin
  writeln('Введите массив из ',n,' чисел');
  for i:=1 to n do readln(a[i]);
  for i:=1 to n-1 do
    for j:=1 to n-1 do
      if a[j]>a[j+1] then Swap;
  write('Получившийся массив');
  for i:=n downto 1 do write(' ',a[i]);
  readln;
end.

[Zork]

Огромное Вам СПАСИБО.