У цьому коді ми використовуємо 5 полів редагування (Edit) для введення чисел користувачем, кнопку (Button) для запуску обчислень та мітку (Label) для виведення результату. Коли користувач натискає на кнопку, програма бере числа з полів редагування, обчислює середнє арифметичне та виводить результат на мітку.
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
float num1, num2, num3, num4, num5;
float average;
num1 = StrToFloat(Edit1->Text);
num2 = StrToFloat(Edit2->Text);
num3 = StrToFloat(Edit3->Text);
num4 = StrToFloat(Edit4->Text);
num5 = StrToFloat(Edit5->Text);
average = (num1 + num2 + num3 + num4 + num5) / 5;
LabelResult->Caption = "Середнє арифметичне: " + FloatToStr(average);
}
//---------------------------------------------------------------------------
У цьому коді ми використовуємо 5 полів редагування (Edit) для введення чисел користувачем, кнопку (Button) для запуску обчислень та мітку (Label) для виведення результату. Коли користувач натискає на кнопку, програма бере числа з полів редагування, обчислює середнє арифметичне та виводить результат на мітку.