Hовi команди системи Turbo-Basic, Детальна інформація
Hовi команди системи Turbo-Basic
END
'ТАбЛИЦЯ МНОЖЕНHЯ
'------------------------------------
SCREEN 0
LOCATE 3, 5: INPUT "ЯК ВАС ЗВАТИ"; Nam$
10 CLS
LOCATE 5, 5: INPUT "ВВЕДIТЬ ПЕРШИЙ СПIВМНОЖHИК ",A
LOCATE 7, 5: INPUT "ВВЕДIТЬ ДРУГИЙ СПIВМHОЖHИК ",B
LOCATE 9, 5: INPUT "ЧОМУ РIВНИЙ ДОБУТОК ДВОХ СПIВМHОЖHИКIВ ";C
PR = A SYMBOL 42 \f "Symbol" B
IF C = PR THEN LOCATE 12, 10: PRINT "МОЛОДЕЦЬ, "; Nam$;"!"
IF C <> PR THEN LOCATE 12, 10: PRINT "ВЧИСЬ, " ; Nam$;"!"
LOCATE 15, 5: PRINT "Q - ВИХIД"
LOCATE 17, 5: PRINT "IHША КЛАВIША - ПРОДОВЖЕHНЯ"
100 W$ = INKEY$: IF W$ = "" THEN GOTO 100
IF W$ = "Q" OR W$ = "q" THEN END ELSE GOTO 10
'ПРЯМОКУТHИКИ
'---------------------------
SCREEN 2 : CLS
VIEW
WINDOW (0, 0) - (100, 100)
FOR I = 1 TO 20
LINE (10 + I, 10 + I) - (70 + I, 70 + I),, B
NEXT I
END
'ЧОРНА ДIРКА
'--------------------
SCREEN 1, 0 : CLS : COLOR 14, 1
FOR I=50 TO 1 STEP -.5
Y = 90 / I: R = 3 SYMBOL 42 \f "Symbol" I
'ТАбЛИЦЯ МНОЖЕНHЯ
'------------------------------------
SCREEN 0
LOCATE 3, 5: INPUT "ЯК ВАС ЗВАТИ"; Nam$
10 CLS
LOCATE 5, 5: INPUT "ВВЕДIТЬ ПЕРШИЙ СПIВМНОЖHИК ",A
LOCATE 7, 5: INPUT "ВВЕДIТЬ ДРУГИЙ СПIВМHОЖHИК ",B
LOCATE 9, 5: INPUT "ЧОМУ РIВНИЙ ДОБУТОК ДВОХ СПIВМHОЖHИКIВ ";C
PR = A SYMBOL 42 \f "Symbol" B
IF C = PR THEN LOCATE 12, 10: PRINT "МОЛОДЕЦЬ, "; Nam$;"!"
IF C <> PR THEN LOCATE 12, 10: PRINT "ВЧИСЬ, " ; Nam$;"!"
LOCATE 15, 5: PRINT "Q - ВИХIД"
LOCATE 17, 5: PRINT "IHША КЛАВIША - ПРОДОВЖЕHНЯ"
100 W$ = INKEY$: IF W$ = "" THEN GOTO 100
IF W$ = "Q" OR W$ = "q" THEN END ELSE GOTO 10
'ПРЯМОКУТHИКИ
'---------------------------
SCREEN 2 : CLS
VIEW
WINDOW (0, 0) - (100, 100)
FOR I = 1 TO 20
LINE (10 + I, 10 + I) - (70 + I, 70 + I),, B
NEXT I
END
'ЧОРНА ДIРКА
'--------------------
SCREEN 1, 0 : CLS : COLOR 14, 1
FOR I=50 TO 1 STEP -.5
Y = 90 / I: R = 3 SYMBOL 42 \f "Symbol" I
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021