Задача 4.Поездка на автомобиле
Напишите программу, при помощи которой можно вычислить стоимость поездки на автомобиле. (рис.66)
Рис 66
Вывод: В этом задании мы научились расчитывать стоимость поездки на автомобиле.
Листинг
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int a, b, c, d;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
a = StrToInt(Edit1->Text);
b = StrToInt(Edit2->Text);
c = StrToInt(Edit3->Text);
d= c/b*a;
Label4->Caption = IntToStr(d);
}
//---------------------------------------------------------------------------
Задача 5.Стоимость разговора
Напишите программу вычисления стоимости исходящего звонка с сотового телефона. (Рис. 67)
Рис 67
Вывод: В этом задании мы создали программу для вычисления стоимости исходящего звонка с сотового телефона.
Листинг
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int a,b,c,d;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
a = 0;
b = 1,2;
c = 1,5;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
d = StrToInt(Edit1->Text);
if (RadioButton1->Checked == True)
{
d = d * 0;
}
if (RadioButton2->Checked == True)
{
d = d * 1.5;
}
if (RadioButton3->Checked == True)
{
d = d * 1;
}
Label2->Caption = IntToStr(d);
}
//---------------------------------------------------------------------------
Задача 6. Стеклопакет
Напишите программу, при помощи которой можно вычислить стоимость окна (стеклопакета). (рис. 68)
Рис 68
Вывод: В этом задании мы создали програму при помощи которой можно вычислить стоимость окна (стеклопакета).
Листинг
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int a,b,c,e,g = 100;
int d = 2;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
a=StrToInt(Edit1->Text);
b=StrToInt(Edit2->Text);
c=a*b;
if (CheckBox1->Checked ==true)
c=c+g;
if (RadioButton1->Checked ==true)
Label3->Caption =IntToStr(c);
if (RadioButton2->Checked ==true)
{
e=c*d;
Label3->Caption =IntToStr(e);
}
}
//---------------------------------------------------------------------------