Yön tuşları kullanılarak daireler çizebilen program.

5 KEY OFF
10 CLS
20 X = 0: Y = 0: SIL = 1
30 SCREEN 1
40 COLOR 0, 0
50 PSET (X, Y), 1
60 IF SIL = -1 THEN PRESET (X, Y)
70 A$ = INKEY$: A$ = RIGHT$(A$, 1)
80 X = X - (A$ = CHR$(77) AND X < 319) + (A$ = CHR$(75) AND X > 0)
90 Y = Y - (A$ = CHR$(80) AND Y < 199) + (A$ = CHR$(72) AND Y > 0)
100 IF A$ = CHR$(27) THEN SIL = -1 * SIL
105 IF A$ = "D" OR A$ = "d" THEN 120
110 GOTO 50
120 LOCATE 25, 1: INPUT ; "Yari Cap:", R
130 LOCATE 25, 1: PRINT STRING$(30, 32)
140 CIRCLE (X, Y), R, 1
150 GOTO 50

Beğeniler: 0
Favoriler: 0
İzlenmeler: 1650
favori
like
share
hasaneyn Tarih: 09.03.2009 18:19
bu proğran nerede?
hayalll Tarih: 12.09.2008 04:11
tşkler..