Характеристика Microsoft Excel
Категория реферата: Рефераты по информатике, программированию
Теги реферата: реферат на тему творчество, банк рефератов
Добавил(а) на сайт: Севастьяна.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 | Следующая страница реферата
(-)
Задание № 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:
http://www.microsoft.com/rus
--------------------
[pic]
начало
INPUT N
S=0
Dim A(N); B(N-1)
I=1,N
INPUT A(I)
Рекомендуем скачать другие рефераты по теме: конспекты занятий в детском саду, менеджмент.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 | Следующая страница реферата