768

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

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

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

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

Украинкский

2013-01-06

32.5 KB

38 чел.

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

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

Звіт

з лабораторної роботи №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) ;
}

Висновок:

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


 

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

47112. Программы развития национальной экономики 61 KB
  В России в рамках федеральных целевых программ осуществляется: поддержка реформ в сфере образования и здравоохранения; реформа судебной системы; формирование рынка доступного жилья; модернизация АПК и создание условий для его устойчивого развития; строительство и совершенствование стратегически важных для страны объектов транспорта; поддержка государством реализации крупных транспортных инфраструктурных проектов; осуществление инновационных проектов и программ др. Реализация федеральных целевых...
47113. Конституційна організація державно влади та місцевого самоврядування в Уккраїні 59.5 KB
  Так єдиний орган законодавчої влади в Україні парламент Верховна Рада України. Гарантом державного суверенітету територіальної цілісності України дотримання Конституції України прав і свобод людини та громадянина є глава Української держави Президент. Єдиним органом законодавчої влади в Україні є парламент Верховна Рада України. Право законодавчої ініціативи у Верховній Раді України згідно з Конституцією України мають: Президент України; народні депутати України; Кабінет Міністрів України; Національний банк України.
47114. Методи розрахунку калькуляції та методи технологічних розрахунків 59 KB
  Система оплати праці в будівництві основна ст. 12 відрядна сдельная скільки заробив стільки отримав; відряднопреміальна за якістю економічністю виконаної роботи може бути надбавка до 40 зарплати; погодинна; погодиннопреміальна до 30 премія; акордна; договірна Форма оплати праці робітників визначається співвідношенням між виконаною роботою та розміром нарахованої за це заробітної плати. Залежно від того які показники приймаються за вимірник праці кількість виготовленої продукції чи кількість відпрацьованого...
47116. Архитектура и быт городов, транспорт 59.5 KB
  При создании проектов новых городов архитекторы начали уделять внимание связи микрорайонов с ландшафтом По мере развития бытовой техники в домах появлялись холодильники газовое а с 70х годов XIX в. Наиболее распространенными до конца XIX в. С 60х годов XIX в. К концу XIX в.
47120. Лицензирование природопользования и охраны окружающей среды 60.35 KB
  В соответствии с экологическим законодательством используются различные формы документов выполняющих функции лицензии. Для получения лицензии разрешения на осуществление соответствующих видов деятельности юридическое или физическое лицо должно обратиться с заявлением в органы уполномоченные на ведение лицензионной деятельности. Правом предоставления лицензии разрешения обладают также территориальные подразделения названных выше и других природоохранительных органов. В зависимости от вида лицензии разрешения определяется ее его...