Форум программистов, компьютерный форум, киберфорум
Наши страницы

QBasic

Войти
Регистрация
Восстановить пароль
 
Iluxa
0 / 0 / 0
Регистрация: 18.04.2011
Сообщений: 41
#1

Найти повторяющееся число в матрице - QBasic

09.05.2011, 12:30. Просмотров 369. Ответов 2
Метки нет (Все метки)

составить программу отыскивающую в 2 двухмерном числовом массиве A(N,M) повторяющее число, если такого числа нет программа должна выдать сообщение нет. Прошу составть программу просто по подробному без всяких string$ (2321,12) по простому прошу сильно =(
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.05.2011, 12:30
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти повторяющееся число в матрице (QBasic):

Найти в матрице максимальный элемент и число - QBasic
дана матрица из 3 строк и 2 столбцов. Найти в матрице максимальный элемент и число,характеризующие его встречаемость в матрице.

Найти в матрице максимальный элемент и число - QBasic
дана матрица из 3 строк и 2 столбцов. Найти в матрице максимальный элемент и число,характеризующие его встречаемость в матрице.

Найти в мтарице максимальный элемент и число, характеризующее его встречаемость в матрице - QBasic
Дана матрица из 3 строк и 2 столбцов. Найти в мтарице максимальный элемент и число, характеризующее его встречаемость в матрице....

Найти в матрице максимальный элемент и его номера в матрице - QBasic
Дана матрица из 2 строк и 3 столбцов.Найти в матрице максимальный элемент и его номера в матрице!

Найти наибольший элемент в матрице - QBasic
дана матрица: 15 16 17 18 55 54 53 52 20 40 30 50 1. Найти наибольший...

В матрице найти наименьший из положительных элементов - QBasic
В массиве X(5,4) найти наименьший из положительных элементов. Массив X задать самостоятельно. Добавлено через 2 часа 0 минут ...

2
Quiet Snow
4395 / 1279 / 210
Регистрация: 25.04.2010
Сообщений: 3,260
09.05.2011, 14:42 #2
повторяющее число
А если таких чисел несколько? Формализуйте задачу по-человечьи, хватило уже гаданий...
0
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
16.06.2016, 18:05 #3
проверено

QBasic/QuickBASIC
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
CLS
RANDOMIZE TIMER
n = 4
m = 6
 
DIM A(1 TO n, 1 TO m) AS INTEGER
 
FOR i = 1 TO n
FOR j = 1 TO m
   A(i, j) = 99 * RND
   PRINT USING " ###"; A(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR i = 1 TO n
FOR j = 1 TO m
   k = 0
 
   FOR i1 = 1 TO n
   FOR j1 = 1 TO m
      IF A(i, j) = A(i1, j1) THEN k = k + 1
   NEXT j1, i1
 
   IF k > 1 THEN PRINT A(i, j): GOTO 100
NEXT j, i
 
PRINT "NO"
100
END
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.06.2016, 18:05
Привет! Вот еще темы с ответами:

Найти количество отрицательных элементов в матрице - QBasic
1)Дана матрица из 3 строк и 2 столбцов. Найти количество отрицательных элементов в матрице. 2)Дан массив из 14 элементов. Найти сумму...

Найти количество отрицательных элементов в матрице - QBasic
Помогите пожалуйста решить задачу. Дан двухмерный массив А из 4 строк и 7 столбцов, Найти количество отрицательных элементов массива

В матрице найти максимальный и минимальный элементы - QBasic
Массивы 1) В матрице А(N,М) найти максимальный МХ и минимальный MN элементы, а также произведение P всех элементов, находящемся в...

В заданной матрице найти наибольший из элементов, кратных 7 - QBasic
Помогите написать код, на qBasic :-В заданном массиве A(N,M) найти наибольший из элементов, кратных 7.


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

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

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