Процедуры

[lialia]

здравствуйте,помогите пожалуйста,я не пойму как правильно ввести процедуру в программу

program Laba9_1;
uses crt;
var
n,i,j:integer;
a:array[1..10] of integer;
min,imin:integer;
type
mas = array [1..10] of integer;
procedure Vub(A:mas)
var
i,j,n:integer;
begin
min:=a[i];
imin:=i;
for j:=i+1 to n do
if min>a[j] then
begin
min:=a[j];
imin:=j;
end;
a[imin]:=a[i];
a[i]:=min;
for j:=1 to n do
write (a[j],' ');
writeln;
end;
begin
clrscr;
randomize;
writeln('selection sort');
writeln('enter number of components (<=10)') ;
readln(n);
for i:=1 to n do
a[i]:=random(30);
writeln('generated array');
for i:=1 to n do
writeln(a[i],' ');
writeln;
writeln('series of selection');
for i:=1 to n-1 do
procedure Vub(A:mas){как сдесь правильно написать?}
writeln('sorted array');
for i:=1 to n do
write(a[i],' ');
readln;
end.

[Sciv]

Ух, страшно читать код! Полная неструктурированность, где начало и конец процедур - хрен разберешь.

Потому поясню в общем. Ввести процедуру в код основной программы можно так:

Procedure Proc1(A: integer); //Вводим код самой процедуры
begin
end;

begin  //основная программа
  ...
  c:=10212;
  Proc1(c);    //вызов процедуры с передачей ей в качестве параметра переменной с
  ...
end.

[lialia]

все время пишет "ошибка в заявлении" на процедуре

for i:=1 to n-1 do
procedure Vub(A:mas)
writeln('sorted array');
for i:=1 to n do
write(a[i],' ');
readln;
end.

[Poma][a]

procedure Vub(A:mas)

Замените на

procedure Vub (a);

[lialia]

спасибо,но теперь требует точку запят.,хотя она есть

[Poma][a]

Выложите код

[Sciv]

Сравните Ваш код:

for i:=1 to n-1 do
procedure Vub(A:mas){как сдесь правильно написать?}

и мой пример

  c:=10212;
  Proc1(c);    //вызов процедуры с передачей ей в качестве параметра переменной с

и найдите различия в вызове процедуры в программе

[lialia]

спасибо за помощь

[lialia]

подскажите пожалуйста ,может быть я просто процедуру не туда поставила,я сделала как вы говорили,и все равно не работает

[Sciv]

program Laba9_1;

uses crt;

var
n,i,j:integer;
a:array[1..10] of integer;
min,imin:integer;

type
mas = array [1..10] of integer;

procedure Vub(vаr A:mas)
var i,j,n:integer;
begin
  min:=a[i];
  imin:=i;
  for j:=i+1 to n do
    if min>a[j] then begin
      min:=a[j];
      imin:=j;
    end;
  a[imin]:=a[i];
  a[i]:=min;
  for j:=1 to n do
    write (a[j],' ');
  writeln;
end;

begin
  clrscr;
  randomize;
  writeln('selection sort');
  writeln('enter number of components (<=10)') ;
  readln(n);
  for i:=1 to n do a[i]:=random(30);
  writeln('generated array');
  for i:=1 to n do writeln(a[i],' ');
  writeln;
  writeln('series of selection');
  for i:=1 to n-1 do
  Vub(a){как сдесь правильно написать?}
  writeln('sorted array');
  for i:=1 to n do write(a[i],' ');
  readln;
end.

Еще бы знать, что должна делать программа. Похоже на сортировку или поиск минимального...

Но пока предложил бы так. Обратите внимание на выделенное красным - раз у Вас внутри процедуры исходный массив меняется, то и параметр должен передаваться как var, чтобы внешний массив так же менялся.