Задачи для самостоятельного решения Задача 1. Скидка
Скидка предоставляется если сумма привышает 1000 руб., а также в выходные дни. В результате щелчка на кнопке Скидка в поле компонента Label должно появляться сообщение, информирующее о предоставлении скидки, и итоговаясумма с учетом скидки. Информацию о том, является ли день выходным, программа должна получать на основе анализа текущей даты. (Рис. 63)
Рис 63
Вывод: В этом задании мы написали программу вычисления стоимости покупки с учетом скидки.
Листинг
#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)
{
double a;
double b;
a = StrToFloat(Edit1->Text);
b = a * 10 / 100;
Label2->Caption = b ;
}
Задача 2.Доход по вкладу
Напишите программу вычисления дохода по вкладу в банке. Доход вычисляется по формуле: Д = С * (СР / 360) * (СТ / 100), где: С — сумма вклада; СР — срок вклада (количество дней); СТ — процентная ставка (годовых).
Рис 64
Вывод: В этом задании мы написали программу вычисления дохода по вкладу в банке.
Листинг
#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 = StrToFloat(Edit1->Text);
b = StrToFloat(Edit2->Text);
c = StrToFloat(Edit3->Text);
d = a * (b / 360) * (c /100);
Label4->Caption = a;
}
//---------------------------------------------------------------------------
Задача 3. Таблица умножения
Программа должна предложить испытуемому 10 примеров и по окончании процесса тестирования выставить оценку. Компонент Labeli используется для вывода примера, Label2 — для вывода сообщения об ошибке и результатов тестирования. (Рис. 65)
Рис 65
Вывод: В этом задании мы написали программу, при помощи которой можно проконтролировать знание таблицы умножения.
Листинг
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int a, b, c, e, f, g;
int d = 0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
a = random(10);
b = random(10);
Label1->Caption = IntToStr(a) + "*" + IntToStr(b);
c = a*b;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
e = StrToInt(Edit1->Text);
if (e == c)
{
d++;
Label2->Caption = IntToStr(d);
a = random(10);
b = random(10);
Label1->Caption = IntToStr(a) + "*" + IntToStr(b);
c = a*b;
}
if (d == 10){
ShowMessage(5);
}}
//---------------------------------------------------------------------------