10 REM p25

20 REM Язык GW-Basic
30 REM Живи, Бейсик!
40 REM Input 3 float
50 DIM A, B, C
60 DIM D, E, F
70 DIM G, H
100 PRINT "Введите три дробных числа:"
110 INPUT A, B, C
120 PRINT
200 REM 13.2.1 Квадратное уравнение
210 IF A = 0 AND B = 0 AND C = 0 THEN GOTO 310
220 IF A = 0 AND B = 0 THEN GOTO 320
230 IF A = 0 THEN E = -C / B: GOTO 330
240 D = B * B - 4 * A * C
250 IF D < 0 THEN GOTO 320
260 IF D = 0 THEN E = -B / 2 / A: GOTO 330
270 E = (-B - SQR (D)) / 2 / A
280 F = (-B + SQR (D)) / 2 / A
290 PRINT "1. x1 = " E ", x2 = " F
300 GOTO 340
310 PRINT "1. Решение - любое число.": GOTO 340
320 PRINT "1. Решений нет.": GOTO 340
330 PRINT "1. x = " E
340 REM 19.5.2 Возведение в степень z = x ^ y
350 IF A <= 0 THEN D = 0: GOTO 380
360 D = B * LOG (A)
370 IF D > 20 THEN D = 0 ELSE D = EXP (D)
380 PRINT "2. " A " ^ " B " =" D
390 REM 28.1.3
400 IF A < 0 THEN PRINT "3. Корней нет."
410 IF A = 0 THEN PRINT "3. Один корень."
420 IF A > 0 THEN PRINT "3. Два корня."
430 REM 29.3.4
440 D = A
450 IF D < 0 THEN D = 0
460 IF D > 1 THEN D = 1
470 PRINT "4." D
480 REM 45.1.5
490 D = ABS (2 * A + 1) - ABS (3 * A + 7)
500 PRINT "5. " D
510 REM 46.3.6 Радиус окружности
520 D = 3.141592653589#
530 E = 2 * D * A
540 F = D * A * A
550 PRINT "6. Радиус " A ", длина окружности " E ", площадь круга" F
560 REM 47.3.7 Знак числа y = sign x
570 E = 0
580 IF A < 0 THEN E = -1
590 IF A > 0 THEN E = 1
600 PRINT "7. sign " A "= " E
610 REM 50.7.8 Квадрат числа
620 PRINT "8. " A "^ 2 =" A * A
630 REM 61.2.9 Формула Герона
640 E = (A + B + C) / 2
650 F = E * (E - A) * (E - B) * (E - C)
660 IF F < 0 THEN F = 0 ELSE F = SQR (F)
670 PRINT "9. Площадь треугольника" F
680 REM 63.1.10
690 PRINT "10. " A / 2
700 REM 64.2.11 Гармонический ряд
710 G = 32767
720 IF G > 1 AND 1 / G < A THEN G = G - 1: GOTO 720
730 E = 0
740 FOR H = G TO 1 STEP -1
750 E = E + 1 / H
760 NEXT
770 PRINT "11. Сумма гармонического ряда" E
780 REM 84.4.12 Экспонента y = exp x
790 E = B: REM Малая величина: предел точности вычислений
800 IF E < .000001 THEN E = .000001
810 F = 1: REM Номер шага
820 G = 1: REM Сумма ряда экспоненты
830 H = 1: REM Очередной член ряда суммирования
840 IF ABS (A) > 10 THEN GOTO 890
850 H = H * A / F
860 F = F + 1
870 G = G + H
880 IF ABS (H) > E THEN GOTO 850
890 PRINT "12. exp " A " =" G
900 REM 85.5.13
910 E = 0
920 F = 1000
930 IF F > B THEN F = B
940 E = A + E
950 IF E < 0 THEN E = 0
960 E = SQR (E)
970 F = F - 1
980 IF F > 0 THEN GOTO 940
990 PRINT "13." E
1000 REM 110.8.14
1010 E = ABS (A + 1) + ABS (ABS (A) - B)
1020 PRINT "14." E
1030 REM 111.1.15 Модуль числа y = abs (x)
1040 E = A
1050 IF E < 0 THEN E = -E
1060 PRINT "15. Модуль числа" E
1070 END