Характеристика Microsoft Excel (стр. 5 из 5)
 |
 |
 |
(-)
 | |
 |
Задание № 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. Встроенный учебник MicrosoftWindows 98 SE
3. Официальный сайт компании Microsoft Corp. в Internet:
http://www.microsoft.com/rus