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

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

90
2. Разветвляющиеся программы.
Для реализации логического блока используется оператор условного
перехода. Он изменяет ход выполнения программы в зависимости от ре-
зультата проверки условия. Эта управляющая конструкция называется раз-
вилка. На Бейсике развилка выражается с помощью оператора:
IF выражение THEN операторы ELSE операторы
Пример 11.6.3 Вычислить действительные корни квадратного уравнения
0
2
=++ cbxax
при произвольных значениях коэффициентов a,b,c и усло-
вии a≠0.
10 REM "Вычисление корней"
20 INPUT A,B,C
30 D=B^2-4*A*C
40 IF D<0 THEN 50 ELSE 70
50 PRINT "Корней нет"
60 GOTO 140
70 IF D>0 THEN 80 ELSE 110
80 X=-B/(2*A)
90 PRINT X
100 GOTO 140
110 X1=(-B-SQR(D))/(2*A)
120 X2=(-B+SQR(D))/(2*A)
130 PRINT X1,X2
140 END
Пример 11.6.4
Определить, явля-
ется ли данное целое число чет-
ным.
10 REM"ОПРЕДЕЛЕНИЕ ЧЕТНОСТИ"
20 INPUT X
30 IF X / 2 = INT(X / 2) THEN 30 ELSE 60
40 PRINT "ЧЕТНОЕ"
50 GOTO 70
60 PRINT "НЕЧЕТНОЕ"
70 END
3. Циклические программы
Циклы с произвольным числом повторений реализуются с помощью
базовых алгоритмических структур цикл-“пока”, цикл-“до”, цикл с пара-
метром
Цикл-“пока” реализуется на Бейсике с помощью операторов
IF … THEN…ELSE и GOTO…
Пример 11.6.5 Дано натуральное число n. Вычислить n!.
нечетн
начало
x
конец
Да Нет
четное
x/2=[x/2]
Корней нет
D<0
X
1
:=(-B-√D)/(2A)
Да
Нет
начало
Ввод A,B
конец
D:=B
2
-4AC
X
2
:=(-B+
√
D)/(2A)
X
1
,X
2
D>0
Да
Нет
X:=-B/
(
2A
)
X 
                                   90

       2. Разветвляющиеся программы.
       Для реализации логического блока используется оператор условного
перехода. Он изменяет ход выполнения программы в зависимости от ре-
зультата проверки условия. Эта управляющая конструкция называется раз-
вилка. На Бейсике развилка выражается с помощью оператора:
       IF выражение THEN операторы ELSE операторы
Пример 11.6.3 Вычислить действительные корни квадратного уравнения
ax 2 + bx + c = 0 при произвольных значениях коэффициентов a,b,c и усло-
вии a≠0.
        начало                          10 REM "Вычисление корней"
                                        20 INPUT A,B,C
        Ввод A,B                        30 D=B^2-4*A*C
            2
     D:=B -4AC                          40 IF D<0 THEN 50 ELSE 70
   Да            Нет                    50 PRINT "Корней нет"
          D<0                           60 GOTO 140
            Да         Нет              70 IF D>0 THEN 80 ELSE 110
                 D>0                    80 X=-B/(2*A)
                       X1:=(-B-√D)/(2A) 90 PRINT X
        X:=-B/(2A)                      100 GOTO 140
                      X2:=(-B+√D)/(2A) 110 X1=(-B-SQR(D))/(2*A)
              X                         120 X2=(-B+SQR(D))/(2*A)
                               X1,X2    130 PRINT X1,X2
                                        140 END

Корней нет
                                        Пример 11.6.4 Определить, явля-
                                        ется ли данное целое число чет-
                                        ным.
        конец                                        начало

10 REM"ОПРЕДЕЛЕНИЕ ЧЕТНОСТИ"                           x
20 INPUT X                                       Да           Нет
30 IF X / 2 = INT(X / 2) THEN 30 ELSE 60            x/2=[x/2]
40 PRINT "ЧЕТНОЕ"                             четное          нечетн
50 GOTO 70
60 PRINT "НЕЧЕТНОЕ"
                                                      конец
70 END

     3. Циклические программы
     Циклы с произвольным числом повторений реализуются с помощью
базовых алгоритмических структур цикл-“пока”, цикл-“до”, цикл с пара-
метром
     Цикл-“пока” реализуется на Бейсике с помощью операторов
IF … THEN…ELSE и GOTO…
Пример 11.6.5 Дано натуральное число n. Вычислить n!.

Страницы