Rem   p8
Rem   p8 - task 3 - book 1
Rem   Язык Visual Basic 5.0

Option Explicit

Rem   ba - координата x, bb - координата y, bc - ширина графика
Rem   bd - масштаб графика
Dim ba, bb, bc, bd As Integer
Rem   Координаты линии в 3D: (ea, eb, ec) - (ed, ee, ef)
Dim ea, eb, ec, ed, ee, ef As Single

Rem   Рисование системы координат
Function ga()
    Cls
    Line (ba, bb)-(ba - bc, bb - bc / 2), QBColor(8)
    Line (ba, bb)-(ba + bc, bb - bc / 2), QBColor(8)
    Line (ba, bb)-(ba, bb - bc), QBColor(15)
    Line (ba, bb)-(ba - bc, bb + bc / 2), QBColor(15)
    Line (ba, bb)-(ba + bc, bb + bc / 2), QBColor(15)
End Function

Rem   Рисование линии в 3D-координатах
Function gb()
    Line (ba - ea + eb, bb + (ea + eb) / 2# - ec)- _
        (ba - ed + ee, bb + (ed + ee) / 2# - ef), QBColor(14)
End Function

Rem   Функция, график которой надо построить
Function ha(a As Single, b As Single)
    ha = a / b
End Function

Private Sub Form_Load()
    ba = 400: bb = 400: bc = 380: bd = 50
End Sub

Private Sub Form_Paint()
    Dim a, b As Integer
    Dim c, d As Single
    
    ga
    For a = -bc To bc Step 10
        For b = -bc To bc
            If b = 0 Then GoTo aaa
            c = ha(a / CSng(bd), b / CSng(bd)) * bd
            If b > -bc And b <> 1 Then
                ea = a: eb = b: ec = c: ed = a: ee = b - 1: ef = d
                gb
            End If
            d = c
aaa:
        Next
    Next
End Sub

Option Explicit

Rem p6 - 1

Rem a - ms
Rem d - kmh

Private Sub C1_Click()
    Dim a As Integer
    Dim d As Single
    
    a = Val(T1.Text)
    d = a * 3.6
    L3.Caption = Format$(a) + " м/сек - это " + Format$(d) + " км/ч"
End Sub

Rem p7 - 2

Private Sub C2_Click()
    Dim a As Integer
    Dim d As Single
    
    If Len(T1.Text) = 0 Then
        L3.Caption = " Нужно ввести скорость "
    Else
        a = Val(T1.Text)
        d = a * 3.6
        L3.Caption = Format$(a) + " м/сек - это " + Format$(d) + " км/ч"
    End If
End Sub

Rem p7 - 3

Private Sub T1_KeyPress(g As Integer)
    If Not (g >= 48 And g <= 57 Or g = 8) Then g = 0
End Sub

Rem p8 - 4

Private Sub windspeed()
    Dim a As Integer
    Dim d As Single
    
    If Len(T1.Text) = 0 Then
        L3.Caption = " Нужно ввести скорость "
    Else
        a = Val(T1.Text)
        d = a * 3.6
        L3.Caption = Format$(a) + " м/сек - это " + Format$(d) + " км/ч"
    End If
End Sub

Rem p9 - 5

Private Sub C3_Click()
    Call windspeed
End Sub

Option Explicit

Rem   290.1. Даны декартовы координаты N точек на плоскости.
Rem   Составить программы решения следующих задач.
Rem   а) Найти две самые близкие друг к другу точки.
Rem   б) Найти две самые удалённые друг от друга точки.
Rem   в) Найти три точки, лежащие в вершинах треугольника
Rem   с наибольшим периметром.
Rem   г) Найти две ближайшие точки, отрезок между которыми может
Rem   служить радиусом окружности, заключающей внутри себя все
Rem   остальные точки. Указать, какая из них является центральной.

Private Sub C1_Click()
    Rem   Число точек
    Dim N As Integer
    N = 20
    
    Rem   Координаты точек
    Dim x(20) As Integer, y(20) As Integer
    Dim r(20, 20) As Single
    
    Dim a As Integer, b As Integer, c As Integer, d As Integer
    Dim g As String
    Dim j As Single
    
    Rem   1. Генерация точек
    For a = 1 To N
        x(a) = Rnd() * 100
        y(a) = Rnd() * 100
        g = "(" & x(a) & ", " & y(a) & ")"
        Print g
    Next
    
    Rem   2. Расчёт расстояний между точками
    For a = 1 To N
        For b = 1 To N
            c = x(a) - x(b)
            d = y(a) - y(b)
            r(a, b) = Sqr(c * c + d * d)
        Next
    Next
    
    Rem   3. Поиск минимального расстояния между точками
    c = 1
    d = 2
    j = r(1, 2)
    
    For a = 1 To N
        For b = a + 1 To N
            If r(a, b) < j Then
                c = a
                d = b
                j = r(a, b)
            End If
        Next
    Next
    
    g = "1. Минимум: r (" & c & ", " & d & ") = " & j & "."
    Print g
    
    Rem   4. Поиск максимального расстояния между точками
    c = 1
    d = 2
    j = r(1, 2)
    
    For a = 1 To N
        For b = a + 1 To N
            If r(a, b) > j Then
                c = a
                d = b
                j = r(a, b)
            End If
        Next
    Next
    
    g = "2. Максимум: r (" & c & ", " & d & ") = " & j & "."
    Print g

End Sub

10 REM p1
20 REM Язык Quick Basic 4.0
30 REM Input 3 int
40 DIM a AS INTEGER, b AS INTEGER, c AS INTEGER, d AS INTEGER, e AS INTEGER
50 DIM f AS INTEGER, g AS INTEGER, h AS INTEGER, i AS INTEGER, j AS INTEGER
60 DIM k AS INTEGER, l AS INTEGER, m AS INTEGER
70 DIM p: REM Число "пи"
80 DIM q, r
100 CLS
110 PRINT "Введите три целых числа:"
120 INPUT a, b, c
130 d = a: e = b: f = c
140 IF d = -32768 THEN d = 0
150 IF e = -32768 THEN e = 0
160 IF f = -32768 THEN f = 0
170 IF d < 0 THEN d = -d
180 IF e < 0 THEN e = -e
190 IF f < 0 THEN f = -f
200 g = d: h = e: i = f
210 IF g = 0 THEN g = 1
220 IF h = 0 THEN h = 1
230 IF i = 0 THEN i = 1
240 PRINT
250 p = 3.141592653589#
300 REM 186.1.1 Абсолютная величина числа
310 PRINT "1."; d
320 REM 186.2.2 Максимум из двух чисел
330 j = a
340 IF j < b THEN j = b
350 PRINT "2. Максимум "; j
360 REM 186.3.3
370 j = a: k = b
380 IF k > j THEN k = 1 ELSE j = 1
390 PRINT "3. "; j; ", "; k
400 REM 198.1.4 Знак числа y = sign x
410 j = 0
420 IF a < 0 THEN j = -1
430 IF a > 0 THEN j = 1
440 PRINT "4. "; j
450 REM 199.3.5 Упорядочение двух переменных
460 j = a: k = b
470 IF a > b THEN j = b: k = a
480 PRINT "5. "; j; ", "; k
490 REM 200.5.6 Оценки за предмет
500 IF a = 2 THEN PRINT "6. Это неудовлетворительно."
510 IF a = 3 THEN PRINT "6. Это удовлетворительно."
520 IF a = 4 THEN PRINT "6. Это хорошо."
530 IF a = 5 THEN PRINT "6. Это отлично."
540 IF a < 2 OR a > 5 THEN PRINT "6. Нет такой оценки."
550 REM 207.1.7 Упорядочение трех переменных
560 j = a: k = b: l = c
570 IF j > k THEN m = j: j = k: k = m
580 IF k > l THEN m = k: k = l: l = m
590 IF j > k THEN m = j: j = k: k = m
600 PRINT "7. "; j; ", "; k; ", "; l
610 REM 207.1.8 Максимум из трех переменных
620 j = a
630 IF j < b THEN j = b
640 IF j < c THEN j = c
650 PRINT "8. Максимум "; j
660 REM 45.2.9 Длина окружности
670 q = 2 * p * a
680 PRINT "9. Радиус "; a; ", длина окружности "; q
690 REM 68.10.10 Деление чисел
700 IF b = 0 THEN PRINT "10. Деление на ноль невозможно.": GOTO 730
710 j = a \ b: k = a MOD b
720 PRINT "10. Целая часть "; j; ", остаток от деления "; k
730 REM 75.13.11
740 IF a > 0 THEN j = 1: PRINT "11. Число"; a; "положительное, sign ="; j
750 IF a = 0 THEN j = 0: PRINT "11. Число"; a; "равно нулю, sign ="; j
760 IF a < 0 THEN j = -1: PRINT "11. Число "; a; "отрицательное, sign = "; j
770 REM 71.2.12 Наибольший общий делитель. Алгоритм Евклида.
780 j = g: k = h
790 WHILE j <> k
800 IF j > k THEN j = j - k ELSE k = k - j
810 WEND
820 PRINT "12. Наибольший общий делитель"; j
830 REM 145.1.13
840 j = d
850 IF a = -32768 THEN PRINT "13. Сумма 11": GOTO 920
860 IF j < 10 THEN PRINT "13. Сумма"; j: GOTO 920
870 k = j MOD 10
880 WHILE j > 9
890 j = j \ 10
900 WEND
910 PRINT "13. Сумма"; j + k
920 REM 145.2.14
930 j = a: k = 0
940 WHILE j <> 0
950 j = j \ 10: k = k + 1
960 WEND
970 IF k < 1 THEN k = 1
980 PRINT "14. Число цифр"; k
1000 REM 28.1.15
1010 j = 0
1020 IF a = 0 THEN j = 1
1030 IF a > 0 THEN j = 2
1040 PRINT "15. Число корней"; j
1050 REM 29.2.16
1060 IF a = 5 THEN PRINT "16. Отлично."
1070 IF a = 4 THEN PRINT "16. Хорошо."
1080 IF a = 3 THEN PRINT "16. Удовлетворительно."
1090 IF a = 2 THEN PRINT "16. Неудовлетворительно."
1100 IF a = 1 THEN PRINT "16. Плохо."
1110 IF a > 5 OR a < 1 THEN PRINT "16. Такой отметки нет."
1120 REM 106.4.17
1130 IF a > 100 THEN PRINT "17. Очень большое."
1140 IF a > 10 AND a <= 100 THEN PRINT "17. Большое."
1150 IF a <= 10 THEN PRINT "17. Небольшое."
1160 REM 108.5.18
1170 j = a
1180 WHILE j > 9
1190 j = j - 10
1200 WEND
1210 PRINT "18. "; j
1220 REM 113.6.19 Деление чисел
1230 j = d: k = h: l = 0
1240 WHILE j >= k
1250 j = j - k: l = l + 1
1260 WEND
1270 PRINT "19."; d; "/"; h; "="; l; ", остаток"; j
1280 REM 114.9.20 Наименьший делитель числа
1290 j = d: REM Исследуемое число
1300 k = INT(SQR(g)) + 1: REM Верхняя граница проверки
1310 l = 2: REM Проверяемый делитель
1320 m = j: REM Наименьший делитель числа
1330 WHILE l <= j AND l <= k
1340 IF j MOD l = 0 THEN m = l: GOTO 1370
1350 l = l + 1
1360 WEND
1370 PRINT "20. Наименьший делитель числа "; a; "равен"; m
1380 REM 182.1.21
1390 j = a
1400 IF j = 32767 THEN j = 0
1410 j = j + 1
1420 PRINT "21. "; j
1430 REM 68.11.22
1440 j = a: k = b
1450 IF j > 32765 THEN j = 0
1460 IF k > 32765 THEN k = 0
1470 j = j + 1: k = k + 1
1480 PRINT "22. "; j; ", "; k
1490 PRINT j + 1; ", "; k + 1
1500 REM 76.1.23
1510 IF a = 0 THEN PRINT "23. Число равно нулю." ELSE PRINT "23. Число не равно нулю."
1520 REM 10.1.24 Сумма двух чисел
1530 j = 0
1540 IF a > 10000 OR b > 10000 OR c > 10000 THEN j = 1
1550 IF a < -10000 OR b < -10000 OR c < -10000 THEN j = 1
1560 IF j = 1 THEN PRINT "- end 10000 -": GOTO 3000
1570 j = a: k = b
1580 l = j + k
1590 PRINT "24. Сумма "; l
1600 REM 82.1.25 Арифметическая прогрессия
1610 j = -1
1620 FOR k = 1 TO a
1630 j = j + 2
1640 NEXT
1650 PRINT "25. Элемент прогрессии "; j
1660 REM 15.4.26 Сумма арифметической прогрессии
1670 j = 0
1680 IF a > 200 OR b > 200 OR c > 200 THEN j = 1
1690 IF a < -200 OR b < -200 OR c < -200 THEN j = 1
1700 IF j = 1 THEN PRINT "- end 200 -": GOTO 3000
1710 j = 0
1720 FOR k = 1 TO a
1730 j = j + k
1740 NEXT
1750 PRINT "26. Сумма арифметической прогрессии"; j
1760 REM 65.1.27 Сумма арифметической прогрессии
1770 j = 0
1780 FOR k = a TO b
1790 j = j + k
1800 NEXT
1810 PRINT "27. "; j
1820 REM 71.1.28
1830 j = 0
1840 IF a > 100 OR b > 100 OR c > 100 THEN j = 1
1850 IF a < -100 OR b < -100 OR c < -100 THEN j = 1
1860 IF j = 1 THEN PRINT "- end 100 -": GOTO 3000
1870 j = a + b: k = a - b: l = a * b
1880 IF j < 0 THEN j = -j
1890 IF k < 0 THEN k = -k
1900 IF l < 0 THEN l = -l
1910 IF j = 0 OR k = 0 OR l = 0 THEN PRINT "28. 0.": GOTO 2000
1920 WHILE j <> k
1930 IF j > k THEN j = j - k ELSE k = k - j
1940 WEND
1950 WHILE j <> l
1960 IF j > l THEN j = j - l ELSE l = l - j
1970 WEND
1980 PRINT "28."; j
2000 REM 76.1.29
2010 IF a = 0 THEN PRINT "29. Число равно нулю." ELSE PRINT "29. Число не равно нулю."
2020 REM 13.2.30 Квадратное уравнение в целых числах
2030 j = 0
2040 IF a > 50 OR b > 50 OR c > 50 THEN j = 1
2050 IF a < -50 OR b < -50 OR c < -50 THEN j = 1
2060 IF j = 1 THEN PRINT "- end 50 -": GOTO 3000
2070 IF a = 0 THEN
2080 IF b = 0 THEN
2090 IF c = 0 THEN
2100 PRINT "30. Решение - любое число."
2110 ELSE
2120 PRINT "30. Решений нет."
2130 END IF
2140 ELSE
2150 PRINT "30. x = "; -c / b
2160 END IF
2170 ELSE
2180 j = b * b - 4 * a * c: REM Дискриминант уравнения в целых числах
2190 IF j < 0 THEN
2200 PRINT "30. Решений нет."
2210 ELSEIF j = 0 THEN
2220 PRINT "30. x = "; -b / 2 / a
2230 ELSE
2240 q = (-b - SQR(j)) / 2 / a
2250 r = (-b + SQR(j)) / 2 / a
2260 PRINT "30. x1 = "; q; ", x2 = "; r
2270 END IF
2280 END IF
3000 END