Subversion Repositories svnkaklik

Compare Revisions

Ignore whitespace Rev 292 → Rev 293

/programy/Robsim/Robiada2007/sumo_kakl.lab
0,0 → 1,37
program sumo_kakl;
 
var i;
var ble;
 
LMOT := 30;
RMOT := -30;
 
ble:=0;
while ble<25 do ble:=ble+1; end;
 
LMOT := 30;
RMOT := 30;
 
ble:=0;
while ble<100 do ble:=ble+1; end;
 
LMOT := 30;
RMOT := -30;
 
while true
do
if LEYE < 0 then
LMOT := -30;
RMOT := -30;
ble:=0;
while ble<100 do ble:=ble+1; end;
continue;
end;
if REYE < 0 then
RMOT := -30;
LMOT := -30;
ble:=0;
while ble<100 do ble:=ble+1; end;
continue;
end;
end;