Составители:
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:=P•I
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
Страницы
- « первая
- ‹ предыдущая
- …
- 90
- 91
- 92
- 93
- 94
- …
- следующая ›
- последняя »