Описание кода.
Пример 1. Единицы измерения Разработать форму для перевода единиц измерения (мер длины и мер веса) из англо-американских в метрические (мили-км, фунты-кг).
//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "edizm1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { double a,b,r; double d; a=StrToFloat(Edit1->Text); b=StrToFloat(Edit2->Text); if (RadioButton1 -> Checked) { r=1.5; d=a*r; Label3->Caption=FloatToStr(a)+ "*"+FloatToStr(r) +"="+ FloatToStrF(d, ffFixed, 8, 2); } else { r=0.2; d=b*r; Label4->Caption=FloatToStr(b)+ "*"+FloatToStr(r) +"="+FloatToStrF(d, ffFixed, 8, 2); } } Пример 2. Ввод данных. 1. Разработать приложение для ввода чисел и выполнения следующих вычислений: - при вводе целого числа А рассчитать его удвоенное значение; - для вещественных чисел вычислить их сумму и произведение. Для ввода целых чисел выделить поле Edit1, вещественных – поля Edit2 и Edit3. Для вывода использовать компонент Label. 2. Исследовать работу стандартных функций InputBox и ShowMessage. Вычислить квадрат вводимого числа.
#include <vcl.h> #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) { Label1->Caption=IntToStr(StrToInt(Edit1->Text)*2); } void __fastcall TForm1::Button2Click(TObject *Sender) { int a; a=StrToInt(InputBox("Input-Output", "Int Number=", "10")); ShowMessage (IntToStr(a*a)); } void __fastcall TForm1::Button3Click(TObject *Sender) { double a, b; a=StrToFloat(Edit1->Text); b=StrToFloat(Edit2->Text); Label2->Caption=FloatToStr(a)+ “*”+FloatToStr(b) +”="+FloattToStr(a*b); } void __fastcall TForm1::Button4Click(TObject *Sender) { double a,b,r; a=StrToFloat(Edit2->Text); b=StrToFloat(Edit3->Text); r=a+b; Label3->Caption= FloatToStr(a)+ “+”+FloatToStr(b) +”="+ FloatToStrF(r, ffFixed, 8, 2); } void __fastcall TForm1::Button5Click(TObject *Sender) { Close(); } Описание кода.
Общий вид рабочей формы задачи:
|