Форум Точек.нет - общение без границ !

jura_k

3.03.2026 - 10:20

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

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

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

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

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

jura_k

3.03.2026 - 10:34

- - - - - - - -

Далее нужно собрать компьютер для программирования. Я взял очень мощный компьютер: 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

4.03.2026 - 10:10

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

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

jura_k

4.03.2026 - 10:37

- - - - - - -

Казалось бы, теперь можно решать.
В качестве базового языка программирования я выбрал самый древний, на котором учился программировать: Бейсик-Микрон, 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

5.03.2026 - 9:02

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

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

jura_k

5.03.2026 - 9:02

del.

jura_k

12.03.2026 - 12:46

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

Например, работа с указателями. В Бейсике их нет. А в 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");
}

Бульбаш

12.03.2026 - 19:59

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

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

jura_k

12.03.2026 - 21:39

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

jura_k

4.04.2026 - 16:46

У меня очень мощный компьютер - 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 в паре с условным переходом.

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

jura_k

7.04.2026 - 10:53

Наконец-то сбылась моя мечта, и компьютер есть не только в школе, но и у меня дома. И можно программировать спокойно, не опасаясь, что кончится урок и учитель выгонит из класса. Если что, я уже шесть задач решил из учебника.

jura_k

20.04.2026 - 7:53

Имеется список задач из трёх книг. Первоначально я собирался решить все задачи в GW-Basic. Но оказалось, что там есть работа с целыми числами. А в GW-Basic только дробные.
Задачи с целыми числами, а также без ввода данных я решил в Microsoft Quick Basic 4.0.

Но и это ещё не всё. Оказалось, что некоторые примеры из учебника можно решать только с применением языка C, так как в них используются особсенности этого языка. Кроме того, задачи на массивы я частично решил в Basic 4.0, а частично - в языке "Borland Turbo C 2.0" из-за удобства.

Задачи на строки и строковые переменные я решил не изучать в Basic, потому что лень, а для удобства использовал Turbo C 2.0, так как там буквы - это целые числа от 0 до 256, и с ними можно работать как с числами, а это гораздо удобнее, чем Бейсик.

И вот когда я со всем этим разобрался, я наконец-то приступил к решению задач из учебника на языке GW-Basic.
Первый блок задач касается ввода чисел с плавающей запятой. Всего я решил 15 задач.
Потом идут две задачи на ввод 8 чисел с плавающей запятой (в прошлом блоке было 3). Таких задач две штуки. Вот их и буду решать.