Uygulama 04 - 26 şubat 2010

PROGRAM ORNEK; {RASTGELE NOKTA CIZDIRME}
USES CRT, GRAPH;
VAR GRAFIKSURUCU, GRAFIKKONUMU, X1, Y1, X2, Y2, i :INTEGER;

BEGIN
GRAFIKSURUCU:=DETECT;
INITGRAPH (GRAFIKSURUCU, GRAFIKKONUMU,'C:\TP\BGI');
IF GRAPHRESULT<>GROK THEN HALT(1);

CLEARDEVICE;

FOR i:= 0 TO 500 DO
BEGIN
SETCOLOR (RANDOM (7) );{0 ILE 7 ARASINDA RASTGELE RENK ATANIR}
LINE (RANDOM (GETMAXX), RANDOM (GETMAXY),GETMAXX , GETMAXY);
END;

READLN;
CLOSEGRAPH;
END.