Мова програмування Turbo-Basic

LOCATE 9, 5: INPUT; " ВВЕДIТЬ B: B = ", B

LOCATE 11, 5: INPUT; " ВВЕДIТЬ C: C = ", C

D = B^2 - 4 * A * C

IF D >= 0 THEN GOSUB 100 ELSE GOSUB 200

LOCATE 20, 5: PRINT "БУДЕТЕ ЩЕ РОЗВ'ЯЗУВАТИ ЗАДАЧУ? (Т/Н)";

50W$ = INKEY$: IF W$ = "" THEN GOTO 50

IF W$ = "Т" OR W$ = "т" THEN GOTO 10

IF W$ = "Н" OR W$ = "н" THEN CLS: END

BEEP: GOTO 50

100X1 = (-B + SQR(D)) / (2 * A)

X2 = (-B - SQR(D)) / (2 * A)

LOCATE 15, 10: PRINT " X1 = " ; X1;

LOCATE 16, 10: PRINT " X2 = " ; X2;

RETURN

200LOCATE 15, 10: PRINT "КОРЕНIВ НЕМАЄ!";

RETURN

'ПОШУК МIНIМУМУ ТА МАКСИМУМУ ВЕЛИЧИН, ЯКI ВВОДЯТЬСЯ З 'КЛАВIАТУРИ

'--------------------------------------------------------------------------------------------------------

DIM X(100)

Min = 999999 : Max = -999999

FOR I = 1 TO 25

10INPUT "Введiть дані ", X(I)

IF X(I) < 0 OR X(I) > 100 THEN BEEP: GOTO 10

NEXT I

FOR I = 1 TO 10