Модули Паскаля

[Oleg_Rus]

Подскажите пожалуйста, как создать свой модуль на Паскаль.

К примеру, я хочу создать свой модуль в котором написаны процедуры работы с одномерными массивами A, создание, печать и т.д. и т.п.
Файл #.pas я уже набрал, но вот #.TPU... Не знаю как его создать. пытался стандартные TPU-шники окрыть через блокнот, но там сплошная ахинея (извиняюсь за слово).

[somewhere]

Вот пример модуля:

Код: Выделить всё

unit vesa16m;

interface

var curbank,vid_mem,size_of_bank,bytes_per_line,videoseg,max_x,max_y:word;
gr_color,error_code,bits_per_pixel,total_banks:byte;
gr_init:byte;

function gety:byte;
function getx:byte;
procedure plot(xplot,yplot,color,red,green,blue:word);

implementation

var vmode,x,y:byte;
col,xplot,yplot,color:word;
x1,x2,y1,y2,dx1,dy:integer;
segm,ofsm,r,g,b,red,green,blue:word;
conc,conc1:string;
tg:real;
lastmode:byte;
number,num1,num2:longint;
info:array [0..255] of byte;

{GETX}
function getx:byte;
begin
asm
mov ah,03h
mov bh,0
int 10h
mov x,dl
end;
getx:=x;end;

{GETY}
function gety:byte;
begin
asm
mov ah,03h
mov bh,0
int 10h
mov y,dh
end;gety:=y;end;

{PLOT}
procedure plot(xplot,yplot,color,red,green,blue:word);
label l1,l2,l3,l4,l5,l6,l7,l8,lend;
begin
asm
mov al,bits_per_pixel
cmp al,4
jnz l1
mov cx,xplot
mov dx,yplot
mov al,byte ptr color
mov ah,0ch
int 10h
jmp lend
l1:
cmp al,8
jnz l2
mov ax,yplot
.......
.......
.......
mov al,ah
stosb
mov al,byte ptr blue
stosb
l7:
lend:
end;end;

begin
end.

[Хыиуду]

unit MyModule;

uses ....

interface
{Тут список всех функций, процедур и переменных, которые будут доступны пользователю при подключении этого модуля}
procedure helloworld;
function inc1(x:integer):integer;
var mysupermegavariable: byte;

implementation
{ А вот тут уже раздел операторов для всех процедур и функций}
procedure helloworld;
begin
writeln ('Hello, World!);
end;

function inc1(x:integer):integer;
begin
inc1:=x+1;
end;

begin
end.

Где-то как-то так. Компилируешь - у тебя появляется файл Mymodule.TPU

[Хыиуду]

Вот пример модуля: <...>

Мы с вами потрясающе синхронно работаем!

[somewhere]

Мы с вами потрясающе синхронно работаем!

:-) бывает такое :-)

[BBB]

А я вот ссылочку дам. Спрашивали ужо

Как создать модуль в Turbo Pascal

[Oleg_Rus]

Большое всем спасибо, но меня интересует именно компилляция...
Что как куда и зачем...

[Хыиуду]

Нажимаешь F9, получаешь файл <имя модуля>.TPU. Потом прописываешь в своей программе uses <имя модуля> и пользуешься всеми его возможностями.

[Oleg_Rus]

Бальшое вам всем спасиба!

_______________________________________________________
Утро, кофе, программизм -
укрепляют организм...

[Кэт]

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

заданны координаты начала и конца двух векторов. Найти вектор разности