Turbo Pascal

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.

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)

aja, tocno ma snap prov, mal sm ene par programskih jezikov skp zmesu if ma pol vedno then na koncu!
Se opravicujem...

sem že zgruntal, da je to narobe, sem popravu, pa je delalo, ampak vseeno hvala.

Odpri cmd oziroma command, pojdi do mape in napiši ime programa.