1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

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

  1. azAzzzz

    azAzzzz Гость

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

    hosm * so what *

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

    azAzzzz Гость

    Репутация:
    0
  4. azAzzzz

    azAzzzz Гость

    Репутация:
    0
    никто не поможет ((((
     
  5. hosm

    hosm * so what *

    Репутация:
    0
    Регистрация:
    18 май 2009
    Сообщения:
    2.442
    Симпатии:
    9
    А там всё элементарно, сами могли бы сделать. месяцы, надеюсь, знаете - допишите сами
    Код:
    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 Гость

    Репутация:
    0
    точно ) а остальные? )
     
  7. azAzzzz

    azAzzzz Гость

    Репутация:
    0
Загрузка...

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