|
1,542351 |
|||
11 |
-0,99999 |
0,004426 |
-225,951 |
-0,00443 |
12 |
-0,53657 |
0,843854 |
-0,63586 |
-1,57267 |
13 |
0,420167 |
0,907447 |
0,463021 |
2,159729 |
14 |
0,990607 |
0,136737 |
7,244607 |
0,138034 |
15 |
0,650288 |
-0,75969 |
-0,85599 |
-1,16823 |
16 |
-0,2879 |
-0,95766 |
0,300632 |
3,326323 |
17 |
-0,9614 |
-0,27516 |
3,493916 |
0,286212 |
18 |
-0,75099 |
0,660317 |
-1,13731 |
-0,87926 |
19 |
0,149877 |
0,988705 |
0,151589 |
6,596764 |
20 |
0,912945 |
0,408082 |
2,237161 |
0,446995 |
21 |
0,836656 |
-0,54773 |
-1,5275 |
-0,65467 |
22 |
-0,00885 |
-0,99996 |
0,008852 |
112,9732 |
23 |
-0,84622 |
-0,53283 |
1,588153 |
0,629662 |
24 |
-0,90558 |
0,424179 |
-2,1349 |
-0,46841 |
25 |
-0,13235 |
0,991203 |
-0,13353 |
-7,48916 |
26 |
0,762558 |
0,646919 |
1,178754 |
0,848354 |
27 |
0,956376 |
-0,29214 |
-3,2737 |
-0,30546 |
28 |
0,270906 |
-0,96261 |
-0,28143 |
-3,55329 |
29 |
-0,66363 |
-0,74806 |
0,887143 |
1,127214 |
30 |
-0,98803 |
0,154251 |
-6,40533 |
-0,15612 |
Раздел II
Условия заданий
1. Дана действительная квадратная матрица порядка N. Получить последовательность b1,b2,b3…bn, где bk – количество простых чисел в к-ой строке. Вывести на печать полученную последовательность b1,b2,b3…bn.
2. Дан одномерный массив А, состоящий из N элементов. Удалить из массива А его максимальный элемент.
Графическое представление решения заданий
Задание № 1:
Функция Prime (x)
(+)
(-)
(-)
(+)
|
|||
(+)
(-)
Задание № 2:
(+)
|
(-)
(+)
|
(-)
Решение заданий
(на языке программирования «Бейсик»)
Задание № 1:
DECLARE FUNCTION prime! (x!)
5 CLS
10 INPUT "N(max 300)=", n
20 DIM A(n, n): s = 0
30 FOR i = 1 TO n
40 FOR j = 1 TO n
50 PRINT "A("; i; ", "; j; ")=": INPUT A(j, i)
60 NEXT j, i
70 FOR i = 1 TO n
80 FOR j = 1 TO n
90 IF prime(A(j, i)) <> 0 THEN s = s + 1
100 NEXT j
110 PRINT s: s = 0
120 NEXT i
130 END
FUNCTION prime (x)
prime = 1
FOR i = 2 TO 300
IF x = i THEN 500
IF ((x / i) - (x \ i)) = 0 THEN prime = 0
500 NEXT i
END FUNCTION
Задание № 2:
5 CLS
10 INPUT N
20 S = 0
30 DIM A(N): DIM B(N - 1)
40 FOR i = 1 TO N: INPUT A(i): NEXT i
50 Z = 1: MAX = A(Z)
60 FOR i = 2 TO N
70 IF A(i) > MAX THEN MAX = A(i): Z = i
80 NEXT i
90 FOR i = 1 TO N
100 IF i <> Z THEN S = S + 1: B(S) = A(i)
120 NEXT i
130 FOR i = 1 TO N
140 LOCATE 10, i * 3: PRINT A(i)
150 NEXT i
160 FOR i = 1 TO N - 1
170 LOCATE 15, i * 3: PRINT B(i)
180 NEXT i
190 END
Список источников информации:
1. Встроенная справка Microsoft Excel 7.0
2. Встроенный учебник Microsoft Windows 98 SE
3. Официальный сайт компании Microsoft Corp. в Internet:
#"#">www.microsoft.com/rus
При использовании материалов активная ссылка на источник обязательна.