Pascalban meg lehet azt csinálni hogy ha a probram elér egy bizonyos részre akkor kezdje ekőröl a programot mondjuk a 15. sortól? (pl. : if a='xd' then kezd a 15. sornál a fordítást)

Mint már máshol írtam aranyszívem van :)

program paraszt;

var Command1 : string;

Parancs: array [0..3] of string[30] = ('?','MIVA','HAZA', 'UNOM');

i, van:integer;

begin

Command1:='';

while Command1<> 'UNOM' do

begin

Write('Na mivan gyökér, írjál má valamit :>');

van:=-1;

Readln(Command1);

Command1:=UpCase(Command1);

for i:=0 to 1 do

begin

if Command1=Parancs[i] then van:=i;

end;

case van of

0: begin

WriteLn('Parancsok: ? MIVA, HAZA, UNOM');

end;

1: begin

WriteLn('MIVA parancs');

end;

2: begin

WriteLn('HAZA parancs ');

end;

3: begin

WriteLn('UNOM parancs');

end;

else

begin

WriteLn('Nincs ilyen parancs');

end;

end;

end;

end.

Ezt javítsd ki

for i:=0 to 1 do

erre

for i:=0 to 3 do

A reggeli pálinka elvette a figyelmemet :)