Лабораторная работа №6
Создание программы c циклом ПОКА.
Цель: Научится создавать программы с циклом ПОКА на примере задачи обработки числового ряда.
Задача: Создать приложение с формой, которое вычисляет количество чисел натурального ряда от 1 образующих сумму до указанного числа. Организовать функцию выхода из программы.
Порядок выполнения:
- Создать проект с формой.
- Задать имя формы Name=Form1
- Задать надпись в верхней части окна Form1->Caption= “Сумма ряда (использование while)”
- На форму вынести элемент главного меню, задать пункт Файл-Выход и действие Form1->Close();
- На форму вынести элемент Edit: Name= E_Sum, Text= E_Sum
- На форму вынести 5 элементов надписи Label: 1)Name=Label1, Caption= “ Количество чисел натурального ряда от 1 образующих сумму до ”, 2) Name=Label2, Caption= “ равно ”, 3) Name=Label3, Caption= “ _____”, 4) Name=Label4, Caption= “ и их сумма равна”, 5) Name= Lab_N, Caption= “ _____”. Цвет и размер надписи на свое усмотрение.
- На форму вынести кнопку Button и задать ей имя Button1, надпись “ Вычислить”
- На событие OnClick кнопки Button1 записать код:
int n=0;
int S=0;
int Sum=StrToInt(E_Sum->Text);
while (S+n<Sum){
n=n++;
S=S+n;
}
Lab_N->Caption=IntToStr(n);
Label3->Caption=IntToStr(S);
- Запустить программу.
Пояснения к коду программы:
На кнопку Вычислить:
int n=0; //определяется переменная n целого типа равная 0
int S=0; //определяется переменная S целого типа равная 0
int Sum=StrToInt(E_Sum->Text); /*определяется переменная Sum целого типа и ей присваивается значение текстового поля E_Sum преобразованное из строкового в целый тип*/
while (S+n<Sum){ // пока S+n<Sum
n=n++; //значение n увеличить на 1
S=S+n; // значение S увеличить на n
}
Lab_N->Caption=IntToStr(n); /* преобразовать значение n из целого типа в строковый и записать ее в надпись Lab_N */
Label3->Caption=IntToStr(S); /* преобразовать значение S из целого типа в строковый и записать ее в надпись Label3 */
Главное меню:
Form1->Close(); //закрыть форму Form1 (закрыть программу)
Анимация выполнения работы:
Pr6.exe (13 MБ) Скачать
