3.4. Копирование из Quick Basic в Word.
М
атематические
выкладки, составленные программы,
графики и другие результаты работы
необходимо скопировать в один файл в
Word.
Для этого нужно выполнить следующие
действия:
Щелкнуть левой клавишей мышки по значку в верхнем правом углу картинки Microsoft QuickBasic.
2. В появившемся окне выбрать «Изменить - Пометить».
3. Придерживая левую клавишу мышки, выделить весь фрагмент текста программы или результатов выполнения программы на одной странице экрана. Если фрагмент занимает больше места, чем страница, то копировать фрагменты надо по частям.
4. Повторить пункт №1.
5. В появившемся окне выбрать «Изменить - Копировать».
6. Вставить скопированный фрагмент в документ WORD.
3.5. Вычисление функций и сумм.
Пример. Вычислить сумму:
.
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
Пример. Вычислить функцию:
где:
- элемент массива
;
- его
порядковый номер.
CLS
PRINT : PRINT : PRINT
DIM X(10)
FOR I = 1 TO 10
X(I) = INT(RND * 200) - 120
Z = (X(I) + 5) / (I - I / 3)
PRINT " X("; : PRINT USING "##"; I;
PRINT ")=";: PRINT USING "####"; X(I);
PRINT USING " Z=###.##"; Z;
IF I MOD 2=0 THEN PRINT
NEXT I
X( 1)= 21 Z= 39.00 X( 2)= -14 Z= -6.75
X( 3)= -5 Z= 0.00 X( 4)= -63 Z= -21.75
X( 5)= -60 Z=-16.50 X( 6)= 34 Z= 9.75
X( 7)=-118 Z=-24.21 X( 8)= 32 Z= 6.94
X( 9)= 42 Z= 7.83 X(10)= 21 Z= 3.90
3.6. Действия над элементами массива.
В этом разделе приведены фрагменты программ с выполнением действий над элементами массивов. Фрагмент программы по заданию значений элементов массива и распечатке их в данном разделе не приводятся. Они были представлены выше.
Пример. Найти четные элементы массива К(30). Организовать из найденных элементов отдельный массив:
…….
DIM K1(30)
N=0
FOR I = 1 TO 30
IF K(I) MOD 2=0 THEN N=N+1: K1(N)=K(I)
NEXT I
PRINT : PRINT " ";
FOR I = 1 TO N
PRINT USING "#####"; K1(I);
IF I MOD 12 = 0 THEN PRINT : PRINT " ";
NEXT I
PRINT: PRINT ” N=”;N
66 40 -18 66 -66 -64 114 78 18 -16 54 -20
N=12
Пример. В массиве Е(105) найти максимальное значение элементов массива и его порядковый номер.
CLS
DIM E(105)
PRINT : PRINT
PRINT " MASSIV E(105)"
PRINT : PRINT " ";
FOR I = 1 TO 105
E(I) = INT(RND * 500) – 120
PRINT USING "######"; E(I);
IF I MOD 10 = 0 THEN PRINT : PRINT " ";
NEXT I
PRINT : PRINT
MAX = E(1): IMAX = 1
FOR I = 1 TO 105
IF E(I) > MAX THEN MAX = E(I): IMAX = I
NEXT I
PRINT " MAX="; MAX; " I="; IMAX
MASSIV E(105)
232 146 169 24 30 267 -113 260 287 234
-98 87 311 275 66 360 315 -92 354 62
142 263 -94 176 114 29 191 203 11 19
294 292 174 373 335 -7 227 370 1 146
-67 379 218 -113 167 -70 -69 279 22 -98
27 71 30 354 369 80 19 -40 -39 203
85 86 236 43 196 -17 -27 171 -80 108
332 10 272 69 24 339 195 193 94 -72
160 227 336 297 -109 151 338 95 218 131
136 111 56 82 14 -93 1 369 -90 75
62 124 -43 117 8
MAX= 379 I= 42
Пример. Найти максимальный элемент в каждой строке матрицы D(6,6) и его порядковый номер:
…….
FOR I = 1 TO 6
MAX=D(I,1): JMAX=1
FOR J = 1 TO 6
IF D(I,J) > MAX THEN MAX=D(I,J): JMAX=J
NEXT J
PRINT” STROKA ”;I;
PRINT USING” MAX=###”;MAX; : PRINT” J=”;JMAX
NEXT I
…….
STROKA 1 MAX= 79 J= 6
STROKA 2 MAX= 87 J= 3
STROKA 3 MAX= 117 J= 4
STROKA 4 MAX= 114 J= 1
STROKA 5 MAX= 54 J= 4
STROKA 6 MAX= 122 J= 4
…….
Пример. Найти максимальный элемент в каждом десятке элементов массива А(60).
CLS
DIM A(60)
PRINT : PRINT
PRINT " MASSIV A(60)"
PRINT : PRINT " ";
FOR I = 1 TO 60
A(I) = INT(RND * 500) - 120
PRINT USING "######"; A(I);
IF I MOD 10 = 0 THEN PRINT : PRINT " ";
NEXT I
PRINT : PRINT
MAX = A(1)
FOR I = 1 TO 60
IF A(I) > MAX THEN MAX = A(I)
IF I MOD 10 <> 0 THEN GOTO 12
PRINT " DES."; I / 10;
PRINT USING " MAX=####"; MAX
IF I MOD 2 = 0 THEN PRINT
MAX = A(I)
12 : NEXT I
END
MASSIV A(60)
232 146 169 24 30 267 -113 260 287 234
-98 87 311 275 66 360 315 -92 354 62
142 263 -94 176 114 29 191 203 11 19
294 292 174 373 335 -7 227 370 1 146
-67 379 218 -113 167 -70 -69 279 22 -98
27 71 30 354 369 80 19 -40 -39 203
DES. 1 MAX= 287 DES. 2 MAX= 360
DES. 3 MAX= 263 DES. 4 MAX= 373
DES. 5 MAX= 379 DES. 6 MAX= 369
Пример. Расположить элементы массива А(50) в порядке возрастания.
CLS
DIM A(50)
PRINT : PRINT : PRINT " ";
FOR I = 1 TO 50
A(I) = INT(RND * 450) – 200: PRINT USING "#####"; A(I);
IF I MOD 10 = 0 THEN PRINT : PRINT " ";
NEXT I
FOR J = 1 TO 50
FOR I = 1 TO 50 - J
IF A(I) > A(I + 1) THEN P = A(I): A(I) = A(I + 1): A(I + 1) = P
NEXT I
NEXT J
PRINT : PRINT " ";
FOR I = 1 TO 50
PRINT USING "#####"; A(I);
IF I MOD 10 = 0 THEN PRINT : PRINT " ";
NEXT I
117 40 60 -70 -65 148 -194 142 166 119
-180 -14 188 155 -32 232 192 -175 227 -37
36 145 -176 66 10 -66 80 91 -82 -75
173 171 65 243 209 -98 112 241 -91 40
-153 249 104 -193 58 -155 -154 159 -72 -180
-194 -193 -180 -180 -176 -175 -155 -154 -153 -98
-91 -82 -75 -72 -70 -66 -65 -37 -32 -14
10 36 40 40 58 60 65 66 80 91
104 112 117 119 142 145 148 155 159 166
171 173 188 192 209 227 232 241 243 249