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

Висновок:

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


 

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

75004. Мова моя українська. Методична розробка виховного заходу для старшокласників 85.5 KB
  Мова це великий дар природи. І серед них ніби запашна квітка в чудовому букеті українська мова. У рідному домі завжди звучить найближча найзрозуміліша рідна мова бо бринить вона із ласкавих бабусиних вуст із дідусевої говірки із маминої пісні із батьківського слова часом суворого а часом жартівливого. Наша мова українська тому що наша земля Україна.
75005. Мова наша солов’їна, виховний захід 58 KB
  Показати дітям красу і багатство української мови за допомогою народної творчості, творів письменників і поетів. Викликати бажання вивчати рідну мову, милуватися її красою Виховувати любов до рідної мови, до своєї землі, свого народу.
75006. Мова моя українська чарівна. Виховний захід 40.5 KB
  Обладнання: зал прикрашений плакатами з крилатими висловами про мову прислівями плакати з назвами команд завдання загадки ребуси кросворди. І будемо зараз готові Полинути в країну рідного слова...
75007. Мово моя материнська, Сценарій свята 52 KB
  Чудова наша мова міцне моє коріння А як же я без нього могла б на світі жить Тоді б мене чекало духовне зубожіння Бо мову і Вітчизну не можна розділить Пісня О мово моя муз. Мов соловї наша мова співуча. Вірте не вірте Твердо я знаю: Мова це вірність рідному краю...
75008. Хімічна мозаїка, Сценарій з хімії 61 KB
  Ведуча: Вогонь у темряву ночей Приніс на землю Прометей. Ведуча доторкаючись до вогню: Я стверджую категорично: Реакція екзотермічна дує на палець. Ведуча звертається до кухаря: За сіль ви не забули друже Її відсутність не байдужа...
75009. Музыкальный тайник, внеклассное мероприятие для 7 класса 199 KB
  Мотивация интереса к непопулярным» музыкальным жанрам; пробуждение у учащихся заинтересованность в изучении предмета; активизация мыслительной и речевой деятельности; развитие музыкальной эрудиции, логического мышления; воспитание музыкально-познавательных потребностей и интересов в приобретении основы музыкально – исторических знаний, лидерских и коммуникативных качеств личности.
75010. Мусор – глобальная проблема человечества. Урок для устойчивого развития по программе «Моя счастливая планета» в 3-А классе 59 KB
  Цель урока: познакомить учащихся с терминами экология экологическая безопасность формировать представления об источниках и способах утилизации бытового мусора научить выполнять правила личной экологической безопасности познакомить с экологическими проблемами современности и путями их решения формировать ответственное отношение к использованию природных ресурсов земли.
75011. Відкриття музею історії козацтва, виховний захід 193.08 KB
  Карабинівці понад двісті років. Визнала вона і знущання панів Карабінова та Мизгова, і лихоліття громадянської війни, і голодомор, і трагічні події Великої Вітчизняної війни та вистояла. Сьогодні Карабинівка - одне з найкращих сіл Павлоградщини...
75012. Веснянки, виховний захід 60 KB
  Янушкевич веснянка А вже весна з опери Зима і весна М.Лисенка Хор А вже весна з опери Зима і весна. Діалог Діти а якою ви собі уявляєте весну Та яка ж весна без квітів Які ви знаєте весняні квіти Але першою розпускається гілочка верби а її розквітлі бруньки як називаються Котики Чи бачили ви їх які вони...