Описание кода.

 

Пример 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();

}

Описание кода.

1. По кнопке Button1 - ввод целого числа из компоненты Edit1 без контроля вводимой информации, его использование и вывод на компоненту Label1 значения целочисленного выражения - удвоенного значения, занесенного в поле Edit1.

1. Покнопке Button2 выполняем ввод целого числа с помощью стандартной функции InputBox и вывод его в стандартное окно функцией ShowMessage. Функция StrToInt переводит строку типа AnsiString в целое число типа int, а IntToStr выполняет обратный перевод.

 

 

 

1. По кнопкам Button3 и Button4 выполняется ввод, вывод и соответствующие преобразования дпя вещественных типов. При нажатии Button3 вычисляется произведение числа, занесенного в поле Edit1 на число, занесенное в поле Edit2. Результат- в поле Label2.
2. При нажатии Button4 вычисляется сумма чисел, занесенных в поле Edit2 и Edit3. Результат- в поле Label3.

 

Общий вид рабочей формы задачи: