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

В Visul Basic есть две формы синтаксиса оператора ветвления: однострочная и многострочная.

If УсловноеВыражение Then Оператор1 [Else Оператор2]

If УсловноеВыражение Then ПоследовательностьОператоров1 [Else ПоследовательностьОператоров2] End If

Упражнение1:

Рассмотрим немного упрощенное юридическое правило: «В России человеку назначается пенсия, если этот человек мужчина и ему больше 60 лет, или если этот человек женщина и ей больше 55 лет, или если стаж работы человека на «вредном производстве» превысил 25 лет.

Запрограммируйте приложение «Пенсионный стаж». Пользователь вводит свой возраст, пол и стаж работы на вредном производстве (по выслуге лет). Приложение должно выдавать результат – пенсионный стаж пользователя (если он пенсионер). Экранную форму разработайте самостоятельно.

Упражнение2:

Создайте программу, которая играет с пользователем в следующую игру: Компьютер «задумывает» целое число (допустим одну из цифр – от 1 до 5). Если пользователь угадал, то появляется сообщение об успехе. Число компьютер задумывает с помощью функции RND.

Случайное число генерируется в интервале от 0 до 1. Чтобы получить число N для заданного интервала от N1 до N2, можно поступить следующим образом:

N=N1 + Int (Rnd*(N2 - N1 + 1)

!!! Обрати внимание! В разделе общих объявлений (General) можно объявить глобальные переменные (вместо оператора Dim) т.е. они доступны всем модулям проекта.

Программный код Задачи Экранная форма и панель сообщения

Задание 1

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

Задание 2

В небоскребе N этажей и всего один подъезд; на каждом этаже по 3 квартиры; лифт может останавливаться только на нечетных этажах. Человек садится в лифт и набирает номер нужной ему квартиры M. На какой этаж должен доставить лифт пассажира?

Составить программу для определения подходящего возраста кандидатуры для вступления в брак, используя следующие соображения: возраст девушки равен половине возраста мужчины плюс 7, возраст мужчины определяется соответственно как удвоенный возраст девушки минус 14.

Задание 3

В старояпонском календаре был принят 12-тилетний цикл. Годы внутри цикла носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи.

Написать программу, которая вводит номер некоторого года и печатает его название по старояпонскому календарю.

СПРАВКА:1996 год-год крысы - начало очередного цикла)

Задание 4

Составить приложение для расчета стоимости проезда в поезде в зависимости от класса и категории вагона (плацкартный или купейный), если:

• Стоимость билета в вагоне первого класса равна Х рублей;

• Стоимость билета в купейном вагоне 2-го класса в два раза дешевле, чем стоимость билета в первом классе;

• Стоимость билета в плацкартном вагоне второго класса составляет 70% стоимости билета в купейном вагоне второго класса;

• Пассажир приобрел N билетов в один вагон.

Задание 5

ЭВМ поможет Вам узнать много интересного про себя. Человек характеризуется рядом физических параметров, из которых РОСТ, МАССУ и ВОЗРАСТ знают все. Однако можно узнать о себе еще много других параметров. Сделайте это по приведенным формулам.

Данные об идеальной массе и жирности не воспринимайте слишком серьезно.

Идеальная масса: Специалисты считают, что здоровый человек должен иметь идеальную массу, которую можно вычислить по формуле:

m = (A * 3 – 450 + B) * 0.25 + 45; для мужчин

m = (A* 3 – 450 + B) * 0.225 + 40.4; для женщин

где A– рост, см;

B – возраст, лет;

Жирность. Известно, что тело молодых здоровых мужчин содержит около 15%, а тело женщин – 22% жира. истинная жирность (%) приблизительно оценивается по формуле:

X = (M - m) / M * 100 + 15 для мужчин

X = (M - m) / M * 100 + 22 для женщин

Плотность: Плотность человеческого тела близка к плотности воды (1000 кг/м³): плотность жира 890 кг/м³, мускулов 1100 кг/м³ . Для человека средняя плотность вычисляется по формуле:

b = 8.90 * X + 11 * (100 – X) (кг/м³)

Объем. Этот параметр вычисляется по формуле: V = M / b (м³)

Площадь тела. Зная массу человека М (в кг) и рост А(в см), можно вычислить площадь кожи нашего тела S (в м²) по так называемой формуле Бойде:

S = (M * 1000)^{(( lg (1/M) + 35.75) / 53.2)}A^0.3 / 3118.2 (м²)

Результатом Вашей программы будут расчетные характеристики пользователя. Кроме того, Ваша программа должна как – то отреагировать на отклонения расчетной жирности от нормы.

И учтите, пользователем Вашей программы могут быть как мужчины так и женщины.