ریاضیات

REM PROGRAM NO. 32 (QBASIC)

SCREEN 8

RANDOMIZE TIMER

DIM NUMBER AS INTEGER

DIM I AS INTEGER

DIM N AS INTEGER, M AS INTEGER, X AS INTEGER

DIM Z AS INTEGER, Y AS INTEGER

DIM MARK AS SINGLE

DIM C AS INTEGER

LINE (1, 1)-(600, 185), 3, B

LOCATE 13, 30: INPUT " NUMBER = "; NUMBER

MARK = 0

FOR I = 1 TO NUMBER

CLS

C = INT(RND * 9) + 1

' Frame and decoration (approx. from image)

LINE (1, 1)-(600, 180), C, B

LINE (230, 5)-(320, 25), C, B

LINE (280, 25)-(280, 30), C

CIRCLE (280, 45), 50, C, , , .25

LINE (280, 60)-(280, 65), C

LINE (240, 65)-(320, 80), C, B

LINE (280, 80)-(280, 85), C

LINE (280, 115)-(280, 125), C

CIRCLE (280, 100), 50, C, , , .25

LINE (230, 125)-(320, 150), C, B

' Random values 0..9

N = INT(RND * 10)

M = INT(RND * 10)

X = INT(RND * 10)

' Display / Inputs (layout may be adjusted)

LOCATE 2, 34: PRINT N * M

LOCATE 6, 34: PRINT ":"; M

LOCATE 10, 34: INPUT Z

LOCATE 13, 34: PRINT "+"; X

LOCATE 17, 34: INPUT Y

IF (Z = N) AND (Y = Z + X) THEN

MARK = MARK + 20 / NUMBER

BEEP

END IF

NEXT I

LOCATE 21, 5: PRINT "-----------------------------"

LOCATE 22, 12: PRINT "MARK = "; MARK

END