Модуль.

[Leshii]

Доброго времени суток.
Начну с сути.

Модуль.

unit stor;
  interface
    Procedure Vvedenya_koordunat_ta_ob4uslennya_storin_trukytnuka (q:real);
    Procedure Vuvod_storin (n:real);
    function Perevirka_isnyvannya_trukytnuka(q:real):boolean;
    Procedure Ploshcha (q:byte);
    Procedure Vuvod_Ploshchi (q:byte);
  implementation
   var q:byte;
       a,b,c:real;
       Procedure Vvedenya_koordunat_ta_ob4uslennya_storin_trukytnuka (q:real);
         var
          a,b,c:real;
          x1,x2,x3:integer;
          y1,y2,y3:integer;
            begin
             writeln('vvedit koordunatu 4erez porbil:');
             write('(x1,y1)=');
             readln(x1,y1);
             write('(x2,y2)=');
             readln(x2,y2);
             write('(x3,y3)=');
             readln(x3,y3);
             a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
             b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
             c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
             writeln;
            end;
       Procedure Vuvod_storin (n:real);
            begin
             Vvedenya_koordunat_ta_ob4uslennya_storin_trukytnuka (q);
             writeln('Dovguna storonu(a)=',a:1:1);
             writeln('Dovguna storonu(b)=',b:1:1);
             writeln('Dovguna storonu(c)=',c:1:1);
             writeln;
            end;
       function Perevirka_isnyvannya_trukytnuka(q:real):boolean;
             var g,a,b,c:real;
            begin
             g:=a+b;
             if g>c then writeln('Trukytnuk isnye')
             else writeln('Takogo Trukytnuka ne isnye');
            end;
       Procedure Ploshcha (q:byte);
             var p,S:real;
            begin
             p:=(a+b+c)/2;
             S:=sqrt((p*(p-a)*(p-b)*(p-c)));
             writeln;
            end;
       Procedure Vuvod_Ploshchi (q:byte);
             var p,S:byte;
            begin
             Ploshcha(q);
             writeln('Pivperumeter= ',p:1,' ;');
             writeln('Ploshcha Trukytnuka= ',S:1,' kvadratnux odunuc;');
            end;
  end.

Программа.

Program Trukytnuku;
Uses stor;
var q:byte;
    a,b,c:real;
    x1,x2,x3:integer;
    y1,y2,y3:integer;
  begin
  clrscr;
  Vuvod_storin(q);
  Perevirka_isnyvannya_trukytnuka(q);
  Vuvod_Ploshchi(q);
 end.

Теперь суть вопроса.
У меня выскакивает ошибка при запуске программы что "модуль не найден".
1)В связи с чем?(возможно есть ошибки в программе себто модуле)
или же
2)Я что-то напутал или неправильно записал.
Делал через Compile->>Build , ну и Destination->> Disk.

[Вадим Мошев]

Вы должны указать в Directories расположение модулей (файла TPU).
Однако, для того, чтобы его получить, необходимо его скомпилировать, как обычную программу.
А

Destination->> Disk.

используется для создания исполняемых файлов.
Так вы выбрали место, где будет хранится программа (memory/disc)

[Leshii]

Благодарю.Проблему разрешил.
Невнимательность.Название юнита не совпадало с названием файла *.tpu.

[Leshii]

Тоже разрешил.Так что вопрос отпадает.