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

Тема: QBasic

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

  2. #2  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Все просто!
    1. Ищите минимальное число, нашли.
    2. Ищите минимальное число больше первого, нашли.
    3. Ищите минимальное число больше второго.
    Ответить с цитированием  
     

  3. #3  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Ладно, напишу, но третий цикл допишите самостоятельно.
    Код :
    cls
    n=10
    dim m(n)
    for i=0 to n
      m(i)=rnd*100
    next i
     
    min1=2147483647
    for i=0 to n
      if min1>m(i) then min1=m(i)
    next i
    min2=2147483647
    for i=0 to n
      if min2>m(i) And min1<>m(i) then  min2=m(i
    next i
     
    print
    print
    print min1,min2
    Ответить с цитированием  
     

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

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

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

Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •