Orange-micro Interface The Grappler Instrukcja Użytkownika Pobierz pdf (Strona 14)

For Pascal Users:

PROGRAM DEMO,

USES TURTLEGRAPHICS, APPLESTUFF,

VAR ANGLE, DISTANCE: INTEGER;

PRINT, TEXT,

BEGIN

ANGLE;8-Ø;

INITTURTLE;

PNNCOLOR(NHITE);

FOR DISTANCE:= TO 99 DO

BEGIN

MOVE (2*DISTAMCE);

TURN ANGLE);

END,

REWRITE (PRINT,’PRINTER;"),

NRITELN (PRINT,CHR(25),G');(*USE CHR(25) [CTPL—Y]IN PASCAL*);

END.

—13—

1 2 ... 9 10 11 12 13 14 15 16 17 18 19

Ø), as follows: 2

Komentarze do niniejszej Instrukcji

Brak uwag