Помогите пожалуйста, очень нужно

Тема в разделе "Visual Basic", создана пользователем azAzzzz, 13 мар 2011.

  1. azAzzzz

    azAzzzz Гость

    ВЕТВЛЕНИЯ (УСЛОВНЫЕ КОНСТРУКЦИИ)
    7. В некотором учебном заведении действуют следующие правила приема. Абитуриенты сдают три экзамена. Если они набирают не менее 13 баллов, то это дает право поступить на дневное отделение, от 10 до 12 – на вечернее, от 8 до 9 – на заочное; ниже 8 баллов означает отказ в приеме на учебу. Написать программу, которая в зависимости от суммы набранных баллов сообщает абитуриенту его права на поступление.
    ОПЕРАЦИИ С МАССИВАМИ
    37. Удалить из массива ненулевые элементы, передвинув на их место следующие элементы без нарушения порядка их следования. В результате должен получиться массив меньшего размера, не содержащий нулей.
    ЛИНЕЙНЫЙ ПОИСК
    67. В целочисленном массиве найти наиболее длинную цепочку одинаковых подряд стоящих элементов
    и если не сложно
    ВЕТВЛЕНИЯ (УСЛОВНЫЕ КОНСТРУКЦИИ)
    13. Написать программу, которая по введенному номеру времени года (1 – зима, 2 – весна, 3 – лето, 4 осень) выводит соответствующие этому времени года месяцы
    ОПЕРАЦИИ С МАССИВАМИ
    43. Все ненулевые элементы матрицы расположить в начале массива и подсчитать их количество.
    ЛИНЕЙНЫЙ ПОИСК
    73. Найти все числа из массива , встречающихся более чем в одной строке матрицы .
     
  2. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
     
  3. azAzzzz

    azAzzzz Гость

  4. azAzzzz

    azAzzzz Гость

    никто не поможет ((((
     
  5. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    А там всё элементарно, сами могли бы сделать. месяцы, надеюсь, знаете - допишите сами
    Код (LotusScript):
    Sub Task13()
    Sezon = InputBox("Введите номер времени года (1 – зима, 2 – весна, 3 – лето, 4 - осень)")
    Select Case Sezon
    case "1"
    MsgBox ("Дек Янв Фев")
    case "2"
    MsgBox ("...")
    case "3"
    MsgBox ("...")
    case "4"
    MsgBox ("...")
    End Select
    end sub
     
  6. azAzzzz

    azAzzzz Гость

    точно ) а остальные? )
     
  7. azAzzzz

    azAzzzz Гость

Загрузка...
Похожие Темы - Помогите пожалуйста очень
  1. He3HauKa
    Ответов:
    2
    Просмотров:
    1.252
  2. molya16
    Ответов:
    2
    Просмотров:
    1.849
  3. limbra
    Ответов:
    3
    Просмотров:
    52
  4. uxbmw3w
    Ответов:
    0
    Просмотров:
    73
  5. GREED
    Ответов:
    1
    Просмотров:
    544

Поделиться этой страницей