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

Висновок:

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


 

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

4481. Загальні принципи оцінки точності методик довгострокового прогнозування та справджуваності прогнозів 177 KB
  Загальні принципи оцінки точності методик довгострокового прогнозування та справджуваності прогнозів Похибка довгострокового прогнозу. Визначення допустимої похибки гідрологічного прогнозу Згідно Настанові по службі прогнозів оцінка прогнозу...
4482. Довгострокові прогнози меженного стоку влітку, восени і взимку 394 KB
  Довгострокові прогнози меженного стоку влітку, восени і взимку Закономірності і фактори меженного стоку Під меженним стоком рівнинних і гірських річок розуміють стік літньо-осіннього і зимового періодів, коли річки отримують живлення в основному в...
4483. Довгострокові прогнози шарів стоку весняного водопілля для рівнинних річок 2.4 MB
  Довгострокові прогнози шарів стоку весняного водопілля для рівнинних річок В період весняного водопілля, одної з найбільш багатоводних фаз гідрологічного режиму більшості рівнинних річок України, формування стоку обумовлене таненням накопичено...
4484. Довгострокові прогнози максимальних витрат води весняного водопілля 1.45 MB
  Довгострокові прогнози максимальних витрат води весняного водопілля Сучасний стан в області довгострокового прогнозування максимальних витрат води весняного водопілля Ще у 40-ві роки минулого сторіччя М.А. Великановим була запропонована для прогноз...
4485. Прогнози дат початку та проходження максимальних витрат води весняних водопіль на рівнинних річках 193.5 KB
  Прогнози дат початку та проходження максимальних витрат води весняних водопіль на рівнинних річках 1 Фізичні передумови та практичні прийоми прогнозів строків водопілля для окремих водозборів На відміну від прогнозів характеристик водного режиму вес...
4486. Довгострокові прогнози весняно-літнього водопілля гірських річок 370 KB
  Довгострокові прогнози весняно-літнього водопілля гірських річок Особливості формування водопілля гірських річок Довгострокові прогнози стоку річок базуються на знанні процесів накопичення й витрати вологи в річковому басейні, що зумовлюють характ...
4487. Довгострокові прогнози льодових явищ на основі характеристик атмосферних процесів 60 KB
  Довгострокові прогнози льодових явищ на основі характеристик атмосферних процесів 1 Фізичні основи та принципи прогнозів дат льодових явищ Строки льодових явищ на водних об’єктах залежать від масштабних атмосферних процесів, які розвиваються на...
4488. Набор учебных стендов для кабинета Правил Дорожного Движения 4.95 MB
  Введение Темой конструкторской разработки является создание учебных стендов для кабинета Правил Дорожного Движения. Эта работа содержит в себе 3 стенда: стенд макет автодрома, тренажер сигналы регулировщика и стенд сигналы светофора. Руководит...
4489. Предмет, мета та задачі курсу. Екологічні проблеми науково-технічного прогресу (НТП) 248.5 KB
  Предмет, мета та задачі курсу. Екологічні проблеми науково-технічного прогресу (НТП). Екологія – інтегральна міждисциплінарна наука. Основні положення загальної екології. Передумови виникнення екології як науки Протягом тривалого часу,...