Option Explicit

Rem p11
Rem Язык Visual Basic 5.0
Rem Основы программирования
Rem Ввод целых чисел - 2
Dim a As Integer, b As Integer, c As Integer
Dim d As Integer, e As Integer, f As Integer
Dim g As Integer, h As Integer, i As Integer
Dim j As Integer, k As Integer, l As Integer
Dim m As Single, n As Single, o As Single
Dim p As Single, q As Single, r As Single
Dim s As String
Private Sub C1_Click()
10 Cls
20 a = Fix(Val(T1)): b = Fix(Val(T2)): c = Fix(Val(T3))
30 d = a: e = b: f = c
40 If d = -32768 Or d = 0 Then d = 1
50 If e = -32768 Or e = 0 Then e = 1
60 If f = -32768 Or f = 0 Then f = 1
70 If d < 0 Then d = -d
80 If e < 0 Then e = -e
90 If f < 0 Then f = -f
100 Rem 47.3.11 Знак числа (signum)
110 g = 0
120 If a > 0 Then g = 1
130 If a < 0 Then g = -1
140 Print "11. Знак числа "; g
150 Rem 106.4.12
160 s = "12. небольшое"
170 If a > 10 Then s = "12. большое"
180 If a > 100 Then s = "12. очень большое"
190 Print s
200 Rem 108.5.13
210 g = a
220 While g >= 10
230 g = g - 10
240 Wend
250 Print "13. "; g
260 Rem 113.6.14 Деление целых чисел
270 g = d: h = e: i = 0
280 While g >= h
290 g = g - h: i = i + 1
300 Wend
310 Print "14."; d; "/"; e; "="; i; ", остаток"; g
320 Rem 114.9.15 Наименьший делитель числа
330 g = d: Rem Исходное число
340 h = 1: Rem Остаток от деления
350 i = 1: Rem Делитель числа
360 If g = 1 Then GoTo 400
370 While h > 0
380 i = i + 1: h = g Mod i
390 Wend
400 Print "15. Наименьший делитель числа"; i
410 Rem 31.2.16 Факториал числа
420 g = 1
430 If a > 7 Then GoTo 470
440 For h = 1 To a
450 g = g * h
460 Next
470 Print "16. "; a; "! ="; g
480 Rem 83.2.17 Сумма геометрической прогрессии
490 g = 1: Rem Сумма геометрической прогрессии
500 h = 1: Rem Очередной член прогрессии
510 If a > 15 Then GoTo 560
520 For i = 2 To a
530 h = h * 2
540 g = g + h
550 Next
560 Print "17. Сумма прогрессии"; g
570 Rem 83.3.18 Числа Фибоначчи
580 g = 1: h = 1: i = 1
590 s = "18. 1 1"
600 k = a
610 If k > 23 Then k = 23
620 For j = 3 To k
630 i = g + h
640 g = h: h = i
650 s = s & " " & h
660 Next
670 Print s
680 Rem 101.3.19 Строка *
690 s = "19. "
700 g = a
710 If g > 100 Then g = 100
720 For h = 1 To g
730 s = s & "*"
740 Next
750 Print s
760 Rem 117.3.20 Простые числа
770 s = "20."
780 g = a: Rem Максимальное простое число
790 If g > 100 Then g = 100
800 For i = 2 To g: Rem Проверяемое число
810 h = Int(Sqr(i)): Rem Максимальный возможный делитель числа
820 k = 0: Rem Флаг делимости числа
830 For j = 2 To h: Rem Проверяемый делитель
840 If i Mod j = 0 Then k = 1
850 Next
860 If k = 0 Then s = s & " " & i
870 Next
880 Print s
890 Rem 146.3.21 Возведение в степень a ^ b
900 g = 1
910 If a > 5 Or a < -5 Or b > 5 Then Print "21. неверные данные": GoTo 1000
920 For h = 1 To b
930 g = g * a
940 Next
950 Print "21. "; a; "^ "; b; "= "; g
1000 Rem 146.3.22 Возведение в степень a ^ b
1010 m = 1: g = b
1020 If a > 20 Or a < -20 Or b > 20 Or b < -20 Then
1030 Print "22. неверные данные": GoTo 1110
1040 End If
1050 If g < 0 Then g = -g
1060 For h = 1 To g
1070 m = m * a
1080 Next
1090 If b < 0 And m <> 0 Then m = 1 / m
1100 Print "22. "; a; "^ "; b; "= "; m
1110 Rem Конец процедуры
End Sub