Subversion Repositories svnkaklik

Compare Revisions

Ignore whitespace Rev 293 → Rev 294

/programy/Robsim/Robiada2007/sumo_kakl.lab
1,4 → 1,4
program sumo_kakl;
program example_program;
 
var i;
var ble;
13,7 → 13,7
RMOT := 30;
 
ble:=0;
while ble<100 do ble:=ble+1; end;
while ble<125 do ble:=ble+1; end;
 
LMOT := 30;
RMOT := -30;
20,18 → 20,37
 
while true
do
if LEYE < 0 then
if LEYE = 1 and REYE = 1 then
LMOT := 30;
RMOT := -30;
end;
 
if LEYE = 0 then
LMOT := -30;
continue;
end;
if REYE = 0 then
RMOT := -30;
ble:=0;
while ble<100 do ble:=ble+1; end;
continue;
end;
if REYE < 0 then
if LRTOUCH = 1 then
RMOT := -30;
LMOT := -20;
end;
if RRTOUCH = 1 then
LMOT :=-30;
RMOT :=-20;
end;
 
if RFTOUCH = 1 and LFTOUCH =1 then
LMOT :=30;
RMOT := 30;
end;
if RRTOUCH = 1 and LRTOUCH =1 then
LMOT := -30;
ble:=0;
while ble<100 do ble:=ble+1; end;
continue;
RMOT := -30;
end;
 
 
end;