10 REM p3

20 REM Язык GW-Basic
30 REM Живи, Бейсик!
40 REM Input 3 float
50 DIM A, B, C
60 DIM D, E, F
100 PRINT "Input 3 float:"
110 INPUT A, B, C
200 REM 190.1.1 Формула Герона
210 D = (A + B + C) / 2
220 E = D * (D - A) * (D - B) * (D - C)
230 IF E < 0 THEN E = 0
240 F = SQR (E)
250 PRINT "1. Площадь треугольника" F
260 REM 198.1.2 Знак числа, y = sign x
270 D = 0
280 IF A > 0 THEN D = 1
290 IF A < 0 THEN D = -1
300 PRINT "2. sign x = " D
310 REM 201.6.3 Возведение в степень z = y ^ x
320 D = 1
330 IF A > 8 OR B > 8 OR A < -8 OR B < -8 THEN D = 2
340 IF A <= 0 THEN PRINT "3. Возведение в степень 0": D = 2
350 IF D = 2 THEN 380
360 D = EXP (B * LOG (A))
370 PRINT "3. Возведение в степень" D
380 REM 203.2.4 Сумма гармонического ряда
390 D = 30000: E = 30000
400 IF A > 0 THEN E = INT (1 / A)
410 IF D > E THEN D = E
420 E = 0
430 FOR F = D TO 1 STEP -1
440 E = E + 1 / F
450 NEXT
460 PRINT "4. Сумма гармонического ряда" E
470 REM 46.3.5 Длина окружности
480 D = 3.1415926#
490 E = 2 * D * A
500 F = D * A * A
510 PRINT "5. Радиус " A ", длина окружности " E ", площадь круга" F
520 END