Forum » Programiranje » Turbo Pascal
Turbo Pascal
b4d ::
Ellow,
1. Zanima me kje bi lahku dobiu Turbo Pascal 7, full version. Sem preiskau Googla, pa nič.
2. Kako nardit u Turbo Pascali (5.5) en simpl menu, npr. z dvema izbirama, 1. če napišeš load ti naredi eno proceduro v programu, 2. če napišeš info ti nardi neko drugo.
Hvala
1. Zanima me kje bi lahku dobiu Turbo Pascal 7, full version. Sem preiskau Googla, pa nič.
2. Kako nardit u Turbo Pascali (5.5) en simpl menu, npr. z dvema izbirama, 1. če napišeš load ti naredi eno proceduro v programu, 2. če napišeš info ti nardi neko drugo.
Hvala
b4d.sablun.org
daking ::
TP 7.0 dobis na klik!
Dlji si disk12.zip, disk34.zip in patchestp.zip. Gor je se niki literature.
Tole je en bedn programck k ubistvu nardi neki tazga kr si hotu, ampak nc konkretnga (dela v tp 7.0, seveda ce ni kksne manjse napake, za 5.5 pa ne vem)
var neki:string;
procedure proc1;
begin
end;
procedure proc2;
begin
end;
begin
writeln('1. load');
writeln('2.info');
writeln('Izbira: );
readln(neki);
if neki='load' do proc1;
if neki='info' do proc2;
end.
Dlji si disk12.zip, disk34.zip in patchestp.zip. Gor je se niki literature.
Tole je en bedn programck k ubistvu nardi neki tazga kr si hotu, ampak nc konkretnga (dela v tp 7.0, seveda ce ni kksne manjse napake, za 5.5 pa ne vem)
var neki:string;
procedure proc1;
begin
end;
procedure proc2;
begin
end;
begin
writeln('1. load');
writeln('2.info');
writeln('Izbira: );
readln(neki);
if neki='load' do proc1;
if neki='info' do proc2;
end.
b4d ::
Ej,
hvala za link, ampak sem ga že s KaZaA pobrau dol. Ta source pa še probam.
hvala za link, ampak sem ga že s KaZaA pobrau dol. Ta source pa še probam.
b4d.sablun.org
daking ::
var neki:string;
procedure proc1;
begin
end;
procedure proc2;
begin
end;
begin
writeln('1. load');
writeln('2.info');
writeln('Izbira: ');
readln(neki);
if neki='load' do proc1;
if neki='info' do proc2;
end.
Sam en manjsi popravk :o)
procedure proc1;
begin
end;
procedure proc2;
begin
end;
begin
writeln('1. load');
writeln('2.info');
writeln('Izbira: ');
readln(neki);
if neki='load' do proc1;
if neki='info' do proc2;
end.
Sam en manjsi popravk :o)
daking ::
aja, tocno ma snap prov, mal sm ene par programskih jezikov skp zmesu if ma pol vedno then na koncu!
Se opravicujem...
Se opravicujem...
|SNap| ::
mah ja... poznam to :)
pridem u dos pa pisem "ls" pa "rm -rf". najhuj so mi pa oklepaji v if stavkih, k nikol ne vem kaksni so kje.
pridem u dos pa pisem "ls" pa "rm -rf". najhuj so mi pa oklepaji v if stavkih, k nikol ne vem kaksni so kje.
b4d ::
sem že zgruntal, da je to narobe, sem popravu, pa je delalo, ampak vseeno hvala.
b4d.sablun.org
lole ::
živjo pred letom sm hodu na inšrukcije za pascal mal za hec in tega je že kr dolg časa zato sm se odloču da obudim spomine no in naredu sm en preprost program ki naj bi izpisu črke in pol ko dam run se mi za 100tinko sekunde pokaže pol pa zgine ...kaj ve že treba narest?
krompir!
Vredno ogleda ...
Tema | Ogledi | Zadnje sporočilo | |
---|---|---|---|
Tema | Ogledi | Zadnje sporočilo | |
» | Šah [Pacsal]Oddelek: Programiranje | 2219 (1822) | NeOman |
» | turbo pascal v XPOddelek: Programiranje | 904 (793) | _Mare_ |
» | [Turbo Pascal] Pomoč...Oddelek: Programiranje | 1465 (1367) | Grey |
» | Naloga iz PascalaOddelek: Programiranje | 895 (829) | Vesoljc |
» | Vprašanje za Pascal mojstreOddelek: Programiranje | 1442 (1217) | strobos |