MLABlibrarysvnkaklikMLAB_E8magsvn

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /programy/Robsim/ @ 279

  → /programy/Robsim/ @ 280

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Ignore whitespace Rev 279 → Rev 280

/programy/Robsim/Robiada2007/kaklik.lab
1,79 → 1,64
program Orbis;
var line, movement, Rychlost;
#define L 1
#define S 2
#define R 3
line:=2;
Rychlost:=15; # omezeni rychlosti (hlavne pro ladici ucely)
while true
do
if LEYE = 1 and CEYE = 1 and REYE = 0 then
LMOT:=-1;RMOT:=Rychlost*0.75; # jed rovne
line:=1; # zaznamenej, kdes videl caru
movement:=1;
continue;
end;
if LEYE = 0 and CEYE = 1 and REYE = 1 then
LMOT:=Rychlost*0.75;RMOT:=-1;
line:=3;
movement:=3;
continue;
end;
if LEYE = 1 and CEYE = 0 and REYE = 0 then
LMOT:=-Rychlost/2;RMOT:=Rychlost; # jed rovne
line:=1; # zaznamenej, kdes videl caru
movement:=1;
continue;
end;
if LEYE = 0 and CEYE = 0 and REYE = 1 then
LMOT:=Rychlost;RMOT:=-Rychlost/2;
line:=3;
movement:=3;
continue;
end;
if (LEYE = 0 and CEYE = 1 and REYE = 0) then
LMOT:=Rychlost;RMOT:=Rychlost;
line:=2;
movement:=2;
continue;
end;
if (LEYE = 1 and CEYE = 1 and REYE = 1) then
if movement = 1 then
LMOT:=Rychlost;RMOT:=0;
line:=2;
# break;
elif movement = 2 then
LMOT:=Rychlost;RMOT:=Rychlost;
line:=2;
# break;
elif movement = 3 then
LMOT:=0;RMOT:=Rychlost;
line:=2;
end;
end;
if (LEYE = 0 and CEYE = 0 and REYE = 0) then
if line = 1 then
LMOT:=0;RMOT:=Rychlost;
line:=2;
movement:=1;
elif movement = 3 then
LMOT:=Rychlost;RMOT:=0;
line:=2;
movement:=3;
end;
end;
end;
#navaznost na verzi 277
program Orbis;
var line, movement, Rychlost;
#define L 1
#define S 2
#define R 3
line:=2;
Rychlost:=15; # omezeni rychlosti (hlavne pro ladici ucely)
while true
do
if LEYE = 1 and CEYE = 1 and REYE = 0 then
LMOT:=0;RMOT:=Rychlost; # jed rovne
line:=1; # zaznamenej, kdes videl caru
movement:=1;
continue;
end;
if LEYE = 0 and CEYE = 1 and REYE = 1 then
LMOT:=Rychlost;RMOT:=Rychlost;
line:=3;
movement:=2;
continue;
end;
if LEYE = 1 and CEYE = 0 and REYE = 0 then
LMOT:=0;RMOT:=Rychlost; # jed rovne
line:=1; # zaznamenej, kdes videl caru
movement:=1;
continue;
end;
if LEYE = 0 and CEYE = 0 and REYE = 1 then
LMOT:=Rychlost;RMOT:=0;
line:=3;
movement:=3;
continue;
end;
if (LEYE = 0 and CEYE = 1 and REYE = 0) then
LMOT:=Rychlost;RMOT:=Rychlost;
line:=2;
movement:=2;
continue;
end;
if (LEYE = 1 and CEYE = 1 and REYE = 1) then
LMOT:=0;RMOT:=Rychlost;
line:=2;
movement:=1;
continue;
end;
if (LEYE = 0 and CEYE = 0 and REYE = 0) then
LMOT:=Rychlost;RMOT:=0;
line:=2;
movement:=3;
end;
end;