Три книги, учебники программирования Опции

[jura_k]

У меня есть три книги - учебники по программированию. Я не могу их прочитать вот уже 20 лет. В прошлом году я решил опять начать с начала. Вот эти книги:

(1) Основы информатики и вычислительной техники. Часть II. 1986 г.
(2) Б.И. Березин, С.Б. Березин. "Начальный курс C и C++". 1999 г.
(3) И.Г. Семакин, А.П. Шестаков. "Основы программирования". 2001 г.

Я собираюсь прочитать их в едином ключе. То есть попробовать прочитать все три книги так, будто это единый учебник по программированию. Что я собираюсь сделать? Текст книги разделяется на две части: теорию и задачи. В теории тоже есть задачи, учебные примеры, тексты программ. Я их выискиваю и записываю номера задач (начиная с номера страницы, где эта задача расположена), чтобы их можно было легко потом найти.

Далее я пишу программы. Задачи я решаю сам. Ненавижу списывать готовые решения. Но если решать просто так, все задачи подряд, получается ералаш. Я так раньше и делал, но получается белиберда. Вот такой список задач получается в итоге:

» Кликните сюда для просмотра оффтоп текста.. «

/* p1 - задачи */

171.1, 172.2, 172.3, 177.1, 182.1
182.2, 182.3, 185.1, 186.1, 186.2
186.3, 188.1, 190.1, 193.1, 193.2
196.1, 197.1, 197.2, 198.1, 198.2
199.3, 199.4, 200.5, 201.6, 202.1

203.2, 204.3, 204.4, 205.1, 205.2
205.3, 207.1, 209.2, 210.3, 210.4
211.5, 213.1, 214.6, 215.7, 216.8
218.1, 219.2, 219.3, 220.4, 221.5
225.1, 226.1, 227.2, 230.1, 231.2

232.1, 232.2, 233.3, 42.1, 45.2
46.3, 47.4, 47.5, 49.6, 50.7
54.8, 55.9, 59.1, 59.7, 60.8
61.9, 62.1, 65.9, 68.10, 68.1
68.11, 69.12, 73.1, 73.2, 74.3

75.13, 75.14, 77.15, 77.16, 79.1
79.2, 79.3, 79.4, 79.17, 80.1
80.18, 81.19, 81.20, 82.21, 85.22
85.23, 86.24, 87.25, 89.26, 91.27
91.28, 92.29, 92.30, 94.31, 94.32

95.33, 96.32, 98.1, 98.2, 98.3
99.4, 99.5, 99.6, 99.7, 100.33
100.34, 101.35, 101.36, 102.37, 106.38
107.39, 108.40, 109.41, 110.42, 112.43
112.44, 113.1, 114.1, 115.2, 115.3

116.45, 118.46, 119.1, 120.47, 121.48
139.53, 30.1, 31.2, 32.3, 59.1
60.2, 61.1, 63.1, 64.2, 65.1
67.1, 67.2, 70.1, 71.1, 71.2
76.1, 78.1, 78.2, 78.3, 82.1

83.2, 83.3, 84.4, 85.5, 87.6
101.1, 101.2, 101.3, 102.4, 102.5
109.1, 109.2, 109.3, 109.1, 110.2
111.3, 111.4, 116.1, 116.2, 117.3
118.4, 139.1, 141.2, 142.3, 145.1

145.2, 146.3, 147.1, 148.1, 148.2
10.1, 13.3, 15.4, 28.1, 29.2
29.3, 33.1, 34.2, 35.3, 36.4
36.4, 37.5, 40.8, 40.9, 44.1
45.1, 46.2, 46.3, 47.3, 48.4

49.5, 49.6, 49.6, 50.7, 53.1
54.2, 55.1, 58.1, 60.1, 61.2
63.1, 65.1, 65.2, 65.3, 68.1
104.1, 105.2, 106.3, 106.3, 106.4
107.4, 108.5, 108.6, 108.6, 109.7

110.8, 110.9, 110.10, 110.11, 111.9
111.1, 111.2, 112.3, 112.4, 113.5
113.6, 113.7, 114.8, 114.9, 115.10
11.1, 13.2, 16.3, 18.4, 19.5

-----------

Аргументы функции main (): p111-113
Множественный тип данных: p113-119
Объектно-ориентированное программирование: p250-261, p152-169
Переменное число параметров: p114-116
Подпрограммы: 50.7, p145-152

Потоковый ввод-вывод: p195-196, p261-265
Переменное число параметров: p114-116
Препроцессор, перечислимый тип: p180-181, p132-137, p40-42
Связанные списки: p135-145
Структуры: p234-240, p123-131, p129-135

Текстовый экран: p146-153, p48-57
Указатели: p223-229, p89-101, p116-117, p119-123, p135-145
Файлы: p240-250, p139-146, p119-129
Форматированный вывод: p261-265, p163-166

----------

Basic: p70-77

Графика: p153-162, p88-98

29.3, 38.6, 39.7, 44.1, 45.1
45.2, 45.3, 46.1, 46.2, 46.3
47.3, 62.1, 110.8, 110.9, 110.10
110.11, 188.1, 198.2

[jura_k]

- - - - - - - -

Далее нужно собрать компьютер для программирования. Я взял очень мощный компьютер: Celeron 333 MHz, RAM 128 Mb, HDD IDE 60 Gb. Менее мощного не нашлось.
На HDD я разбил внушительный диск C: размером 100 Mb в формате FAT16.
Установил туда MS-DOS, русификатор (без русификатора тоже можно, но как-то тяжко), языки программирования "Turbo C 2.0" и "Microsoft Basic 4.0". Самое маленькое, что у меня нашлось.
Всё вместе это заняло где-то 2-3 Mb места. И осталось ещё около 100 Mb для собственно творчества.

К сожалению, жёсткий диск HDD оказался настолько мощным, что у моего очередного импульсного блока питания не хватило мощности, чтобы его запустить. Пришлось переставить HDD IDE на ещё более мощный компьютер: Celeron 1700 MHz, RAM 512 Mb. Но это обходное решение, без которого можно обойтись.

[jura_k]

Теперь у меня есть список задач из всех трёх книг. Как их решать? Если решать всё подряд, то получается белиберда, которую невозможно читать. Как говорится, "чёрт-те-что и сбоку хвостик".
Я решил внести хоть какую-то упорядоченность. Поэтому я разбил все задачи по категориям, в первую очередь - по входным данным: а) на входе три целых числа; б) вводить ничего не надо; в) на входе 6 целых чисел; г) на входе три дробных числа и так далее. Получилось следующее разбиение:

» Кликните сюда для просмотра оффтоп текста.. «

/* p2 - задачи */

171.1, 172.2, 172.3, 177.1, 182.1
182.2, 182.3, 185.1, 186.1, 186.2
186.3, 188.1, 190.1, 193.1, 193.2
196.1, 197.1, 197.2, 198.1, 198.2
199.3, 199.4, 200.5, 201.6, 202.1

203.2, 204.3, 204.4, 205.1, 205.2
205.3, 207.1, 209.2, 210.3, 210.4
211.5, 213.1, 214.6, 215.7, 216.8
218.1, 219.2, 219.3, 220.4, 221.5
225.1, 226.1, 227.2, 230.1, 231.2

232.1, 232.2, 233.3, 42.1, 45.2
46.3, 47.4, 47.5, 49.6, 50.7
54.8, 55.9, 59.1, 59.7, 60.8
61.9, 62.1, 65.9, 68.10, 68.1
68.11, 69.12, 73.1, 73.2, 74.3

75.13, 75.14, 77.15, 77.16, 79.1
79.2, 79.3, 79.4, 79.17, 80.1
80.18, 81.19, 81.20, 82.21, 85.22
85.23, 86.24, 87.25, 89.26, 91.27
91.28, 92.29, 92.30, 94.31, 94.32

95.33, 96.32, 98.1, 98.2, 98.3
99.4, 99.5, 99.6, 99.7, 100.33
100.34, 101.35, 101.36, 102.37, 106.38
107.39, 108.40, 109.41, 110.42, 112.43
112.44, 113.1, 114.1, 115.2, 115.3

116.45, 118.46, 119.1, 120.47, 121.48
139.53, 30.1, 31.2, 32.3, 59.1
60.2, 61.1, 63.1, 64.2, 65.1
67.1, 67.2, 70.1, 71.1, 71.2
76.1, 78.1, 78.2, 78.3, 82.1

83.2, 83.3, 84.4, 85.5, 87.6
101.1, 101.2, 101.3, 102.4, 102.5
109.1, 109.2, 109.3, 109.1, 110.2
111.3, 111.4, 116.1, 116.2, 117.3
118.4, 139.1, 141.2, 142.3, 145.1

145.2, 146.3, 147.1, 148.1, 148.2
10.1, 13.3, 15.4, 28.1, 29.2
29.3, 33.1, 34.2, 35.3, 36.4
36.4, 37.5, 40.8, 40.9, 44.1
45.1, 46.2, 46.3, 47.3, 48.4

49.5, 49.6, 49.6, 50.7, 53.1
54.2, 55.1, 58.1, 60.1, 61.2
63.1, 65.1, 65.2, 65.3, 68.1
104.1, 105.2, 106.3, 106.3, 106.4
107.4, 108.5, 108.6, 108.6, 109.7

110.8, 110.9, 110.10, 110.11, 111.9
111.1, 111.2, 112.3, 112.4, 113.5
113.6, 113.7, 114.8, 114.9, 115.10
11.1, 13.2, 16.3, 18.4, 19.5

-----------

No input:

171.1, 172.2, 177.1, 182.2, 182.3
185.1, 193.1, 193.2, 205.3, 205.4
210.3, 215.7, 216.8, 218.1, 219.2
219.3, 220.4, 221.5, 225.1, 226.1
227.2, 230.1, 42.1, 47.4, 47.5

49.6, 50.7, 54.8, 59.1, 59.7
68.11, 69.12, 73.1, 79.1, 79.2
79.3, 80.1, 81.19, 81.20, 82.21
85.23, 87.25, 89.26, 91.27, 91.28
92.29, 92.30, 94.31, 94.32, 96.32

99.7, 100.33, 100.34, 101.35, 101.36
102.37, 106.38, 107.39, 108.40, 109.41
110.42, 112.43, 112.44, 114.1, 115.2
115.3, 116.45, 118.46, 120.47, 121.48
139.53, 67.2, 67.3, 70.1, 78.1

78.2, 87.6, 101.1, 101.2, 109.1
109.2, 109.3, 109.1, 110.2, 111.3
111.4, 118.4, 139.1, 141.2, 142.3
147.1, 148.1, 148.2, 33.1, 34.2
35.3, 36.4, 36.4, 37.5, 40.8

40.9, 48.4, 49.6, 63.1, 65.1
65.2, 65.3, 107.4, 109.7, 114.8
117.3, 108.6, 108.6, 101.3, 83.3
50.7

----- - - -

Input 3 int:

182.1, 186.1, 186.2, 186.3, 190.1
196.1, 197.1, 198.2, 199.3, 199.4
200.5, 201.6, 201.6, 202.1, 204.3
207.1, 210.4, 213.1, 214.6, 45.2
68.10, 68.1, 68.11, 73.1, 73.2

74.3, 75.13, 80.18, 95.33, 98.1
98.1, 98.2, 113.1, 119.1, 31.2
61.1, 63.1, 65.1, 67.1, 71.1
71.2, 76.1, 76.2, 78.3, 82.1
83.2, 83.3, 101.3, 117.3, 118.4

141.2, 142.3, 145.1, 145.2, 146.3
146.3, 10.1, 13.3, 15.4, 28.1
29.2, 44.1, 46.2, 46.3, 47.3
49.5, 49.6, 50.7, 58.1, 60.1
61.2, 68.1, 104.1, 105.2, 106.3

106.3, 106.4, 108.5, 108.6, 108.6
109.7, 111.1, 111.2, 112.3, 112.4
113.5, 113.6, 113.7, 114.9, 13.2
16.3, 18.4, 19.5, 19.5

----- - - -

Input 6 int:

172.3, 188.1, 62.1, 30.1, 59.1
60.2, 147.1, 11.1

Input 3 float:

190.1, 196.1, 198.2, 199.4, 201.6
203.2, 46.3, 75.14, 98.1, 63.1
64.2, 84.4, 85.5, 146.3, 28.1
29.3, 45.1, 47.3, 58.1, 61.2
104.1, 110.8, 110.9, 110.10, 110.11
111.1, 112.3, 13.2, 19.5, 98.1
146.3

Input 8 float:

211.5, 59.1

----- - - -

Input string:

230.1, 231.2, 232.1, 232.2, 233.3
55.9, 60.8, 61.9, 65.9, 77.15
77.16, 79.17, 85.22, 85.23, 86.24
87.25, 94.31, 94.32, 99.6, 67.2
67.3, 101.1, 101.2, 101.3, 102.4

102.5, 116.1, 116.2, 118.4, 53.1
54.2, 55.1, 115.10, 117.3, 101.3
83.3, 50.7, 79.3, 118.4, 101.3
107.4

- - -

50.7, 53.1, 54.2, 55.1, 55.9
60.8, 61.9, 65.9, 67.2, 67.3
77.15, 77.16, 79.3, 79.17, 83.3
85.22, 85.23, 86.24, 87.25, 94.31
94.32, 99.6, 101.1, 101.2, 101.3

102.4, 102.5, 107.4, 115.10, 116.1
116.2, 117.3, 118.4, 230.1, 231.2
232.1, 232.2, 233.3

----------- - - -

Input 3 int - язык C:

50.7, 95.33, 108.6, 108.6, 118.4
141.2, 142.3

Большие программы:

50.7, 80.18, 83.3, 95.33, 101.3
117.3, 118.4, 139.1, 141.2, 142.3

Графика: p88-98, p153-162

29.3, 38.6, 39.7, 44.1, 45.1
45.2, 45.3, 46.1, 46.2, 46.3
47.3, 62.1, 110.8, 110.9, 110.10
110.11, 188.1, 198.2

[jura_k]

- - - - - - -

Казалось бы, теперь можно решать.
В качестве базового языка программирования я выбрал самый древний, на котором учился программировать: Бейсик-Микрон, Basic-G, GW-Basic (читается как "Живи, Бейсик!).

И тут вдруг выяснилось, что в этом языке программирования нет целых чисел. Ну нет их, и всё тут! Когда мы пишем объявление переменных типа

Dim A, B, C

, то по умолчанию создаются три переменных ДРОБНОГО типа (то есть с плавающей запятой). И как мне теперь решать задачи, в которых оперируют с целыми числами? Подход принципиально различный. И ведь таких задач большинство.
Конечно, целые числа в Бейсике есть. Но там нужно добавлять суффикс. Так же, как и для работы со строками ($).

Поэтому работу с "самым древним языком программирования" пришлось отложить. До того момента, как мне понадобятся дробные числа.

Ну а пока я решил воспользоваться более "продвинутым" языком программирования - "Microsoft Basic 4.0". Он нашёлся у меня на CD для программистов. И что особенно важно: там есть HELP со справкой по всем командам языка.

Там уже есть целые числа. Объявление выглядит так:

Dim A as integer, B as integer, C as integer

Если же мне нужны дробные числа, то нужно писать вот так:

Dim D as single, E as single

- - - - - - -

Таким образом мне удалось прорешать большинство задач из категорий "ввести три целых числа" и "ничего не вводить".
При решении задач с целыми числами постоянно приходилось следить, чтобы эти целые числа не были больше, чем 32767 и меньше, чем -32768, потому что при возникновении таких чисел ВНУТРИ программы она останавливала свою работу, выдавала сообщение о переполнении и завершалась. И таких программ было МНОГО.

Получилась программа:

» Кликните сюда для просмотра оффтоп текста.. «

Код

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

[jura_k]

Три варианта решения задачи "Числа Фибоначчи".

» Кликните сюда для просмотра оффтоп текста.. «

Код

10 REM p4
20 REM Язык Quick Basic 4.0
30 REM Числа Фибоначчи - 1
40 REM Задача 83.3
50 DIM a AS INTEGER, b AS INTEGER, c AS INTEGER
60 a = 1: b = 1
70 c = a + b
80 PRINT a, b, c
90 a = b: b = c
100 IF c < 20000 THEN GOTO 70
110 END

» Кликните сюда для просмотра оффтоп текста.. «

Код

10 REM p5
20 REM Язык Quick Basic 4.0
30 REM Числа Фибоначчи - 2
40 REM Задача 83.3
50 DIM a AS LONG, b AS LONG, c AS LONG
60 a = 1: b = 1
70 c = a + b
80 PRINT a, b, c
90 a = b: b = c
100 IF c < 1500000000 THEN GOTO 70
110 END

» Кликните сюда для просмотра оффтоп текста.. «

Код

10 REM p6
20 REM Язык Quick Basic 4.0
30 REM Числа Фибоначчи - 3
40 REM Задача 83.3
50 DIM a(80) AS INTEGER, b(80) AS INTEGER, c(80) AS INTEGER
60 DIM d AS INTEGER, e AS INTEGER, f AS INTEGER, g AS INTEGER
70 FOR d = 1 TO 80
80 a(d) = 0: b(d) = 0: c(d) = 0
90 NEXT
100 SCREEN 0
110 CLS
120 a(1) = 1: b(1) = 1
130 f = 1: g = 1

200 FOR d = 1 TO 80
210 c(d) = a(d) + b(d)
220 NEXT

250 FOR d = 1 TO 79
260 c(d + 1) = c(d + 1) + c(d) \ 10
270 c(d) = c(d) MOD 10
280 NEXT

300 FOR d = 1 TO 80
310 a(d) = b(d): b(d) = c(d)
320 NEXT

350 e = 0
360 FOR d = 80 TO 1 STEP -1
370 IF c(d) > 0 THEN e = 1
380 IF e > 0 THEN
390 LOCATE f, g
400 PRINT c(d)
410 g = g + 2
420 END IF
430 NEXT

450 f = f + 1
460 IF f > 23 THEN INPUT d: CLS : f = 1
470 IF g < 78 THEN g = 1: GOTO 200
480 END

[jura_k]

del.

Сообщение отредактировал jura_k - 5.03.2026 - 9:03

[jura_k]

Не все йогурты одинаково полезны. Не все программы можно написать на Бейсике.

Например, работа с указателями. В Бейсике их нет. А в C есть удобный инструмент.
Поскольку одна из книг написана на C, то мне пришлось проапгрейдиться с "Microsoft Quick Basic 4.0" до "Borland Turbo C 2.0" и программировать на нём.

Другой пример: массивы. В Бейсике они есть. Но в ряде случаев удобнее пользоваться языком C.
Подпрограммы. Они есть в Бейсике, называются суб-программами, или процедурами. Вызываются GOSUB. Но язык C в этом отношении практичнее.

» Кликните сюда для просмотра оффтоп текста.. «

Код

/*   p13
     Язык Turbo C 2.0
     Указатели   */

#include <conio.h>
#include <stdio.h>
#include <stdlib.h>

main ()
{
   int a, b, c;
   unsigned d;
   char g;
   float j, k;

   int *m, *n, **o;
   float *p;

   /*   54.8.1   */
   d = 60000;
   a = d;
   printf ("1. a = %i, d = %u.\n", a, d);

   /*   59.1.2   */
   /*   printf ("\x07");   */

   /*   59.7.3   */
   g = 'c';
   printf ("3. %c", g);
   g = '+';
   printf ("%c%c.\n", g, g);

   /*   68.11.4   */
   a = 5;
   b = 60;
   a++;
   ++b;
   printf ("4. a = %i, b = %i; ", a, b);
   printf ("a = %i, b = %i.\n", a++, ++b);

   /*   69.12.5   */
   a = 101 <= 105;
   b = 101 > 105;
   printf ("5. true = %i, false = %i.\n", a, b);

   /*   73.1.6   */
   a = 9 << 3;
   b = 9 >> 3;
   c = 9 >> 5;
   printf ("6. a = %i, b = %i, c = %i.\n\n", a, b, c);

   /*   139.53.7   */
   printf ("7. %s, %s, %s, %s.\n", __FILE__, __LINE__, __DATE__, __TIME__);
   printf ("Используется версия v. %x Turbo C.\n\n", __TURBOC__);

   /*   177.1.8   */
   g = 65;
   printf ("8. %c, ", g);
   printf ("%i.\n", g);

   /*   182.2.9   */
   a = 3;
   b = 2;
   c = a++ * b++;
   printf ("9. a = %i, b = %i, c = %i.\n", a, b, c);

   a = 3;
   b = 2;
   c = ++a * ++b;
   printf ("a = %i, b = %i, c = %i.\n", a, b, c);

   /*   185.1.10   */
   a = 1;
   b = 2;
   c = a / b;
   j = (float) a / b;
   printf ("10. a = %i, b = %i, c = %i, j = %.4g.\n", a, b, c, j);

   /*   193.1.11   */
   j = 84.3; a = -12; k = 32.15;
   printf ("11. j = %f, a = %i, k = %e.\n", j, a, k);
   printf ("j = %5.2f, a = %5i, k = %8.2e, k = %11.4e.\n", j, a, k, k);

   /*   91.27.12   */
   j = 10.1;
   p = &j;
   k = *p;
   printf ("\n12. j = %g, k = %g.\n", j, k);

   (*p)++;
   printf ("j = %g, k = %g.\n", j, k);

   k = 1 + *p * k;
   printf ("j = %g, k = %g.\n\n", j, k);

   /*   91.28.13   */
   a = 10;
   m = &a;
   n = m;
   printf ("13. %p, %p; %i, %i.\n", m, n, a, *n);

   /*   92.29.14   */
   j = 10.1;
   m = (int *) &j;
   k = *m;
   printf ("14. j = %g, k = %g.\n", j, k);

   /*   92.30.15   */
   a = 11;
   m = &a;
   printf ("15. %p, %i; ", m, *m);
   m++;
   printf ("%p, %i.\n\n", m, *m);

   /*   96.32.16   */
   a = 7;
   m = &a;
   o = &m;
   printf ("16. a = %i, m = %p, o = %p.\n", a, m, o);

   (*m)++;
   printf ("a = %i, m = %p, o = %p.\n", a, m, o);

   **o = 12;
   printf ("a = %i, m = %p, o = %p.\n\n", a, m, o);

   /*   120.47.17   */
   printf ("17. ");
   n = m = malloc (40 * sizeof (int));
   if (!m)
   {
      printf ("Недостаточно памяти.\n");
      exit (1);
   }

   for (a = 0; a < 40; a++) *(m + a) = a;
   for (a = 0; a < 40; a++) printf ("%i ", *(m++));
   free (n);

   getch ();
   printf ("\n");
}

[Бульбаш]

Повторюсь...

Мазохист... )))

[jura_k]

Я хочу узнать, что там написано. Я точно знаю, что все (почти все) эти задачи я могу решить. Никто не утруждался решить эти задачи до конца.

[jura_k]

У меня очень мощный компьютер - Celeron 333 MHz. На HDD IDE там установлен MS-DOS. Но я решил спуститься ещё глубже и установил GW-Basic. (Ну как... установил... Просто скопировал в рабочую папку файл программы.)

GW-Basic существовал ещё до появления 286-го компьютера. Достаточно сказать, что на компьютере TESLA KOVO работал именно Basic (MS-DOS там ещё не было), а 286-ой компьютер, где можно было запустить игру "Death Track", был неимоверно крутым. А теперь представьте, как этот Basic работает на моём Celeron 333 MHz, который вообще-то Pentium II.

Конфигурация Celeron 333 MHz, которую я собрал, вообще-то очень мощная. На HDD IDE размером 0.06 Tb размечен диск C: размером аж целых 0.0001 Tb. Для сравнения: все данные на этом компьютере, включая операционную систему MS-DOS, три языка программирования - Turbo C, Microsoft Quick Basic 4.0 и GW-Basic, а также все мои программы - занимают всего лишь 3-4%, то есть около 0.000003 - 0.000004 Tb.

И вот со всем этим богатством мне надо разбираться.
Сейчас я наконец-то приступил к программированию на GW-Basic. Это ведь даже не MS-DOS. Это ЕЩЁ ХУЖЕ.
Во-первых, оттуда нет выхода. Не предусмотрен.
Во-вторых, там нет типов переменных. Вернее, есть один - "single", он же "float". При объявлении новой переменной можно не заморачиваться с её типом.
Структурное программирование? Не-а, не слышали. Когда надо, царствует GOTO в паре с условным переходом.

Подпрограммы есть, но я их не пользую.