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

UptoLike

ВУЗ: 

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

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

Рубрика: 

91
10 REM "вычисление факториала"
20 INPUT N
30 M = 1
40 P = 1
50 IF M <= N THEN 60 ELSE 90
60 P = P * M
70 M = M + 1
80 GOTO 50
90 PRINT P
100 END
Контрольный счет:
при n=5 n!=120
Пример 11.6.6
Вычислить
∑
=
128
1
2
1
i
i
10 REM "Вычисление суммы"
20 I = 1
30 S = 0
40 IF I <= 128 THEN 50 ELSE 90
50 A = 1 / 2 ^ I
60 S = S + A
70 I = I + 1
80 GOTO
90 PRINT S
100 END
Ответ: 1
Цикл-“до” реализуется на Бейсике с по-
мощью оператора IF … THEN…ELSE
Пример 11.6.7
Задана последова-
тельность
1
1
2
+
=
n
a
n
. Найти сумму m пер-
вых членов последовательности.
10 REM "НАХОЖДЕНИЕ СУММЫ"
20 INPUT M
30 N = 1
40 S = 0
50 A = 1 / (N ^ 2 + 1)
60 S = S + A
70 N = N + 1
80 IF N > M THEN 90 ELSE 50
начало
N
M:=1
P
конец
M≤N
P:=P*M
Да Нет
P:=1
M:=M+1
начало
I:=1
Вывод S
конец
I
≤
128
A:=1/2
I
Да Нет
S:=0
S:=S+A
I:=I+1
Нет
начало
M
N:=1
S
конец
N>M
A:=1/(N
2
+1)
Да
S:=0
S:=S+A
N:=N+1
                                        91
          начало             10 REM "вычисление факториала"
             N               20 INPUT N
                             30 M = 1
            M:=1             40 P = 1
                             50 IF M <= N THEN 60 ELSE 90
            P:=1             60 P = P * M
                             70 M = M + 1
        Да M≤N Нет           80 GOTO 50
                             90 PRINT P
   P:=P*M                    100 END
                                   Контрольный счет:
   M:=M+1                          при n=5 n!=120


             P                                    начало

         конец                                     I:=1
                          128
                                 1                 S:=0
Пример 11.6.6 Вычислить   ∑2
                          i =1
                                 i


10 REM "Вычисление суммы"                  Да I≤128 Нет
20 I = 1
30 S = 0                                A:=1/2I
40 IF I <= 128 THEN 50 ELSE 90          S:=S+A
50 A = 1 / 2 ^ I
60 S = S + A                             I:=I+1
70 I = I + 1
80 GOTO                                     Вывод S
90 PRINT S                                    конец
100 END
               начало
Ответ: 1
                 M             Цикл-“до” реализуется на Бейсике с по-
                               мощью оператора IF … THEN…ELSE
                N:=1
                                    Пример 11.6.7 Задана последова-
                S:=0                           1
                               тельность an = 2 . Найти сумму m пер-
                                                 n +1
        A:=1/(N2+1)                  вых членов последовательности.
                                     10 REM "НАХОЖДЕНИЕ СУММЫ"
            S:=S+A
                                     20 INPUT M
           N:=N+1                    30 N = 1
        Да N>M Нет                   40 S = 0
                                     50 A = 1 / (N ^ 2 + 1)
                                     60 S = S + A
                 S                   70 N = N + 1
                                     80 IF N > M THEN 90 ELSE 50
            конец

Страницы