Примеры решения задач.
6.1. Задачи на вычисление функций и сумм.
1. Вычислить функцию:
при
изменении
от 0 до
с шагом
.
PRINT : PRINT : PRINT
PI = 3.1416
FOR X = 0 TO 2 * PI STEP .2 * PI
Y = 1 - X
Y1 = COS(X)
IF Y = 0 OR Y1 = 0 THEN PRINT "DEL. NA 0": GOTO 10
Z = SIN(2 * X) / Y + 1 / Y1 ^ 2
PRINT USING " X=#.##"; X;
PRINT USING " Z=###.###"; Z
10 : NEXT X
X=0.00 Z= 1.000
X=0.63 Z= 4.083
X=1.26 Z= 8.131
X=1.88 Z= 11.197
X=2.51 Z= 2.160
X=3.14 Z= 1.001
X=3.77 Z= 1.180
X=4.40 Z= 10.156
X=5.02
Z=
10.783
X=5.65 Z= 1.739
X=6.28 Z= 1.001
2.
Вычислить
сумму:
.
CLS
PRINT : PRINT : PRINT
S = 0
FOR I = 1 TO 25
S1 = 0
FOR J = 1 TO I
IF I ^ 2 - J <> 0 THEN GOTO 20
PRINT " DELENIE NA 0 PRI I="; I; " I J="; J: GOTO 10
20 : Y = (I ^ 2 + J ^ 3) / (I ^ 2 - J): S1 = S1 + Y
10 : NEXT J
S = S + S1
NEXT I
PRINT " S=";
S
DELENIE NA 0 PRI I= 1 I J= 1
S= 1972.683
Задачи с использованием массивов.
6.2.1. Задание и распечатка массивов.
1. Элементы массива задаются с клавиатуры:
CLS
DIM A(10)
FOR I = 1 TO 10
INPUT A(I);
NEXT I
PRINT : PRINT : PRINT: PRINT " MASSIV A(10) "
PRINT : PRINT " ";
FOR I = 1 TO 10
PRINT A(I); : NEXT I
? 2 ? 45 ? 67 ? 34 ? 16 ? 29 ? 30 ? 45 ? 16 ? 13
MASSIV A(10)
45 67 34 16 29 30 45 16 13
2.
Элементы
массива
задаются
формулой
.
DIM B(20)
PRINT : PRINT : PRINT: PRINT " MASSIV B(20) "
PRINT : PRINT " ";
FOR I = 1 TO 20
Y = I ^ 2 - 4
IF Y <= 0 THEN B(I) = 10: GOTO 10
B(I) = (I - 2) / Y^0.5
10 : PRINT " B(";: PRINT USING "##"; I;
PRINT ") =";: PRINT USING "##.##"; B(I);
IF I MOD 4 = 0 THEN PRINT : PRINT " ";
NEXT I
MASSIV B(20)
B( 1)=10.00 B( 2)=10.00 B( 3)= 0.45 B( 4)= 0.58
B( 5)= 0.65 B( 6)= 0.71 B( 7)= 0.75 B( 8)= 0.77
B( 9)= 0.80 B(10)= 0.82 B(11)= 0.83 B(12)= 0.85
B(13)= 0.86 B(14)= 0.87 B(15)= 0.87 B(16)= 0.88
B(17)= 0.89 B(18)= 0.89 B(19)= 0.90 B(20)= 0.90