написание своего модуля Опции

[SeRGuSii]

Забыл как описывать свои модули, помню, что вроде надо так

Код

user <назв модуля>;

а дальше то как ? напишите пожалуйста, в faq, статьях и уроках вроде нету если пропустил ткните носом

[volvo]

Смотри, что происходит:
1. Ты определил реализацию функций и процедур в модуле, но не описАл их как внешние, то есть вызывающая программа о них не знает...

2. Процедура sort описана после завершающей точки - это запрещено. Компилятор просто не знает о ее существовании... ( плюс к этому в sort была небольшая ошибка - не описана переменная i )

3. Более опасное:
в модуле у тебя определен тип

Type
  TElem = integer;
  mass = array[1..n] of TElem;
{ и затем : }
procedure inputmas (a:mass);

ты попытался описАть переменную такого же типа в основной программе и передать ее как параметр в процедуру... Нет !!! Нельзя этого делать. По правилу совместимости типов эти 2 типа будут считаться разными, и естественно вылетит ошибка. Нужно использовать ранее определенный в модуле тип...

Вот правильный вариант 2-х файлов (работоспособность не проверял, но компиляцию проходят )

obrmasiv.pas

unit obrmasiv;
interface
const
  n=5;

type
  TElem = integer;
  mass = array[1..n] of TElem;

procedure inputmas (a:mass);
procedure outputmas (a:mass);
function yp(a:mass): boolean;
procedure sort(a:mass);

implementation
uses crt,Graph;

procedure inputmas (a:mass);
var i:integer;
begin
  for i:=1 to n do begin
    write('a[',i,']= ');
    read(a[i]);
  end;
end;

procedure outputmas (a:mass);
var i:integer;
begin
  for i:=1 to n do begin
    write(a[i],' ')
  end;
end;

function yp(a:mass): boolean;
var
  i:integer;
  p:boolean; p1:boolean;
begin
  p:=true;
  p1:=true;
  for i:=1 to n-1 do begin
    p:=p and (a[i] > a[i+1]);
    p1:=p1 and (a[i] < a[i+1]);
  end;
  yp:=p or p1;
end;

procedure sort(a:mass);
var
  c:integer;
  i:integer;
begin
  for i:=2 to n do begin
    c:=a[i-1];a[i-1]:=a[i];a[i]:=c;
  end
end;

end.

Файл main.pas

uses obrmasiv;
var
  a: mass;
  i:integer;
begin
  inputmas(a);
  if yp(a) then writeln('yp') else writeln('neyp');
  sort(a);
  outputmas(a);
end.

Кстати, зачем тебе Graph, он же нигде не используется? Или ты хочешь перенести это в графику? Я бы не советовал, смысл какой? Разными цветами можно и в текстовом режиме вывести...