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

Висновок:

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


 

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

14296. МУЗЫКАЛЬНОЕ ВОСПИТАНИЕ В ЗАПАДНОЙ ЕВРОПЕ В 17-18 ВЕКАХ 51.5 KB
  МУЗЫКАЛЬНОЕ ВОСПИТАНИЕ В ЗАПАДНОЙ ЕВРОПЕ В 1718 ВЕКАХ Период 1718 вв. в истории европейской цивилизации во многих областях становится рубежным и определяющим. Интенсивно развивается наука: великие открытия совершают Г.Галилей И.Ньютон Р.Декарт Ф.Бэкон Б.Спиноза Как н...
14297. Музыкальная драматургия в увертюре «Эгмонт», фрагменте сонаты № 14, Л.В. Бетховена 85.5 KB
  Урок музыки в 7 классе тема урока: Тема урока: Музыкальная драматургия в увертюре Эгмонт фрагменте сонаты № 14 Л.В. Бетховена. Цель урока: формирование понятия музыкальная драматургия через исполнение ...
14298. Русские народные музыкальные инструменты 35.5 KB
  Русские народные музыкальные инструменты Цель: Познакомит с русскими народными инструментами Задачи: учить определять и различать русские народные инструменты; развивать тембровый и ритмический слух учащихся; воспитывать интерес и любовь к русскому фоль...
14299. Владимир Яковлевич Шаинский 48 KB
  Владимир Яковлевич Шаинский Владимир Яковлевич Шаинский российский и советский композитор. Народный артист РСФСР 1986 год. Лауреат Государственной премии СССР 1981 год. Известен как автор нескольких десятков песен для детей в том числе музыки для мультфильмов...
14300. Влияние музыки на организм человека 147.45 KB
  Курсовая работа по общей психологии на тему: Влияние музыки на организм человека Введение Данная курсовая работа является попыткой раскрыть и объяснить особенности реакции человеческого организма на определённые звуковые раздражители а точнее от прослу...
14301. Внеклассное музыкальное занятие по теме: Детская полька 1.01 MB
  Внеклассное музыкальное занятие по теме: Детская полька Возраст детей: 57 лет Время проведения: 20 минут Цель занятия: Найчить дтей танцевать Детскую польку Задачи занятия: 1 Образовательная: Расширить представление и получить знания о Чешских танца
14302. Вокальная музыка 14.72 KB
  Вокальная музыка Вокальная музыка это музыка в которой голос главенствует или равноправен с инструментами с сопровождением или a cappella. Крупные жанры музыкальнодраматическое произведение оратория средние жанры кантата вокальный цикл литургия хоровой концерт...
14303. Основи музичної грамоти 1.41 MB
  ЛЕКЦІЙНИЙ МАТЕРІАЛ ДО ТЕМИ Основи музичної грамоти спеціальність 5.010102. Початкове навчання Викладач Громова Н.О. Музика це мистецтво звуків. В звукових художніх образах відображається оточуюча нас дійсність передаються відчуття настрої переживання людей...
14304. Электронный осциллограф. Исследование чувствительность пластин вертикального и горизонтального отклонений осциллографической трубки 37 KB
  Отчет по лабораторной работе №2 Тема: Электронный осциллограф Цель работы. Исследовать чувствительность пластин вертикального и горизонтального отклонений осциллографической трубки. Наблюдать с помощью осциллографа синусоидальное напряжение полученное с вых