QBasic: Графические задачи 1

1. Фигуры на основе сферы

CLS

WINDOW (0, 0)-(200, 180)

INPUT a

SELECT CASE a

REM Сфера из эллипсов

CASE 1:

FOR i = 1 TO 40

r = SQR(ABS(20 * 20 - (20 - y) * (20 - y)))

y = y + 1

CIRCLE (100, 90 - y), r, 10, , , .5

NEXT i

REM Шарик на подставке

CASE 2:

FOR i = 1 TO 55

r = SQR(ABS(20 * 20 - (20 - y) * (20 - y)))

y = y + 1

CIRCLE (100, 90 - y), r, 10, , , .5

NEXT i

REM Полусфера

CASE 3:

FOR i = 1 TO 20

r = SQR(ABS(20 * 20 - (20 - y) * (20 - y)))

y = y + 1

CIRCLE (100, 90 - y), r, 10, , , .5

NEXT i

REM Песочные часы

CASE 4:

FOR i = 1 TO 40

r = SQR(ABS(0 * 0 - (20 - y) * (20 - y)))

y = y + 1

CIRCLE (100, 90 - y), r, 10, , , .5

NEXT i

CASE 5:

FOR i = 1 TO 40

r = SQR(ABS(10 * 10 - (20 - y) * (20 - y)))

y = y + 1

CIRCLE (100, 90 - y), r, 10, , , .5

NEXT i

REM Яйцо

CASE 6:

FOR i = 1 TO 40

r = SQR(ABS(20 * 20 - (20 - y) * (20 - y)))

y = y + 1

CIRCLE (100, 90 - y), r, 10, , , .8

NEXT i

REM Чашка с крышкой

CASE 7:

FOR i = 1 TO 40

r = SQR(ABS(10 * 10 - (10 - y) * (10 - y)))

y = y + 1

CIRCLE (100, 160 - y), r, 10, , , .5

NEXT i

FOR i = 1 TO 35

r = SQR(ABS(30 * 30 - (10 - y) * (10 - y)))

y = y - 1

CIRCLE (100, 110 - y), r, 4, , , .5

NEXT i

END SELECT

1. Система координат + несколько графиков функций

CLS

SCREEN 9

WINDOW (-100, -100)-(100, 100)

LINE (0, -100)-(0, 100)

LINE (-100, 0)-(100, 0)

FOR i = -100 TO 100 STEP 10

LINE (-1, i)-(1, i)

LINE (i, -1)-(i, 1)

NEXT i

o = -90

FOR d = 3 TO 75 STEP 4

LOCATE 14, d

PRINT o

o = o + 10

NEXT d

FOR i = 1 TO 7

LOCATE 1, 10

INPUT "vvedite chislo"; n

SELECT CASE n

CASE 1:

FOR x = -100 TO 100 STEP .01

y = SIN(x * .1)

PSET (x, y * 50), 14

NEXT x

C

PSET (x, y), 4

u = u + 1 / r

NEXT i

END SELECT

LOCATE 1, 10

PRINT " "

NEXT i

FOR x = -100 TO 100 STEP .01

y1 = x * x

PSET (x, y1 * .3), 3

NEXT x

CASE 3:

FOR x = -100 TO 100 STEP .01

y2 = x * x * x

PSET (x, y2 * .02), 9

NEXT x

CASE 4:

FOR x = -100 TO 100 STEP .01

y3 = COS(x * .1)

PSET (x, y3 * 50), 5

NEXT x

CASE 5:

FOR x = -100 TO 100 STEP .01

y4 = COS(x * x * .001) + SIN(x * x * .001)

PSET (x, y4 * 50), 10

NEXT x

CASE 6:

FOR x = -100 TO 100 STEP .01

y5 = SIN((x + 10) * .1)

PSET (x, y5 * 50), 11

NEXT x

CASE 7:

r = 50

FOR i = 1 TO 100 STEP .1

x = r * COS(u)

y = r * SIN(u)

3