18 lines
350 B
ObjectPascal
18 lines
350 B
ObjectPascal
// Äåìîíñòðàöèÿ èñïîëüçîâàíèÿ ñëó÷àéíûõ ÷èñåë äëÿ Ðîáîòà. Ñëó÷àéíîå áëóæäàíèå
|
|
uses Robot;
|
|
|
|
begin
|
|
Field(50,40);
|
|
while True do
|
|
begin
|
|
var r := Random(4);
|
|
case r of
|
|
0: if FreeFromUp then Up;
|
|
1: if FreeFromDown then Down;
|
|
2: if FreeFromLeft then Left;
|
|
3: if FreeFromRight then Right;
|
|
end;
|
|
Paint;
|
|
end;
|
|
end.
|