Subversion Repositories svnkaklik

Rev

Details | Last modification | View Log

Rev Author Line No. Line
282 kaklik 1 
program Orbis;
2 
 
3 
var line, Rychlost, Zataceni;
4 
 
5 
#define L 1
6 
#define S 2
7 
#define R 3
8 
 
9 
line:=2;
10 
 
11 
Rychlost:=15;		# omezeni rychlosti (hlavne pro ladici ucely)
12 
Zataceni:=0.75;
13 
 
14 
while true
15 
do
16 
  if LEYE = 0 and CEYE = 1 and LEYE = 0 then
17 
    LMOT:=Rychlost;RMOT:=Rychlost;
18 
    line:=2;
19 
    continue;
20 
  end;
21 
 
22 
  if LEYE = 1 and CEYE = 1 then		# Cara pod levim sensorem
23 
    LMOT:=0;RMOT:=Rychlost*Zataceni;			# jed rovne
24 
    line:=1;		# zaznamenej, kdes videl caru
25 
    continue;
26 
  end;
27 
 
28 
  if REYE = 1 and CEYE = 1 then
29 
    LMOT:=Rychlost*Zataceni;RMOT:=0;
30 
    line:=3;
31 
    continue;
32 
  end;
33 
 
34 
 
35 
end;