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 | |
Опасности связанные с психическим воздействием на человека. Этапы развития социальной катастрофы. Методы борьбы с паникой. Меры предосторожности от карманных краж. Разбой. Самооборона, правовой аспект. | |||