Програмирование на языке Basic. Федоряка Н.И. - 12 стр.

         с=2*a
         ELSE
         PRINT "Большее число: ", b
         с=2*b
         END IF
         END IF
         PRINT "результат: ", c
         END
                В этой программе два условных оператора, первым проверяется ус-
         ловие равенства чисел и, в случае его выполнения, будет выдано сообще-
         ние о равенстве чисел, если числа не равны, то проверяется второе усло-
         вие...
                Пример: Решение квадратного уравнения.
         Решение квадратного уравнения зависит от значения дискриминанта.
                REM Решение квадратного уравнения
         INPUT "Введите коэффициент a: ", а
         INPUT "Введите коэффициент b: ", b
         INPUT "Введите коэффициент c: ", c
         d=b*b-4*a*c
         IF d<0 THEN
         PRINT "Корней нет"
         ELSE
           IF d=0 THEN
           x=-b/(2*a)
           PRINT "корень уравнения: ", x
           ELSE
           x1=(-b-SQR(d))/(2*a)
           x2=(-b+SQR(d))/(2*a)
           PRINT "корни уравнения: ", x1, x2
           END IF
         END IF
         END
                Структура "Выбор".
                Структура IF... позволяет выбрать между двумя вариантами. Если
         требуется осуществить выбор между большим числом вариантов, то это
         можно организовать используя лишь структуру IF... Но можно (что чаще
         проще) и с помощью структуры "Выбор". Эта структура имеет вид:
                SELECT CASE <Выражение>
                CASE <условие 1>
                <серия 1>
                CASE<условие 2>
                <серия 2>
                ...
         12


PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com