(-)

(+)

(-)

Решение заданий

(на языке программирования «Бейсик»)

Задание № 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:

http://www.microsoft.com/rus