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) ;
}

Висновок:

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


 

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

78011. Разработка мероприятия по совершенствованию управления кредитным риском 772.5 KB
  За прошедшее десятилетие высокие темпы инноваций на финансовых рынках и интернационализация финансовых потоков изменили облик банковского дела почти до неузнаваемости. Технологический прогресс и регулирование привели как к появлению новых возможностей для банков...
78013. Модернизация вспомогательного двигателя МРТ «Паланга» 16.73 MB
  Современное промысловое судно представляет собой сложный инженерный комплекс, содержащий такие элементы, как корпус, энергетические и движительные установки, а также общесудовое и промысловое оборудование. Кроме того, промысловые суда оборудуют новейшими средствами радиосвязи, навигационными и поисковыми приборами.
78015. АСЕАН у міжнародних відносинах: історія та сучасність (1967-2012) 127.65 KB
  Сьогоднішня успішна інтеграція настільки різних країн як в економічному, так і в культурному значенні, – це результат політики, яку вони спільно розробляли та проводили в впродовж всього існування організації.
78016. Общая характеристика порошковой металлургии и свойства порошков 136.5 KB
  С увеличением связности частиц увеличиваются затраты на формирование изделий но уменьшается вероятность взаимодействий материала с внешней средой и затраты на его защиту. Порошок являющийся исходным материалом для ПМ в этом отношении занимает промежуточное положение между...
78017. Псоріаз 66.5 KB
  Властиве псоріазу шелушіння пояснює його інша назва - лускатий лишай. Описані випадки вродженого псоріазу. З ремісіями в кілька місяців або років захворювання тягнеться до кінця життя загострюючись частіше в осіннєзимовий період зимова форма псоріазу рідше...
78018. Рахитоподобные болезни 96.5 KB
  Развитие его связывают с первичным нарушением процессов всасывания кальция и фосфора в кишечнике; с первичным дефектом транспорта неорганических фосфатов в почках и повышением чувствительности эпителия канальцев почек к действию паратгормона...
78019. Комплексная переработка птицы 272 KB
  Птицеперерабатывающая промышленность является одной из крупнейших отраслей пищевой промышленности, она призвана обеспечивать население страны пищевыми продуктами, являющимися основным источником белков.