Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 27.01.2014
Сообщений: 2

Как найти наименьший элемент двумерного массива A(N,M) больший данного Т

27.01.2014, 16:16. Показов 1643. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
составить программу нахождения наименьшего элемента двумерного массива A(N,M) больше данного Т.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
27.01.2014, 16:16
Ответы с готовыми решениями:

Найти наименьший элемент двумерного массива
Найти наименьший элемент двумерного массива. Размер MXN. Элементы задаются на интервале . Uses crt; Var a: array of integer; ...

Найти наименьший элемент двухмерного массива, больше данного T
нужна помощь по написанию лабораторных работ в паскале.В программировании я не силен,а в понедельник уже экзамен,ничего не получается.вот...

Найти наибольший (наименьший) элемент двумерного массива
Найти наибольший (наименьший) элемент двумерного массива. Указать его индексы

3
140 / 130 / 127
Регистрация: 27.09.2012
Сообщений: 641
30.01.2014, 15:22
Вроде так
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
CLS
INPUT "введите размерность N="; N
INPUT "введите размерность M="; M
INPUT "введите T="; t
DIM A(1 TO N, 1 TO M)
FOR i = 1 TO N
 FOR j = 1 TO M
    A(i, j) = INT(RND * 100)
PRINT A(i, j);
NEXT j
PRINT
NEXT i
min = A(1, 1)
FOR i = 1 TO N
 FOR j = 1 TO M
    IF A(i, j) <= min AND A(i, j) > t THEN min = A(i, j)
 NEXT j
NEXT i
PRINT "Наименьший элемент массива больше T="; min
END
1
 Аватар для markiza-inc
925 / 252 / 100
Регистрация: 21.10.2012
Сообщений: 609
31.01.2014, 09:49
Цитата Сообщение от urbic Посмотреть сообщение
Вроде так
Несовсем.

Если по условию задачи, то так:
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
30
31
32
33
34
CLS
DO
  INPUT "Введите размерность по строкам (1 to 15) N="; n
LOOP UNTIL (n > 0) AND (n <= 15)
DO
  INPUT "Введите размерность по столбцам (1 to 15) M="; m
LOOP UNTIL (m > 0) AND (m <= 15)
INPUT "Введите число сравнения T="; t
DIM A(1 TO n, 1 TO m)
PRINT : RANDOMIZE (TIMER)
FOR i = 1 TO n
 FOR j = 1 TO m
    A(i, j) = INT(RND * 100)
    PRINT USING "#####"; A(i, j);
 NEXT j: PRINT
NEXT i: PRINT
pr = 0
FOR i = 1 TO n                                                     
 FOR j = 1 TO m
    IF (A(i, j) > t) THEN
       IF pr = 0 THEN
          min = A(i, j): pr = 1
                 ELSE
          IF min > A(i, j) THEN min = A(i, j)
       END IF
    END IF
 NEXT j
NEXT i
IF pr > 0 THEN
   PRINT "Наименьший элемент массива, больше T = "; min
          ELSE
   PRINT "Наименьшего элемента массива, больше чем T - НЕ существует"
END IF
END
1
02.02.2014, 02:52

Не по теме:

Все уже позабыли негласное правило писать транслитом, юзер конечно же умён
выкачает keyrus'ы и пропишет в autoexec'е, а ведь сколько тёрок было.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
02.02.2014, 02:52
Помогаю со студенческими работами здесь

Delphi найти наименьший элемент двумерного массива
Здравствуйте ! Не получатеся справится с задачей : дан вещественный массив из 4 строк и 4 столбцов. Найти наименьший элемент массива и его...

Найти наибольший (наименьший) элемент двумерного массива
Найти наибольший (наименьший) элемент двумерного массива. Указать его индексы. помогите,пожалуйста)

В каждом столбце двумерного массива найти наименьший элемент
Составить программу которая в каждом столбце двумерного массива, находит наименьший элемент, и записывает его на место первого элемента в...

Найти наименьший элемент двумерного массива вещественных чисел
Найти наименьший элемент двумерного массива вещественных чисел.

Дан двумерный массив. Найти наименьший положительный элемент каждой строки данного массива
Дан двумерный массив. Найти наименьший положительный элемент каждой строки данного массива. Из полученных значений сформировать одномерный...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru