Модули

[phantom4eg]

(Pascal)Ребят, помогите составить модули,не могу понять,я понял как их составлять,но не получается все равно.. вот коды прог
Первая

program lab1;
uses crt;
type Tmas=array[1..6] of real;
F1=function(xn:real):real;
{$F+}
function Fa(xn:real):real;
begin
Fa:=exp(-xn)*cos(xn);
end;
function Fb(xn:real):real;
begin
Fb:=3*sin(xn);
end;
{$F-}
procedure Pmass(x:byte;m:Tmas;F:F1;var z:Tmas);
var i:byte;
begin
for i:=1 to x do
begin
z[i]:=F(m[i]);
write(z[i]:6:2);
end;
end;

var ma,a,mb,b:Tmas;
i:byte;
begin
clrscr;
ma[1]:=0.1;
ma[2]:=0.35;
ma[3]:=0.37;
ma[4]:=0.39;
ma[5]:=0.45;
ma[6]:=0.51;
writeln('Massiv A:');
Pmass(6,ma,Fa,a);
writeln;
writeln;
for i:=1 to 5 do
mb[i]:=pi/(9-i);
writeln('Massiv B:');
Pmass(5,mb,Fb,b);
readln
end.

Вторая:

program lab2no2;
uses crt;
type TList = ^Node;
node=record
x:char;
next:TList;
end;

var nov,k:TList;
s:string;
f:boolean;
x:char;
i,n:integer;

procedure Insert(var l,m:TList;x:char);
var cur:TList;

begin
cur:=l;
while cur^.next<>nil do
cur :=cur^.next;
cur^.next:=m;
m^.next:=nil;
m^.x:=x;
end;

procedure Print;
var cur:TList;
begin
cur:=nov^.next;
while cur<> nil do
begin
write(cur^.x);
cur:=cur^.next;
end;
end;

procedure Look(var f:boolean);

var cur:TList;
s:char;
begin
f:=true;
cur :=nov^.next;
s:=nov^.x;
while cur<>nil do
begin
if cur^.x<s then f:=false;
s:=cur^.x;
cur:=cur^.next;
end;

end;

begin
writeln('kol-vo simvolov?');
readln(n);
clrscr;
f:=false;
New(nov);
nov^.next:=nil;
nov^.x:=#3;
for i:=1 to n do
begin
readln(x);
new(k);
Insert(nov,k,x);
end;
Look(f);
if f then writeln('Sort')
else writeln('NO');
Print;
readkey;
end.

И третья

program lab2no1;
uses crt;

type TList = ^Node;
node=record
x:real;
next:TList;
end;

var nov,k:TList;
x:real;
i,n:integer;

procedure Insert(var l,m:TList;x:real);
var cur:TList;

begin
cur:=l;
while cur^.next<>nil do
cur :=cur^.next;
cur^.next:=m;
m^.next:=nil;
m^.x:=x;
end;

procedure Print;
var cur:TList;
begin
cur:=nov^.next;
while cur<> nil do
begin
cur:=cur^.next;
end;
end;

procedure Look;

var cur:TList;
s:real;
begin
cur :=nov^.next;
s:=cur^.x;
while cur<>nil do
begin
if cur^.next=nil then writeln('summa:',s+cur^.x:6:0);
cur:=cur^.next;
end;
end;

begin
writeln('Skolko chisel?');
readln(n);
clrscr;
New(nov);
nov^.next:=nil;
nov^.x:=0;
for i:=1 to n do
begin
read(x);
new(k);
Insert(nov,k,x);
end;
Look;
Print;
readkey;
end.

или намекните хотябы

[spamer]

А можно вопрос, что вы хотите конкретно? Что у вас не получается?

[phantom4eg]

Я пытаюсь создать модули,но не получается... пишу с учебника,там указаны команды

unit xxx;
interface
описание процедур и функций
implementation
процедуры и функции
end.

я просто возможно не так делаю.. сдираю все до begin, вставляю куда надо,и не работает у меня сыро с этим..

[phantom4eg]

может поможет кто? здесь всегда выручали

[Levsha100]

А в Паскале разве есть модули? Если есть, то это для меня открытие

[phantom4eg]

Есть,пожалуйста http://www.helloworld.ru/texts/comp/.../bp70ug_07.htm

[DeKot]

unit xxx;
interface
описание процедур и функций
implementation
процедуры и функции
end.

- это все Дельфийское определение и работает в среде Delphi, а не Паскаль.

[Serge_Bliznykov]

Levsha100
DeKot
ДА ОКСТИТЕСЬ! Вы что??!!
В TurboPascal не было модулей?!?!?
и расширение TPU Вам о чём-нибудь говорит?!?!?!


___________________________________ _________________

phantom4eg, я не понимаю, что у Вас вызывает затруднение.
Вы же всё знаете (как должно быть!)
чтобы из программы сделать библиотеку (или модуль, или unit - это в данном случае синонимы) - надо:
вместо Program Lab1 написать Unit Lab1;
дальше, перенести описание типов и процедур/функций, которые должны быть доступны для программ, которые будут использовать данный модуль в секцию interface
а в секцию implementation написать собственно Ваш код.
Всё.
P.s.
1) не забудьте, что имя файла *.pas в ТОЧНОСТИ должно совпадать с именем модуля! (Unit Lab1 должен быть в файле Lab1.pas)
2) вызвать модуль напрямую нельзя - Вам надо будет написать дополнительную программу, которая вызывает функции из вашего модуля.

[DeKot]

To Serge_Bliznykov, я честно, паскаль только по книге почитал, практически осваивал в PascalABC (продукт Ростовского универа чисто для обучения языку).Он чем то схож с Дельфи - есть своя библиотека VCL, подключаемые модули и т.п , только вместо компилятора - интерпретатор.
Потом уже залез в Дельфи.Так что могу и ошибаться, за замечания только спасибо, яна критику не обижаюсь, а использую для образования дальше.

[phantom4eg]

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