Hовi команди системи Turbo-Basic, Детальна інформація
Hовi команди системи Turbo-Basic
LOCATE 9, 5: INPUT; " ВВЕДIТЬ B: B = ", B
LOCATE 11, 5: INPUT; " ВВЕДIТЬ C: C = ", C
D = B^2 - 4 SYMBOL 42 \f "Symbol" A SYMBOL 42 \f "Symbol" C
IF D >= 0 THEN GOSUB 100 ELSE GOSUB 200
LOCATE 20, 5: PRINT "БУДЕТЕ ЩЕ РОЗВ'ЯЗУВАТИ ЗАДАЧУ? (Т/Н)";
50 W$ = INKEY$: IF W$ = "" THEN GOTO 50
IF W$ = "Т" OR W$ = "т" THEN GOTO 10
IF W$ = "Н" OR W$ = "н" THEN CLS: END
BEEP: GOTO 50
100 X1 = (-B + SQR(D)) / (2 SYMBOL 42 \f "Symbol" A)
X2 = (-B - SQR(D)) / (2 SYMBOL 42 \f "Symbol" A)
LOCATE 15, 10: PRINT " X1 = " ; X1;
LOCATE 16, 10: PRINT " X2 = " ; X2;
RETURN
200 LOCATE 15, 10: PRINT "КОРЕНIВ НЕМАЄ!";
RETURN
'ПОШУК МIНIМУМУ ТА МАКСИМУМУ ВЕЛИЧИН, ЯКI ВВОДЯТЬСЯ З 'КЛАВIАТУРИ
'--------------------------------------------------------------------------------------------------------
DIM X(100)
Min = 999999 : Max = -999999
FOR I = 1 TO 25
10 INPUT "Введiть дані ", X(I)
IF X(I) < 0 OR X(I) > 100 THEN BEEP: GOTO 10
NEXT I
FOR I = 1 TO 10
IF X(I) < Min THEN Min = X(I)
IF X(I) > Max THEN Max = X(I)
NEXT I
PRINT "Мiнiмальне значення = "; Min
PRINT "Максимальне значення = "; Max
LOCATE 11, 5: INPUT; " ВВЕДIТЬ C: C = ", C
D = B^2 - 4 SYMBOL 42 \f "Symbol" A SYMBOL 42 \f "Symbol" C
IF D >= 0 THEN GOSUB 100 ELSE GOSUB 200
LOCATE 20, 5: PRINT "БУДЕТЕ ЩЕ РОЗВ'ЯЗУВАТИ ЗАДАЧУ? (Т/Н)";
50 W$ = INKEY$: IF W$ = "" THEN GOTO 50
IF W$ = "Т" OR W$ = "т" THEN GOTO 10
IF W$ = "Н" OR W$ = "н" THEN CLS: END
BEEP: GOTO 50
100 X1 = (-B + SQR(D)) / (2 SYMBOL 42 \f "Symbol" A)
X2 = (-B - SQR(D)) / (2 SYMBOL 42 \f "Symbol" A)
LOCATE 15, 10: PRINT " X1 = " ; X1;
LOCATE 16, 10: PRINT " X2 = " ; X2;
RETURN
200 LOCATE 15, 10: PRINT "КОРЕНIВ НЕМАЄ!";
RETURN
'ПОШУК МIНIМУМУ ТА МАКСИМУМУ ВЕЛИЧИН, ЯКI ВВОДЯТЬСЯ З 'КЛАВIАТУРИ
'--------------------------------------------------------------------------------------------------------
DIM X(100)
Min = 999999 : Max = -999999
FOR I = 1 TO 25
10 INPUT "Введiть дані ", X(I)
IF X(I) < 0 OR X(I) > 100 THEN BEEP: GOTO 10
NEXT I
FOR I = 1 TO 10
IF X(I) < Min THEN Min = X(I)
IF X(I) > Max THEN Max = X(I)
NEXT I
PRINT "Мiнiмальне значення = "; Min
PRINT "Максимальне значення = "; Max
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021