Важная информация
Показано с 1 по 4 из 4

Тема: Двумерные массивы Qbasic

  1. #1 Двумерные массивы Qbasic 
    Новичок Аватар для Eldiyar Rysaliev
    Регистрация
    16.12.2015
    Сообщений
    4
    Сказал(а) спасибо
    2
    Поблагодарили 0 раз(а) в 0 сообщениях
    Пожалуйста помогите кто нибудь :
    Найти наибольший элемент квадратной матрицы A (n,m)
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,829
    Сказал(а) спасибо
    1,810
    Поблагодарили 934 раз(а) в 796 сообщениях
    Записей в блоге
    1
    Найти наибольший элемент квадратной матрицы A (n,m)
    Раз матрица квадратная зачем (n, m), когда можно одной переменной (n, n)?
    Уточните условие. Написать код две секунды.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  3. #3  
    Новичок Аватар для Eldiyar Rysaliev
    Регистрация
    16.12.2015
    Сообщений
    4
    Сказал(а) спасибо
    2
    Поблагодарили 0 раз(а) в 0 сообщениях
    Найти наибольший элемент квадратной матрицы A (n,m) используя генератор случайных чисел. Не знаю так написано
    Ответить с цитированием  
     

  4. #4  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,829
    Сказал(а) спасибо
    1,810
    Поблагодарили 934 раз(а) в 796 сообщениях
    Записей в блоге
    1
    квадратной матрицы A (n,m)
    n x m - это прямоугольная матрица, т.е. это не квадратная. Напишу так, по идее не должны придраться.

    QBasic Code:
    1. DEFINT A-Z
    2.  
    3.   '  Ввести размерность
    4. INPUT "Vvedite razmernost:", r
    5. m = r       '  Строки
    6. n = r       '  Столбцы
    7.  
    8. DIM a(1 TO n, 1 TO m) AS INTEGER
    9.  
    10.   '  Заполнить матрицу
    11. FOR iy = 1 TO m
    12.    FOR ix = 1 TO n
    13.       a(ix, iy) = INT(RND * 100) - 50
    14.       PRINT USING " ### "; a(ix, iy);
    15.    NEXT: PRINT
    16. NEXT
    17.  
    18.   '  Найти максимум
    19. mx = a(1, 1)
    20. FOR iy = 1 TO m: FOR ix = 1 TO n
    21.    IF a(ix, iy) > mx THEN xm = ix: ym = iy: mx = a(ix, iy)
    22. NEXT: NEXT
    23.  
    24. PRINT USING "max = ###    na pozicii  (## stolb, ## strok)"; mx; xm; ym
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  5. Пользователь сказал cпасибо:

    Eldiyar Rysaliev (17.12.2015)

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. двумерные массивы
    от Юрий Климонтов в разделе Pascal
    Ответов: 0
    Последнее сообщение: 13.04.2014, 11:55
  2. Двумерные массивы
    от Sten52 в разделе QBasic
    Ответов: 4
    Последнее сообщение: 03.06.2012, 14:00
  3. Ответов: 0
    Последнее сообщение: 07.12.2011, 23:12
  4. Двумерные массивы, QBasic
    от _cvorus в разделе QBasic
    Ответов: 1
    Последнее сообщение: 06.06.2011, 19:55
  5. Двумерные массивы
    от nikita в разделе QBasic
    Ответов: 0
    Последнее сообщение: 04.05.2011, 17:36
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •