768

Інструментальні засоби візуального програмування

Лабораторная работа

Информатика, кибернетика и программирование

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

Украинкский

2013-01-06

32.5 KB

38 чел.

Міністерство освіти і науки України

Дрогобицький механіко-технологічний коледж

Звіт

з лабораторної роботи №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) ;
}

Висновок:

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


 

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

38476. Насосная станция в условиях системы водоснабжения с. Драынивка Новосанжарского району 3.97 MB
  Кроме того система водоснабжения должна обладать определенной степенью надежности то есть обеспечивать снабжение потребителей водой без недопустимого снижения установленных показателей своей работы в отношении количества или качества подаваемой воды перерывы или снижение подачи воды или ухудшение ее качества в недопустимых пределах. Система водоснабжения населенного места или промышленного предприятия должна обеспечивать получение воды из природных источников ее очистку если это вызывается требованиями потребителей и подачу к местам...
38477. РАЗРАБОТКА СИСТЕМЫ АВТОМАТИЗИРОВАННОГО ЭЛЕКТРОПРИВОДА НАСОСА ВОДОСНАБЖЕНИЯ 7.66 MB
  1 Функциональная схема автоматизированного электропривода насоса На рис.1 представлена функциональная схема автоматизированного электропривода насосной станции. Схема показывает принцип работы буровой насосной станции после установки станции управления насосами.1 – Функциональная схема автоматизированного ЭП насоса 3.
38478. Досягнення та перспективи розвитку електроенергетики України 144.44 KB
  Завдання Стратегії розвитку атомної енергетики України як частини паливно-енергетичного комплексу є визначення місця і ролі атомної енергетики у вирішенні проблеми сталого розвитку держави, формування напрямів і шляхів розвитку атомно-енергетичного комплексу
38481. Уголовно-правовая характеристика преступления, предусмотренного п. «д» ч.2 ст. 105 УК РФ 430 KB
  Соучастие в убийстве с особой жестокостью. Объектом посягательства при убийстве вообще и убийстве с особой жестокостью в частности является жизнь человека рассматриваемая как высшая ценность. По российскому уголовному законодательству умышленное убийство совершенное с особой жесткостью принадлежит к числу тех преступлений которые труднее всего поддаются точному юридическому определению и вызывают наибольшую сложность в установлении его юридических признаков. Настоящая работа представляет собой описание и анализ...
38482. Камерные оперы Н. А. Римского-Корсакова: особенности воплощения литературного первоисточника 2.98 MB
  Моцарт и Сальери. Моцарт и Сальери: литературный первоисточник как оперное либретто. РимскогоКорсакова Моцарт и Сальери. Первым опытом подобного рода произведения стал Моцарт и Сальери 1897 речитативная камерная опера развивающая декламационномелодические принципы Каменного гостя А.
38483. Програма резервування даних про звукові файли в інформаційних системах 1.33 MB
  Основним конкурентом можна вважати програму Cll Центр WELLtime ціна якої приблизно становить 1750 грн.6 де – величина однієї із статей прямих витрат яка вибрана за основу в даному випадку це вартість інтелектуальної власності грн. грн.3 – це коефіцієнт який враховує додаткові витрати; – загальні витрати на проектування даної розробки; грн.
38484. Технология приготовления зраз рыбных рубленных с картофелем жареным, соусом томатным 83 KB
  Технология приготовления подача и требования к качеству зраз рыбных рубленных с картофелем жареным соусом томатным Организация рабочего места для приготовления 220 порций зраз рыбных рубленных в рыбном цехе Охрана труда в рыбном цехе Список использованной литературы Приложения технологическая схема приготовления зраз рыбных рубленных с картофелем жареным соусом томатным расчет количества продуктов для приготовления 24 порций зраз рыбных рубленных с картофелем жареным соусом томатным Введение Рыба...