768

Інструментальні засоби візуального програмування

Лабораторная работа

Информатика, кибернетика и программирование

нструментальні засоби візуального програмування. Оголошення та застосування масивів для вирішення поставленої задачі.

Украинкский

2013-01-06

32.5 KB

39 чел.

Міністерство освіти і науки України

Дрогобицький механіко-технологічний коледж

Звіт

з лабораторної роботи №2

з предмету: Інструментальні засоби візуального програмування

Виконав: ст. гр. ПК-31

Антоник Василь

Прийняла: викладач

Кожух І. В.

м. Дрогобич 2010

Лабораторна робота №2

Тема: Навчитись оголошувати та застосовувати масиви для вирішення поставленої задачі.

TForm1 *Form1;
AnsiString reg[8]= {"Львів","Львівська область.","Тернопіль","Харків","Ів-Франківська обл.","Запоріжжня","Київ","Чернівці"};
float Kt[8] = {1.8,1.6,1.8,1.3,1,1,1,1};
int Cb[6][5] = {{1,-1,-1,-1,-1},
{2,-1,-1,-1,-1},
{3,1,-1,-1,-1},
{4,1,-1,-1,-1},
{5,2,1,-1,-1},
{6,2,1,-1,-1}};
float Kb[7]= {2.3,1.55,1.4,1,0.95,0.9};
//---------------------------------------------------------------------------
__
fastcall TForm1::TForm1(TComponent* Owner)
:
TForm(Owner)

{
int i,n;
n=sizeof(Kt)/sizeof (float);
for (i=0;i<n;i++)
{
ComboBox1->Items->Add(reg[i]);
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
float aTb;
float aKt;
float aKb;
float aKvs;
float aKo;
float aKm;
float aKs;
int pcb,ccb;
int nss;
aTb = StrToFloat(Edit1->Text) ;
aKt = Kt[ComboBox1->ItemIndex];
pcb = StrToInt(Edit2->Text);
nss = StrToInt (Edit3->Text);
ccb = Cb[pcb][nss];
if (ccb !=-1)
aKb = Kb[ccb];
else aKb =2.45;
aKb = Kb[ccb];
switch (ComboBox2->ItemIndex)
{
case 0: aKvs = 1.3; break;
case 1: aKvs = 1.2; break;
case 2: aKvs = 1.15; break;
case 3: aKvs = 1.0; break;}
if (CheckBox1->Checked)
aKo=1;
else
aKo= 1.5;
switch (ComboBox3->ItemIndex)
{
case 0 : aKm = 0.5; break;
case 1 : aKm = 0.7; break;
case 2 : aKm = 1.0; break;
case 3 : aKm = 1.3; break;
case 4 : aKm = 1.5; break;
case 5 : aKm = 1.7; break;
case 6 : aKm = 1.9; break; }
switch (ComboBox4->ItemIndex)
{
case 0 : aKs = 0.1; break;
case 1 : aKs = 0.8; break;
case 2 : aKs = 0.5; break;
case 3 : aKs = 0.95; break;
case 4 : aKs = 1.0; break; }
float T;
AnsiString st;
T= aTb * aKt * aKvs * aKo * aKm * aKs;
st = "Базова ставка тарифу : "+ FloatToStrF (aTb,ffCurrency,5,2)+"\nKoef.тарифу:"+
FloatToStrF(aKt,ffGeneral,2,2)+"\nKoef.безаварійності:"+
FloatToStrF(aKb,ffGeneral,2,2)+ "\nKoef.стажу водія:"+
FloatToStrF(aKvs,ffGeneral,2,2)+ "\nKoef.кількість осіб,допущені до управління:"+
FloatToStrF(aKo,ffGeneral,2,2)+ "\nKoef.потужності двигуна:"+
FloatToStrF(aKm,ffGeneral,2,2)+ "\nKoef.періоду використання ТС:"+
FloatToStrF(aKs,ffGeneral,2,2)+ "\n\Тариф:"+ FloatToStrF(T,ffCurrency,5,2);
ShowMessage(st);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
Button1->Enabled =
(
ComboBox1->ItemIndex !=-1)&&
(
ComboBox2->ItemIndex !=-1)&&
(
ComboBox3->ItemIndex !=-1)&&
(
ComboBox4->ItemIndex !=-1)&&
(
Edit1->Text.Length() !=0) &&
(
Edit2->Text.Length() !=0) &&
(
Edit3->Text.Length() !=0) ;
}

Висновок:

- на цій лабораторні роботі я навчився оголошувати та застосовувати масиви для вирішення поставленої  задачі.


 

А также другие работы, которые могут Вас заинтересовать

19360. Трансформаторы. Определения и классификация 435.5 KB
  Лекция №13 Трансформаторы Определения и классификация Трансформаторами называются электромагнитные устройства имеющие две или большее число индуктивносвязанных обмоток и предназначенные для изменения величины переменного напряжения тока. Трансформатор сос
19361. Технология пайки 54.5 KB
  Лекция №15 Технология пайки. Описание процесса пайки. Пайка образование неразъемного соединения с межатомными связями путем нагрева соединяемых материалов ниже температуры их плавления их смачивания припоем затекания припоя в зазор и последующей его кристалли...
19362. Теоретичні засади формування податкової системи 34.54 KB
  Тема1: Теоретичні засади формування податкової системи Сутність і зміст податкової системи Формування податкової системи в історичному аспекті. Умови набуття оподаткування системності. Обєктивні і субєктивні чинники становлення податкової системи Зас...
19363. Податок на додану вартість 27.14 KB
  Тема2: Податок на додану вартість Загальна характеристика ПДВ Платники ПДВ Обєкт оподаткування База оподаткування та порядок визначення для операцій різних видів Ставки ПДВ Пільги з ПДВ Поняття та порядок обчислення податкових зобовязань та под...
19364. Акцизний податок 112.39 KB
  Тема3: Акцизний податок Загальна характеристика акцизного податку Платники акцизного податку Обєкт оподаткування База оподаткування та порядок визначення суми акцизного податку Особливості оподаткування акцизним податком тютюнових виробів і алког
19365. Мито. Ставки, пільги, порядок сплати до бюджету 111.02 KB
  Тема 4: Мито Види мита Платники та обєкт оподаткування Ставки пільги порядок сплати до бюджету. Види: За напрямками руху товарів Ввізне Вивізне Сезонне митона 4 місяці Особливі видизахист виробника від конкуренції з іноземними товарами Сп
19366. Податок на прибуток підприємств 112.08 KB
  Тема 5: Податок на прибуток підприємств Загальна характеристика податку на прибуток Платники та обєкт оподаткування Склад доходів та порядок їх визнання Склад витрат та порядок їх визнання Порядок нарахування амортизації Ставки податку на прибуток ...
19367. Податок на доходи фізичних осіб 129.21 KB
  Тема 6: Податок на доходи фізичних осіб Платники та обєкт оподаткування Види доходів що включаються і не включаються до загального оподатковуваного доходу Податкові соціальні пільги Податкова знижка Ставки податку та особливості оподакування окре...
19368. Плата за землю 113.24 KB
  Тема 7: Плата за землю Загальна характеристика плати за землю Платники обєкт оподаткування та ставки плати за землю Пільги щодо сплати за землю порядок сплати до бюджету 24 зведеного бюджету Платники: Фізичні особи власники землі і землекористу...