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

Тема: QBASIC массивы

  1. #1 QBASIC массивы 
    Новичок
    Регистрация
    20.12.2011
    Сообщений
    2
    Сказал(а) спасибо
    2
    Поблагодарили 0 раз(а) в 0 сообщениях
    Одномерный массив:
    1)Сгенерировать произвольный массив(n=20). Составить программу увеличения всех элементов массива в 5 раз. Вставить в массив новый член, который равен 8, пятым элементом.
    2)Сгенерировать произвольный массив(n=20). Составить программу формирования из массива а(n) двух массивов, в которых первый массив заполнен предшествующим максимальному, а второй остальными элементами.

    Двумерный массив:
    1)Сгенерировать произвольный массив(5x5). Составить программу упорядочивания всех эл-тов по возрастанию матрицы a(n, m). Вычислить среднее арифметическое каждого столбца под главной диагональю матрицы b(n, m) и записать значения в последний стобец таблицы.
    2)Сгенерировать произвольный массив(5x5). Создать программу удаления строки и столбца, которая содержит минимальный элемент матрицы c(n, m)

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

  2. #2  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Одномерный массив задача 1:
    Код :
    DIM MS(20)
    FOR I = 1 TO 20
        MS(I) = RND * 100
    NEXT
    PRINT "Ishodniy massiv"
    FOR I = 1 TO 20
        PRINT MS(I),
    NEXT
     
    FOR I = 1 TO 20
        MS(I) = MS(I) * 5
    NEXT
    PRINT
    PRINT "Massiv *5"
    FOR I = 1 TO 20
        PRINT MS(I),
    NEXT
     
    MS(5) = 8
    PRINT
    PRINT "Vstavlen 5 =8"
    FOR I = 1 TO 20
        PRINT MS(I),
    NEXT
    Ответить с цитированием  
     

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

    domvik (21.12.2011)

  4. #3  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Вторая задачька:
    Код :
    DIM MS(20)
    DIM MORE(20)
    DIM LESS(20)
     
    FOR I = 1 TO 20
        MS(I) = RND * 100
    NEXT
    PRINT "Ishodniy massiv"
    FOR I = 1 TO 20
        PRINT MS(I),
    NEXT
     
    IND = 0
    MAX = 0
    FOR I = 1 TO 20
        IF MS(I) > MAX THEN
            MAX = MS(I)
            IND = I
        END IF
    NEXT
    IL = 1
    IM = 1
    FOR I = 1 TO 20
        IF I < IND THEN
            LESS(IL) = MS(I)
            IL = IL + 1
        END IF
        IF I > IND THEN
            MORE(IM) = MS(I)
            IM = IM + 1
        END IF
    NEXT
     
    PRINT
    PRINT "Menshiy"
    FOR I = 1 TO 20
        PRINT LESS(I),
    NEXT
    PRINT
    PRINT "Bolshiy"
    FOR I = 1 TO 20
        PRINT MORE(I),
    NEXT
    Ответить с цитированием  
     

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

    domvik (21.12.2011)

  6. #4  
    Новичок
    Регистрация
    20.12.2011
    Сообщений
    2
    Сказал(а) спасибо
    2
    Поблагодарили 0 раз(а) в 0 сообщениях
    Огромное спасибо!

    С двумерными массивами помогите кто-нибудь, пожалуйста.
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Массивы
    от Andrey121121 в разделе Turbo Pascal
    Ответов: 1
    Последнее сообщение: 10.12.2011, 22:24
  2. Ответов: 7
    Последнее сообщение: 25.11.2011, 01:40
  3. массивы
    от И.Крапивин в разделе QBasic
    Ответов: 4
    Последнее сообщение: 22.11.2011, 21:32
  4. Двумерные массивы, QBasic
    от _cvorus в разделе QBasic
    Ответов: 1
    Последнее сообщение: 06.06.2011, 19:55
  5. Массивы
    от alf в разделе QBasic
    Ответов: 6
    Последнее сообщение: 30.11.2010, 18:10
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •