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

Тема: Массив а из n элементов

  1. #1 Массив а из n элементов 
    Новичок
    Регистрация
    24.11.2010
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Прошу прощения за наглость, помогите пожалуйста мне с задачками а то у меня они получаются :(
    1. Дан массив а из n элементов. Переставить максимальный и минимальный элементы массива. Результат распечатать в виде:
    Число элементов:
    Исходный массив:
    Min:
    Max:
    Новый массив:
    2.Дан массив r из n элементов, исключить два наименьших по абсолютной величине элемента. Результат распечатать в виде:
    Исходный массив:
    Число элементов:
    Два наименьших элемента:
    Новый массив:
    Заранее спасибо
    Ответить с цитированием  
     

  2. #2  
    Гуру Аватар для Konstantin Shcherba
    Регистрация
    08.11.2010
    Сообщений
    1,336
    Сказал(а) спасибо
    26
    Поблагодарили 139 раз(а) в 107 сообщениях
    Записей в блоге
    1
    Первая задачка:

    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    N = 8
    [Ссылки могут видеть только зарегистрированные пользователи. ] A(N)
     
    ' Random DIM A value
    FOR I = 1 TO N
    A(I) = [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ] * 100)
    NEXT I
     
    Amin = A(1)
    Amini = 1
    Amax = A(1)
    Amaxi = 1
     
    FOR I = 2 TO N
    IF Amin > A(I) THEN
    Amin = A(I)
    Amini = I
    [Ссылки могут видеть только зарегистрированные пользователи. ] IF
    IF Amax < A(I) THEN
    Amax = A(I)
    Amaxi = I
    [Ссылки могут видеть только зарегистрированные пользователи. ] IF
    NEXT I
     
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Chislo elementov:", N
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Massiv:"
    FOR I = 1 TO N
    [Ссылки могут видеть только зарегистрированные пользователи. ] A(I)
    NEXT I
     
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Min:", Amin
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Max:", Amax
    [Ссылки могут видеть только зарегистрированные пользователи. ]
     
    'Menyaem mestami
    A(Amini) = Amax
    A(Amaxi) = Amin
     
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Noviy massiv:"
    FOR I = 1 TO N
    [Ссылки могут видеть только зарегистрированные пользователи. ] A(I)
    NEXT I
    Ответить с цитированием  
     

  3. #3  
    Новичок
    Регистрация
    24.11.2010
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    qbasic,огромное спасибо!! вы очень сильно мне помогли!
    Ответить с цитированием  
     

  4. #4  
    Гуру Аватар для Konstantin Shcherba
    Регистрация
    08.11.2010
    Сообщений
    1,336
    Сказал(а) спасибо
    26
    Поблагодарили 139 раз(а) в 107 сообщениях
    Записей в блоге
    1
    Пожалуйста!

    Вторая задачка:
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    N = 10
    [Ссылки могут видеть только зарегистрированные пользователи. ] R(N)
     
    ' Random DIM R value
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Ishodniy massiv:"
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Chislo elementov:", N
    FOR I = 1 TO N
    R(I) = [Ссылки могут видеть только зарегистрированные пользователи. ](([Ссылки могут видеть только зарегистрированные пользователи. ] - [Ссылки могут видеть только зарегистрированные пользователи. ]) * 100)
    [Ссылки могут видеть только зарегистрированные пользователи. ] R(I)
    NEXT I
     
    FOR J = 0 TO 1
    Rmin = [Ссылки могут видеть только зарегистрированные пользователи. ](R(1))
    Rmini = 1
    FOR I = 2 TO N - J
    IF Rmin > [Ссылки могут видеть только зарегистрированные пользователи. ](R(I)) THEN
    Rmin = [Ссылки могут видеть только зарегистрированные пользователи. ](R(I))
    Rmini = I
    [Ссылки могут видеть только зарегистрированные пользователи. ] IF
    NEXT I
     
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Rmin = ", Rmin
     
    FOR I = Rmini TO N - 1 - J
    R(I) = R(I + 1)
    NEXT I
     
    NEXT J
     
     
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Noviy massiv:"
    FOR I = 1 TO N - 2
    [Ссылки могут видеть только зарегистрированные пользователи. ] R(I)
    NEXT I
    Ответить с цитированием  
     

  5. #5  
    Новичок
    Регистрация
    24.11.2010
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    qbasic, еще раз огромнейшее вам спасибо!!!
    Ответить с цитированием  
     

  6. #6  
    Гуру Аватар для Konstantin Shcherba
    Регистрация
    08.11.2010
    Сообщений
    1,336
    Сказал(а) спасибо
    26
    Поблагодарили 139 раз(а) в 107 сообщениях
    Записей в блоге
    1
    Будут еще вопросы - пишите!

    Прошу прощения за наглость, помогите пожалуйста мне с задачками а то у меня они получаются
    А что именно не получалось?
    Ответить с цитированием  
     

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

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

Похожие темы

  1. 2-х мерный динамический массив
    от NoodLez в разделе C/C++
    Ответов: 2
    Последнее сообщение: 26.05.2013, 20:57
  2. Ответов: 1
    Последнее сообщение: 09.11.2011, 22:38
  3. Двумерный массив
    от barinov95 в разделе QBasic
    Ответов: 14
    Последнее сообщение: 21.10.2011, 20:06
  4. Ответов: 11
    Последнее сообщение: 25.12.2010, 02:33
  5. Снова массив. помогите)
    от PreF1993 в разделе QBasic
    Ответов: 1
    Последнее сообщение: 08.12.2010, 22:11
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •