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

Висновок:

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


 

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

1491. Индуктивная связь между катушками 83.68 KB
  Определим токи во всех ветвях схемы. Построим диаграмму токов и топографическую диаграмму напряжений. Составим баланс активных и реактивных мощностей. Построим на одном графике кривые мгновенных значений e1 и i3. Определим показания ваттметра.
1492. Особенности математического моделирования 156.83 KB
  Технологический объект управления. Цель и задачи математического моделирования систем управления. Блочный принцип построения модели. Аналитический метод построения математических моделей. Основные потоки. Модель идеального смещения. Модель идеального вытеснения. Однопараметрическая диффузионная модель.
1493. Формирование ассортимента товаров в организации 196.68 KB
  Организационно - хозяйственная характеристика организации. Основные обязанности работников. Рабочее время и время отдыха. Изучение нормативно-правовых документов. Разработка планов снабжения организации. Коммерческая деятельность по закупкам товаров организации.
1494. Расчет привода электродвигателя 94.53 KB
  Кинематический расчет привода и выбор электродвигателя. Расчет закрытой цилиндрической передачи. Коэффициент ширины зубчатого венца. Проверочный расчет на контактную выносливость. Проверочный расчет на изгибающую выносливость.
1495. Политология как наука 147.17 KB
  Политология: предмет и функции. Становление и развитие политологии как науки и учебной дисциплины. Задачи курса политологии. Генезис, признаки, структура и функции государства. Гражданское общество: сущность и принципы организации. Конституция Республики Беларусь о формах государственного правления и устройства страны.
1496. Управление предприятием на примере автосалона GREGORYS CARS 50.93 KB
  Общая характеристика и структура управления предприятия. Основный виды деятельности и контроль качества оказываемых услуг. Организация и разработка технологических процессов сервиса на предприятии. Применения оргтехники и средств связи на предприятиями.
1497. Педагогическая деятельность в БОУ г. Омска 43.72 KB
  Ознакомление с системой правового воспитания учащихся. Знакомство с деятельностью классного руководителя. Знакомство с деятельностью учителя-предметника. Решения учебно-исследовательских задач. Внеклассное занятие по правоведению по теме Конституционное право.
1498. Методы проектирования организационной структуры 50.98 KB
  Метод структуризации целей. Метод организационного моделирования. Оценка эффективности организационных проектов. Корректировка организационных структур. Неудовлетворительное функционирование предприятия.
1499. Чрезвычайные ситуации социального характера и защита от ЧС социального характера 118.5 KB
  Опасности связанные с психическим воздействием на человека. Этапы развития социальной катастрофы. Методы борьбы с паникой. Меры предосторожности от карманных краж. Разбой. Самооборона, правовой аспект.