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

UptoLike

92
90 PRINT S
100 END
Контрольный счет:
m=13 S=1.002768;
m=45 S=1.0547
Пример 11.6.8
Дано действительное число а.
Найти среди чисел
3
1
2
1
1,
2
1
1,1 +++
и т.д. пер-
вое большее а.
10 REM "НАХОЖДЕНИЕ ЭЛЕМЕНТА"
20 INPUT A
30 I = 1
40 S = 0
50 S = S + 1/I
60 I = I + 1
70 IF S > A THEN 80 ELSE 50
80 PRINT S
90 END
Цикл с параметром реализуется с помощью операторов цикла со
счетчиком:
FOR счетчик = начало TO конец [STEP приращение]
блок операторов
NEXT счетчик
Пример 11.6.9 Вычислить (для данного n) n!.
10 REM"Вычисление факториала"
20 INPUT N
30 P = 1
40 FOR I = 1 TO N
50 P = P * I
60 NEXT I
70 PRINT P
80 END
Пример 11.6.10 Вычислить значение функции
y=4x
3
-2x
2
+5 для значений х, изменяющихся от -3 до
1 с шагом 0,1.
10 REM "Вычисл. значения функции"
20 FOR X = -3 TO 1 STEP .1
30 Y = Y * X ^ 3 - 2 * X ^ 2 + 5
40 PRINT Y
50 NEXT X
60 END
Да
S>A
Нет
начало
A
I:=1
S
конец
S:=0
S:=S+1/I
I:=I+1
начало
N
P
конец
P:=1
P:=PI
I=1,N;1
начало
конец
y:=4x
3
-2x
2
+5
x=-3,1;0.1
x, y
                                    92

90 PRINT S
100 END
     Контрольный счет:
     m=13 S=1.002768;                                    начало
     m=45 S=1.0547                                         A

Пример 11.6.8 Дано действительное число а.                I:=1
                         1    1    1
Найти среди чисел 1, 1 + , 1 + +     и т.д. пер-          S:=0
                         2    2    3
вое большее а.
10 REM "НАХОЖДЕНИЕ ЭЛЕМЕНТА"                            S:=S+1/I
20 INPUT A
30 I = 1                                                 I:=I+1
40 S = 0                                           Да             Нет
50 S = S + 1/I                                           S>A
60 I = I + 1
70 IF S > A THEN 80 ELSE 50
                                                           S
80 PRINT S
90 END                                                  конец

     Цикл с параметром реализуется с помощью операторов цикла со
счетчиком:
FOR счетчик = начало TO конец [STEP приращение]       начало
      блок операторов
                                                        N
NEXT счетчик
Пример 11.6.9 Вычислить (для данного n) n!.
                                                       P:=1
10 REM"Вычисление факториала"
20 INPUT N
                                                     I=1,N;1
30 P = 1
40 FOR I = 1 TO N                                    P:=P•I
50 P = P * I
60 NEXT I
70 PRINT P                                               P
80 END
          начало                                      конец
                      Пример 11.6.10 Вычислить значение функции
                      y=4x3-2x2+5 для значений х, изменяющихся от -3 до
        x=-3,1;0.1
                      1 с шагом 0,1.
     y:=4x3-2x2+5    10 REM "Вычисл. значения функции"
                     20 FOR X = -3 TO 1 STEP .1
         x, y        30 Y = Y * X ^ 3 - 2 * X ^ 2 + 5
                     40 PRINT Y
                     50 NEXT X
        конец        60 END