| Код |
unit typest;
interface
type
tstack=^elem;
elem= record
data:integer;
next:tstack;
end;
procedure prstack(st:tstack);
procedure crst(var spis:tstack; n:integer);
procedure inst(var st:tstack; dt:integer);
procedure outst(var st:tstack;var dt:integer);
implementation
procedure prstack(st:tstack);
begin
while st<> nil do
begin
write(st^.data:3);
st:=st^.next;
end;
end;
procedure crst(var spis:tstack; n:integer);
var i:integer;
nach:tstack;
begin
nach:= nil;
for i := 1 to n do
begin
new(spis);
spis^.data:=random(n);
spis^.next:= nach;
nach:= spis;
end;
end;
procedure inst(var st:tstack; dt:integer);
var nach:tstack;
begin
nach:=st;
new(st);
st^.data:=dt;
st^.next:=nach;
nach:= st;
end;
procedure outst(var st:tstack;var dt:integer);
var nach:tstack;
begin
if st<> nil then
begin
dt:=st^.data;
st:=st^.next;
end;
end;
end.
|
вот создал модуль для стэка а он не пашет, когда его подключаешь. Я модуль запускал F9 нажимал, вроде все создалось, а когда компилирую прогу с подключеным модулем, он говорит, заметте, не "файл нот фаунд", а "unit name mismatch (unstack)". Файл зовется после компиляции unstack.tpu.
Подключаю в проге я его так "uses crt,unstack" |