Лабораторная работа №3
Создание программы с разветвленной структурой.
Цель: Научится создавать программы разветвляющейся структуры на примере задачи нахождения максимального из трех знаний.
Задача: Создать приложение с формой, которая находить максимальное из трех чисел. На форме должна быть возможность ввода трех значений и вывода наибольшего из них. Организовать функцию выхода из программы.
Порядок выполнения:
- Создать проект с формой.
- Задать имя формы Name=Form1
- Задать надпись в верхней части окна Form1->Caption= “ Нахождение максимального ”
- На форму вынести элемент главного меню, задать пункт Файл-Выход и задать действие Form1->Close();
- На форму вынести 3 элемента Edit: 1) Name=A, Text =A, 2) Name=B, Text =B, 3) Name=C, Text =C.
- На форму вынести три элемента надписи Label: 1)Name=Label1, Caption= “Максимальное из трех чисел равно”, 2) Name=Label2, Caption= “ Введите три целых числа”, 3) Name=MAX, Caption= “ _____”. Цвет и размер надписи на свое усмотрение.
- На форму вынести кнопку Button и задать ей имя Button1, надпись “Найти”
- На событие OnClick кнопки Button1 записать код:
int M=0;
int X=StrToInt(A->Text);
int Y=StrToInt(B->Text);
int Z=StrToInt(C->Text);
if (X>Y) if (X>Z) M=X; else M=Z;
else if (Y>Z) M=Y; else M=Z;
MAX->Caption=IntToStr(M);
- Запустить программу.
Пояснения к коду программы:
На кнопку Найти:
int M=0; //определяется переменная М целого типа равная 0
int X=StrToInt(A->Text); /*определяется переменная X целого типа и ей присваивается, преобразованный в целый тип, значение текстового поля A*/
int Y=StrToInt(B->Text); /*определяется переменная Y целого типа и ей присваивается, преобразованный в целый тип, значение текстового поля B*/
int Z=StrToInt(C->Text); /*определяется переменная Z целого типа и ей присваивается, преобразованный в целый тип, значение текстового поля C*/
if (X>Y) if (X>Z) M=X; else M=Z; //если X>Y то если X>Z то M=X иначе M=Z
else if (Y>Z) M=Y; else M=Z; //иначе если Y>Z то M=Y иначе M=Z
MAX->Caption=IntToStr(M); /* значение M из целого преобразовать в строковое и записать в свойство Caption надписи MAX*/
Главное меню:
Form1->Close(); // закрыть форму Form1 (закрыть программу)
Анимация выполнения работы:
Pr3.exe (10 MБ) Скачать