Musterlösung zu Aufgabe 4

MODULE Aufgabe4;

IMPORT C:=ColorPlane;

PROCEDURE ProgMain*;
VAR ch:CHAR; 
          i:INTEGER;

BEGIN
     C. Open ();
     FOR i:=0 TO 9 DO
          C. Box (100,100,120+i*20,120+i*20,1);
     END ;
     ch:= C. ReadKey();
END ProgMain;
END Aufgabe4.

Zurück zum Thema Grafik