Лабораторная работа №4
Создание программы со структурой ВЫБОР.
Цель: Научится создавать программы со структурой ВЫБОР на примере задачи определения соответствия номера и дня недели.
Задача: Создать приложение с формой, которое на введенный номер дня недели выводит название дня недели. Организовать функцию выхода из программы.
Порядок выполнения:
- Создать проект с формой.
- Задать имя формы Name=Form1
- Задать надпись в верхней части окна Form1->Caption= “ День недели”
- На форму вынести элемент главного меню, задать пункт Файл-Выход и задать действие Form1->Close();
- На форму вынести элемент Edit: Name=N, Text =N
- На форму вынести три элемента надписи Label: 1)Name=Label1, Caption= “ Введите номер дня недели”, 2) Name=Label2, Caption= “ День недели”, 3) Name=D, Caption= “ _____”. Цвет и размер надписи на свое усмотрение.
- На форму вынести кнопку Button и задать ей имя Button1, надпись “ Определить день”
- На событие OnClick кнопки Button1 записать код:
int n=StrToInt(N->Text);
switch (n) {
case 1: D->Caption="Понедельник"; break;
case 2: D->Caption="Вторник"; break;
case 3: D->Caption="Среда"; break;
case 4: D->Caption="Четверг"; break;
case 5: D->Caption="Пятница"; break;
case 6: D->Caption="Суббота"; break;
case 7: D->Caption="Воскресенье"; break;
default: D->Caption="Не верный ввод";
}
- Запустить программу.
Пояснения к коду программы:
На кнопку Найти день:
int n=StrToInt(N->Text); /*определяется переменная n целого типа и ей присваивается, преобразованный в целый тип, значение текстового поля N*/
switch (n) { //выбрать при n равном
case 1: D->Caption="Понедельник"; break; //1 , в надпись D записать слово "Понедельник"
case 2: D->Caption="Вторник"; break; //2 , в надпись D записать слово " Вторник "
case 3: D->Caption="Среда"; break; //3 , в надпись D записать слово " Среда "
case 4: D->Caption="Четверг"; break; //4 , в надпись D записать слово " Четверг "
case 5: D->Caption="Пятница"; break; //5 , в надпись D записать слово " Пятница "
case 6: D->Caption="Суббота"; break; //6 , в надпись D записать слово " Суббота "
case 7: D->Caption="Воскресенье"; break; //7 , в надпись D записать слово " Воскресенье "
default: D->Caption="Не верный ввод"; //иначе, в надпись D записать слово " Не верный ввод "
}
Главное меню:
Form1->Close(); //закрыть форму Form1 (закрыть программу)
Анимация выполнения работы:
Pr4.exe (9 MБ) Скачать