Witam
jestem począkującym pascalowcem, i mam problem. Zobaczyłem niedawno moduły i stwierdzilem, ze to pomoze mi rozwiazac problem nad ktorym dluygo sie mecze. napisalem taki oto modul:
MODULE krainy
interface
uses Dos, Crt;
var
komenda:string[1];
procedure A2;
procedure B1;
procedure B2;
procedure B3;
procedure C2;
Procedure D2;
Procedure D2;
begin
repeat
WriteLn ('Świątynia, N');
Readln(komenda);
if komenda = 'n' then C2
else writeln ('tam nie pojdziesz');
until komenda='n'
end;
Procedure C2;
begin
repeat
WriteLn ('Plac Świątynny, N S');
Readln(komenda);
if komenda = 'n' then B2
else if komenda = 's' then D2
else writeln ('tam nie pojdziesz');
until komenda='n' or 's';
end;
Procedure B2;
begin
repeat
WriteLn ('Skrzyzowanie, S W E');
Readln(komenda);
if komenda = 's' then C2
else if komenda = 'w' then B1
else if komenda = 'e' then B3
else writeln ('tam nie pojdziesz');
until komenda='e' or 's' or 'w';
end;
Procedure B1;
begin
repeat
WriteLn ('Ulica Syta, E');
Readln(komenda);
if komenda = 'e' then B2
else writeln ('tam nie pojdziesz');
until komenda='e'
end;
Procedure B2
begin
repeat
WriteLn ('Ulica Mantarska, W');
Readln(komenda);
if komenda = 'w' then B2
else writeln ('tam nie pojdziesz');
until komenda='w'
end;
(jakby ktos znalazl blad to prosze o poprawienie)
Problem lezy w tym, ze nie wiem jak uzyc w tego w programie (w uses wpisalem krainy) Jak musi byc zapisany ten modul? W katalogu z kompilatorem zobaczylem moduly DOS i CRT, ale w formatach PAS, UOB, ULK i USY. Czy moj modul musi byc zapisany we wszystkich? jesli tak, to w jaki sposob? pomozcie!
Syt--"Jeśli wszystko idzie dobrze, na pewno czegoś nie wiesz"
Pozdrawiam {hello}