27 Şubat 2010 Cumartesi

Uygulama 05 - 26 şubat 2010

PROGRAM ORNEK; {KLAVYEDEN BIR TUSA BASINCAYA KADAR 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;

REPEAT
SETCOLOR (RANDOM (7) );{0 ILE 7 ARASINDA RASTGELE RENK ATANIR}
LINE (RANDOM (GETMAXX), RANDOM (GETMAXY),RANDOM (GETMAXX), RANDOM (GETMAXY));
UNTIL KEYPRESSED;

READLN;
CLOSEGRAPH;
END.

Hiç yorum yok:

Yorum Gönder