Закрыть
Все сервисы
Главная
Лента заметок
Теги
Группы
Рейтинги

qbasic lab 8

4 июня´07 16:35 Просмотров: 348 Комментариев: 2
' laba #8

CONST m = 5, n = 6
DIM y(m, n), summ, k
RANDOMIZE TIMER

CLS
PRINT "pochatkoviy massiv"

FOR i = 1 TO m
FOR j = 1 TO n
y(i, j) = INT(RND * 100 - 50)
PRINT USING "### "; y(i, j);
NEXT
PRINT
NEXT


FOR i = 1 TO m STEP 2
FOR j = 2 TO n STEP 2
summ = summ + y(i, j)
k = k + 1
NEXT
NEXT
PRINT
WRITE "summ= ", summ, " k= ", k, "sredne= ", summ / k
END



--------------------------------------
результаты

pochatkoviy massiv
-1 -11 -22 -23 -48 10
7 42 23 16 46 -23
-5 -2 32 46 28 3
30 39 10 0 37 47
24 -29 15 -36 44 23

"summ= ",-19," k= ",9,"sredne= ",-2.111111

Пожаловаться
Комментариев (2)
Отсортировать по дате Вниз
xtfkpi    05.06.2007, 08:57
Оценка:  0
xtfkpi
ну написать программу - в нашем институте - то мелочи - а вот сдать ее... в общем работа кипит
Alexandrino    04.06.2007, 16:45
Оценка:  0
Alexandrino
Да что то знакомое. Программирование.... Ну и как получаеться???
Реклама
Реклама