Глава 10. Основы программирования на языке Бейсик 533
60 IF A(1,1)>A(2,2) THEN GOTO 90
70 IF A(2,2)>A(3,3) THEN Y=A(2,2): GOTO 110
80 GOTO 100
90 IF A(1,1)>A(3,3) THEN Y=A(1,1): GOTO 110
100 Y=A(3,3)
110 PRINT "Y=";Y
120 END.
Здесь блок Y=a3 3 является общим для двух логических блоков (см. рис. 8.22). В программе он размещен в соответствии с правилом 2.
Задача 10.4. Составить программу ввода величины t — времени суток и выдачи текста:
«Вы уже проснулись?», если t<10;
«Не пора ли обедать?», если t=12;
«Еще не вечер!», если t>18;
«Как работается?» в остальных случаях.
Рекомендуем учащимся для данной задачи самим составить схему алгоритма, совпадающую по структуре со схемой, представленной на рис. 8.15, а также и программу задачи с учетом приведенных выше рекомендаций и сравнить ее (программу) с приведенной ниже:
10 REM ВРЕМЯ
20 PRINT "КОТОРЫЙ ЧАС?"
30 INPUT T
40 С$="ВЫ УЖЕ ПРОСНУЛИСЬ?"
50 S$="HE ПОРА ЛИ ОБЕДАТЬ?"
60 IF T<10 THEN PRINT C$: GOTO 100
70 IF T=12 THEN PRINT S$: GOTO 100
80 IF T>=18 THEN PRINT "ЕЩЕ НЕ ВЕЧЕР!": GOTO 100
90 PRINT "КАК РАБОТАЕТСЯ?"
100 END.
Задачи для самостоятельного решения
Для каждой из приведенных задач составить схему алгоритма и программу.
1. Составить программу ввода значения температуры воздуха t и выдачи текста «Хорошая погода!», если t>10°, и текста «Плохая погода!», если t=»10°.
2. Составить программу ввода оценки Р, полученной учащим ся, и выдачи текста:
«Молодец!», если Р=5; «Хорошо!», если Р=4; «Лентяй!», если Р^З.
Заданы длины сторон треугольника —А, В, С. Определить, является ли треугольник равнобедренным.
Определить сумму элементов массива С(1:3), значения которых больше нуля.
Элементы каждой строки матрицы А(1:2, 1:2) переставить в порядке возрастания их значений.
Элементы массива С(1:3) вывести в порядке возрастания их значений.
Кроме приведенных задач, рекомендуем вновь рассмотреть задачи гл. 8.3.2 и составить для каждой из них программу, использующую составленную ранее схему алгоритма.
10.2.4. Циклические программы
с операторами передачи управления
Составление циклических программ. Циклической называется программа, которая является записью циклического алгоритма.
Любой циклический алгоритм можно рассматривать как частный случай разветвляющегося алгоритма, а потому любую циклическую программу можно составить с помощью тех же операторов (в частности, GOTO и IF), которые используются в разветвляющихся программах. Те же правила и перехода от алгоритма к программе, т.е. рассматриваем схему алгоритма сверху вниз, начиная с первого блока (Начало), и записываем для каждого блока соответствующий ему оператор или группу операторов.
Особенно прост процесс перехода к программе от схем алгоритмов, построенных с использованием типовой схе-
Глава 10. Основы программирования на языке Бейсик 537
10.2.5. Подпрограммы
Основные понятия и определения. Понятие «подпрограмма» — одно из важнейших в программировании. Использование подпрограмм — наиболее мощное средство повышения эффективности применения ЭВМ и снижения затрат на разработку программ.
Подпрограммой (п/п) называется участок программы, оформленный определенным образом, к которому можно обращаться из разных точек программы любое число раз. При этом п/п может решать каждый раз одну и ту же задачу с разными значениями исходных данных. Программу, в которой используется п/п, называют рабочей.
Целесообразно использовать п/п тогда, когда в процессе решения задачи многократно встречается некоторая подзадача.
При этом возможны два случая:
1) Указанная подзадача является типовой, часто встре-
чающейся задачей — математической, технической и т.д. Пример подобной задачи — вычисление определенного интеграла, решение уравнения с одним неизвестным и т.д. В настоящее время для большинства подобных задач составлены программы (оформленные обычно, как п/п). Они публикуются в весьма многочисленных сборниках программ, журналах*.
В этом случае задача программиста — найти нужную п/п и включить ее в текст рабочей программы.
2) Для упомянутой подзадачи не существует (не удалось
найти) готовой программы (п/п). В этом случае программист должен:
составить программу решения подзадачи;
оформить ее, как п/п;
включить п/п в текст рабочей программы.
Таким сборником программ и п/п на языке Бейсик является книга В. П. Дьяконова [14].
