Программа на QBasic, рисуем город

15 ноября 2009

Очередная программа рисования, рисуем большой ночной город. CLS
RANDOMIZE TIMER
SCREEN 12
FOR R = 1 TO 100 STEP 2
X = INT(RND * 640 — R)
Y = INT(RND * 150 — R)
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
CIRCLE (X, Y), 1
PSET (X, Y)
NEXT R
FOR K = 0 TO 11
D = INT(RND(1) * 8 + 1)
FOR I = 1 TO D
Y = I * 42
X = K * 46 + 11
CIRCLE (50, 40), 25
LINE (X, 450 — Y)-(X + 36, 409 — Y), , B
FOR L = 1 TO 7
X1 = 4 * L
IF L < 4 OR L > 5 THEN LINE (X + X1, 420 — Y)-(X + 4 + X1, 420 — Y + 10), , B
NEXT L
NEXT I
LINE (X — 3, 390 — Y + 20)-(X + 17, 395 — Y) ‘-
LINE -(X + 39, 380 — Y + 29) ‘+
LINE (X + 17, 376 — Y + 15)-(X + 17, 376 — Y + 18) ‘chtur
LINE (X + 17, 385.5 — Y + 15)-(X + 17, 385.5 — Y + 18) ‘rechotka
CIRCLE (X + 17, 395 — Y + 7), 3
NEXT K
PAINT (40, 20)
180 IF INKEY$ = » » THEN 180
PRINT «CITY»

RSS-комментарии

Оставьте свой отзыв

Подписаться, не комментируя