Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
reanimator02
0 / 0 / 0
Регистрация: 29.04.2011
Сообщений: 2
1

QBasic и двухмерные массивы...

03.05.2011, 00:36. Просмотров 911. Ответов 1
Метки нет (Все метки)

Составьте программу вычисления суммы неповторяющихся элементов двухмерного массива А(N,P)?

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.05.2011, 00:36
Ответы с готовыми решениями:

Двухмерные массивы
составить программу нахождения числа, встречающегося во всех строках...

Двухмерные массивы. Оператор swap
Задана матрица R(n,m). Поменять местами 1-ю и последнюю строки. В полученной...

Двухмерные массивы. Минимальный элемент на пересечении строк и столбцов.
Дан массив R(n,m) определить строку и столбец на пересечении которых находится...

QBasic
Ссылки удаленыЧитайте правила - http://www.cyberforum.ru/announcement.php?a=3

QBasic и иконки
В этой программе QBasic старается написать код иконок. Он их делает сразу по...

1
Quiet Snow
4408 / 1300 / 376
Регистрация: 25.04.2010
Сообщений: 3,325
03.05.2011, 13:13 2
Лучший ответ Сообщение было отмечено как решение

Решение

Алгоритм можно ускорить использванием дополнительной памяти несколькими методами, текущий вариант написан без использования доп. памяти.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
CLS
  INPUT "Vvedite N: ", N
  INPUT "Vvedite P: ", P
  RANDOMIZE TIMER
DIM A(N, P) AS INTEGER
     '  Случайный массив
FOR iy = 1 TO P
   FOR ix = 1 TO N
      A(ix, iy) = RND * 9
      PRINT A(ix, iy);
   NEXT: PRINT
NEXT: PRINT
     '  Подсчёт суммы
FOR iy2 = 1 TO P
   FOR ix2 = 1 TO N
      Pov = 1
      FOR iy = 1 TO P
         FOR ix = 1 TO N
            IF ix2 <> ix OR iy2 <> iy THEN
              IF A(ix, iy) = A(ix2, iy2) THEN Pov = 0
            END IF
         NEXT
      NEXT: COLOR 8
      IF Pov THEN S = S + A(ix2, iy2): COLOR 10
      PRINT A(ix2, iy2);
   NEXT: PRINT
NEXT
     '  Результат на экран
  COLOR 10
  PRINT "Summa ="; S
  COLOR 7
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.05.2011, 13:13

Рисунки в qbasic
Помогите нарисовать 3 рисунка в qbasic. 1)красную звезду на белом фоне...

QBasic и множества
 Множества есть в таком языке программирования как Паскаль. А чем QBasic...

Игра на QBasic
Подскажите, что нужно почитать, просмотреть, чтобы написать игру в бейсбол.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru