Excel (Характеристика Microsoft Excel), страница 4
Описание файла
Документ из архива "Характеристика Microsoft Excel", который расположен в категории "". Всё это находится в предмете "информатика" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "Excel"
Текст 4 страницы из документа "Excel"
Раздел II
Условия заданий
-
Дана действительная квадратная матрица порядка N. Получить последовательность b1,b2,b3…bn, где bk – количество простых чисел в к-ой строке. Вывести на печать полученную последовательность b1,b2,b3…bn.
-
Дан одномерный массив А, состоящий из N элементов. Удалить из массива А его максимальный элемент.
Графическое представление решения заданий
Задание № 1:
Функция Prime (x)
Prime=1
(+)
S=0
(-)
(-)
(+)
Prime=0
(+)
S=S+1
(-)
S=0
Задание № 2:
S=0
Dim A(N); B(N-1)
Z=1, max =A(Z)
(+)
max = A(I), Z=I
(-)
(+)
S=S+1, B(S)=A(I)
(-)
Решение заданий
(на языке программирования «Бейсик»)
Задание № 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
-
INPUT N
20 S = 0
-
DIM A(N): DIM B(N - 1)
-
FOR i = 1 TO N: INPUT A(i): NEXT i
50 Z = 1: MAX = A(Z)
-
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
-
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
Список источников информации:
-
Встроенная справка Microsoft Excel 7.0
-
Встроенный учебник Microsoft Windows 98 SE
-
Официальный сайт компании Microsoft Corp. в Internet:
http://www.microsoft.com/rus