Математика и информатика. Филимонова Л.В - 89 стр.

                                  89

                      п.6. Методика составления программ
                       на языке программирования Бейсик
      Программа на Бэйсике представляет собой последовательность
строк, каждая строка снабжается десятичным номером. Выполнение про-
граммы осуществляется в порядке возрастания номеров. Причем последо-
вательность номеров строк не обязательно должна состоять из следующих
друг за другом натуральных чисел. Для того, чтобы облегчить в процессе
составления программы вставление новых строк между уже имеющимися,
строки программы обычно нумеруются с шагом в 10 номеров. Каждая
строка содержит один или несколько операторов.
      Программы могут быть линейными (когда каждый оператор в ука-
занной последовательности выполняется ровно один раз), разветвленные
(когда выполнение одной из нескольких групп операторов зависит от со-
блюдения некоторого условия), циклических (когда какой-то блок опера-
торов выполняется многократно).
      1. Линейные программы.
      Начинать составление программы рекомендуется с составления
блок-схемы алгоритма. А написание программы сводится к замене блока
алгоритма соответствующими операторами.
      Пример 11.6.1 Даны 2 действительных числа. Требуется вычислить
в программируемом режиме среднее арифметическое этих чисел и среднее
геометрическое их модулей.
                                 Решение:
           начало           10 REM "Вычисление ср.ар. и ср. геом."
                            20 INPUT X, Y
            X, Y
                            30 A=(X+Y)/2
       А:=(X+Y)/2           40 B=SQR(ABS(X)*ABS(Y))
                            50 PRINT A,B
         B:= | X | ⋅ | Y |  60 END
                            Контрольный счет:
            A, B            X     Y      A    B
                            1     1      1    1
           конец            3     -5     -1   3.872983
      Пример 11.6.2 Даны катеты прямоугольного
треугольника. Найти гипотенузу и площадь.
      10 REM "Вычисление гипот. и площади"                    начало
      20 INPUT "Введите значения катетов:";X,Y                 X, Y
      30 A=SQR(X^2+Y^2)
      40 S=X*Y/2                                           A:=√X2+Y2
      50 PRINT "Гипотенуза=";A;"Площадь=";S
      60 END                                                S:=X•Y/2
      Контрольный счет:
X    Y       A              S                                   A,S
400 500      640.3124 100000
321 654      728.5307 104967                                   конец