|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.05.2010, 22:25 | #1 |
Регистрация: 26.05.2010
Сообщений: 3
|
QBasic двумерные массивы
Помогите пожалуйста решить задачу (и блок-схему) в QBasic. завтра зачет. icq 625169399
Матрицу R(9,8) заполнить случайными целыми числами в диапазоне (-20; 20). Образовать два одномерных массива A(N) и B(M). В массив А поместить все положительные элементы матрицы R, в массив B все отрицательные. Массивы А и В заполнить плотно. Вывести R, А, В. DIM R(9,8), A(N), B(M) PRINT "MATRICA R" FOR I = 1 TO 9 FOR J = 1 TO 8 R(I,J) = INT(40*RND-20) PRINT R(I,J); IF R(I,J)>0 THEN A=R(I,J) PRINT "MASSIV A" IF R(I,J)<0 THEN B=R(I,J) PRINT "MASSIV B" |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
[QBasic|Pascal] двумерные массивы | PBJack | Помощь студентам | 5 | 06.12.2011 20:39 |
Двумерные массивы в QBasic | !amd! | Помощь студентам | 0 | 27.05.2010 20:43 |
QBasic двумерные массивы | !amd! | Помощь студентам | 0 | 26.05.2010 21:16 |
Процедуры и функции, двумерные массивы. (QBasic) | poad_hok | Помощь студентам | 2 | 27.05.2009 18:59 |