16331

Программирование алгоритмов ветвлений со многими вариантами

Лабораторная работа

Информатика, кибернетика и программирование

Лабораторная работа № 3 Программирование алгоритмов ветвлений со многими вариантами Цель: приобретение навыков программирования алгоритмов ветвлений со многими вариантами с помощью пользовательской подпрограммыфункции позволяющей выбрать необходимый вариант из...

Русский

2013-06-20

54.5 KB

21 чел.

Лабораторная работа № 3

Программирование алгоритмов ветвлений со многими вариантами

Цель: приобретение навыков программирования алгоритмов ветвлений со многими вариантами с помощью пользовательской подпрограммы-функции, позволяющей выбрать необходимый вариант из любого предложенного количества вариантов.

Индивидуальные варианты лабораторной работы № 3 представлены

в таблице 5

Перед  выполнением  лабораторной работы № 3  разберите

пример 6

Пример 5

Постановка задачи. Составить пользовательскую подпрограмму процедуру, расшифровывающую количество баллов за полученный ответ по введенному числу с клавиатуры.

Технология выполнения задания:

1. Исходные данные:х Z.

2.Набрать в стандартном модуле проекта следующую пользовательскую процедуру:

Sub DemoSelect ()

Dim x As Integer

x = InputBox ("введите целое число")

Select Case x

Case 8 To 10

MsgBox ("Отлично")

Case 6 To 7

MsgBox ("Хорошо")

Case 4 To 5

MsgBox ("Удовлетворительно")

Case Is < 4

MsgBox ("Неудовлетворительно")

End Select

End Sub

3. Запустить подпрограмму-процедуру.

Примечание. Процедура MsgBox  выводит на экран диалоговое окно, содержащее сообщение для пользователя.


Таблица 5

№ В

Варианты индивидуальных заданий

Разработать функцию пользователя, позволяющую выбрать вариант из любого количества вариантов

1

С клавиатуры вводятся цифры (от 1 до 7). Составить программу, выводящую на экран название дня недели соответственно введенной цифре. Если  введенная цифра меньше 1 или больше 7, то выводится надпись «нет соответствия».

2

C клавиатуры вводятся числа (от 1 до 12). Составить программу, выводящую на экран название месяца соответственно введенному числу. Если число меньше 1 или больше 12, то выводится надпись "нет соответствия".

3

С клавиатуры вводится числа (от 1 до 25). Составить программу, выводящую на экран название возрастной категории соответствующей данному числу:

  1.   грудной возраст
    1.   ясельный
    2.   дошкольный
    3.   младший школьный
    4.  подростковый
  2.  допризывной
  3.  призывной

    25        студенческий.

4

С клавиатуры вводятся числа (от 0 до 99). Составить программу, выводящую на экран название региона России, соответствующее заданному числу: 56 – Оренбургская область; 77 – Московская обл. и т.д. Если число отсутствует в списке, то вывести надпись “нет данных”.

5

Составить программу, определяющую по введенной дисциплине, и по введенной специальности, фамилию преподавателя.

Например, вводим Информатика, АКУ, выводится Рыбакова

6

Составить программу определения названия специальности Финансово-экономического факультета  по ее числовому коду. Например, 351200 – Налоги и налогообложение и т.д.

7

Составить программу, выводящую на экран характеристики компьютеров относящихся к n-ому поколению. Число n вводится при помощи клавиатуры.

8

Составить программу, выводящую на экран сроки выполнения лабораторной работы в зависимости от её номера.

9

С клавиатуры вводятся числа (от 0 до 10). Составить программу, выводящую на экран английские названия, соответствующие вводимому числу.

10

С клавиатуры вводятся оценки (2, 3, 4, 5), вывести им соответствующие название на английском языке.

11

Составить программу, выводящую на экран названия знаков зодиака, в соответствии с вводимым номером месяца. Если вводимое число не принадлежит диапазону 0 – 12, то вывести надпись “нет знака”.

12

Написать программу, определяющую время суток по вводимому с клавиатуры часу, 8 – утро, 21 – вечер и т.д.

13

Составить программу, выводящую на экран названия телеканалов. 1 – ОРТ, 2 – РТР и т.д.

14

Составить программу, выводящую название ноты в соответствии с ее порядковым номером.

15

Составить программу, выводящую на экран номера телефонов экстренного вызова 01, 02 и т.д.

16

Напишите программу-модель анализа пожарного датчика в помещении, которая выводит сообщение «пожароопасная ситуация», если температура (в вашей модели она будет вводиться с клавиатуры) в комнате превысила 600 0С.

17

Составить программу, выводящую расшифровку телефонных кодов городов России в зависимости от введенного числа n.

18

Составить программу, выводящую на экран номер корпуса университета по введенному номеру аудитории.

Например,  вводим 6201, выводится – 6 или шестой

19

С клавиатуры вводятся числа (от 0 до 99). Составить программу, выводящую на экран название страны по международной классификации (штрих-код): 01-03 – США + Канада, 46 – Россия и т.д.

20

Напишите программу-модель анализа пожарного датчика в помещении, которая выводит сообщение «пожароопасная ситуация», если температура (в вашей модели она будет вводиться с клавиатуры) в комнате превысила 600 0С.


 

А также другие работы, которые могут Вас заинтересовать

22719. Нова ядерна стратегія адміністрації Дж. Картера 25.5 KB
  Зовнішньополітична діяльність адміністрації 39го президента США здобула суперечливі та неоднозначні оцінки. 1 нарешті за наполяганням США керівництво НАТО на Брюсельській нараді в грудні 1979 року прийняло рішення про розміщення в країнах Західної Європи починаючи з 1983 року ракет середнього радіусу Дії. 1977 року президент Джиммі Картер запропонував Міністерству оборони зменшити американські і радянські стратегічні носії на 200250 з кожної сторони внаслідок чого в США та Росії залишилося б приблизно по 2000 боєголовок.15 Цифра ця майже...
22720. Латиноамериканська політика США у період адміністрації Р. Рейгана 24 KB
  Латиноамериканська політика США у період адміністрації Р. Рейган был сторонником активизации внешней политики США и такая возможность вскоре представилась благодаря событиям в Центральной Америке. Одновременно США поддерживали демократические силы Сальвадора выступавшие против насилия и других нарушений прав человека эскадронами смерти карательными отрядами правых и способствовали приходу к власти правительства избранного демократическим путем. США помогали стабилизировать обстановку но разгул насилия в стране не прекращался и даже...
22721. Політика США щодо Японії у 90-х роках 43.5 KB
  Політика США щодо Японії у 90х роках. Все эти особенности существенно осложняют политику США в отношении Японии хотя мало влияют на сложившийся консенсус по вопросу о ее фактической безальтернативности. Сторонники сближения с Китаем в свою очередь также не ставят под сомнение необходимость наращивания сотрудничества с Японией отчасти в целях усиления американских позиций в Китае отчасти для сохранения самой Японии в орбите США. Немало американских политиков продолжают относиться к Японии с настороженностью не исключают ее эвентуальный...
22722. Політика США на Близькому та Середньому Сході у період адміністрації Дж. Буша (ст.) 30.5 KB
  Політика США на Близькому та Середньому Сході у період адміністрації Дж. Бюджетные проблемы о которых в основном и говорили средства массовой информации США освещая работу правительства и конгресса 2 августа 1990 г. Президент США отдал приказ о прекращении всех видов торговли с Ираком и о замораживании иракских и кувейтских активов в американских банках. Политика США в данном вопросе базируется на четырех принципах: требование вывода иракских войск из Кувейта; восстановление законного правительства этой страны; приверженность к миру и...
22723. Відносини між США та Російською Федерацією у 1992 р 27.5 KB
  Відносини між США та Російською Федерацією у 1992 р. Отношений США и СНД как таковых не существует так как СНД юридически не существует. В основном это отношения двусторонние США и стран СНД. После распада СССР внимание США было сосредоточено в основном на Росси.
22724. Еволюція відносин США з Російською Федерацією 29.5 KB
  Буш и Путин заявили что они осознают важность многосторонних контртеррористических усилий в том числе под эгидой ООН восьмерки Евросоюза Организации по безопасности и сотрудничеству в Европе ОБСЕ группы 6 2 и в формате НАТОРоссия а также такие региональные контртерроористические инициативы как Шанхайская организация сотрудничества. Публикуется в связи с саммитом НАТОРоссия 28 мая 2002 в Италии Ниже приводится текст справки Белого дома о новом Совете НАТОРоссия опубликованной в связи с проведением 28 мая саммита НАТОРоссия...
22725. Американсько-канадське військово-стратегічне співробітництво в роки холодної війни 24.5 KB
  Канада принимала активное участие в деятельности ООН и внесла значительный вклад в осуществление так называемого плана Коломбо – программы по совместному экономическому и социальному развитию принятой на конференции стран британского Содружества в г. В то же время в вопросах обороны Канада полагалась в основном на систему военных блоков в первую очередь НАТО в создании которой в 1949 принимал участие премьерминистр Канады СенЛоран. В 1958 Канада заключила с США соглашение о создании Объединенного командования противовоздушной обороны...
22726. Позиція Канади щодо війни в Індокитаї 21.5 KB
  The next big issue of contention was the war in Vietnam. In early 1965 the war was expanded with the start of an extensive U. As the war escalated Pearson became increasingly doubtful of the wisdom of U. ground troops to Vietnam might lead to a wider war in Asia the Secretary of State for External Affairs Paul Martin decided to make an independent approach to the North by sending Chester Ronning Canada's leading China expert as an emissary.