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

Висновок:

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


 

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

76995. Субъекты административно-юрисдикционной деятельности и подведомственность им дел об административных правонарушениях 27.07 KB
  Административноюрисдикционный процесс – деятельность субъектов государственноисполнительной власти по разрешению споров между различными субъектами а также по применению мер административного и дисциплинарного принуждения осуществляемая в административнопроцессуальной форме. Подведомственность устанавливаемая КоАП РФ и законодательными актами субъектов РФ представляет собой распределение закрепление всех дел об административных правонарушениях между органами административной юрисдикции которые уполномочены рассматривать дела...
76996. Характеристика участников производства по делу об административном правонарушении, имеющих заинтересованность в исходе дела 26 KB
  Характеристика участников производства по делу об административном правонарушении имеющих заинтересованность в исходе дела. По степени заинтересованности в деле участников производства по делу об административном правонарушении не обладающих государственновластными полномочиями следует классифицировать на: 1 имеющих личную заинтересованность в исходе дела об административном правонарушении; 2 не имеющих личной заинтересованности в исходе дела. К первой группе следует отнести: лицо в отношении которого ведется производство по делу об...
76997. Характеристика участников производства, способствующих осуществлению производства по делам об административных правонарушениях 27.05 KB
  Они вправе давать показания по делу; заявлять отводы других участников производства; пользоваться юридической помощью; обжаловать итоговые решения стадий; получать копии процессуальных документов; знакомиться со всеми материалами дела об административном правонарушении. В качестве лиц способствующих осуществлению производства по делу об административном правонарушении могут быть только физические лица. По делу об административном правонарушении подлежат выяснению: 1.характер и размер ущерба причиненного административным правонарушением; В...
76998. Меры обеспечения производства по делам об административных правонарушениях: правовое основание и цели применения, особенности процессуального оформления некоторых мер 28.22 KB
  Меры обеспечения производства по делам об административных правонарушениях применяются в следующих целях: пресечение правонарушения; установления личности нарушителя; составление протокола об административном правонарушении при невозможности его составления на месте выявления нарушения; обеспечение своевременного и правильного рассмотрения дела и исполнения принятого по делу постановления.1 освидетельствование на состояние алкогольного опьянения; 6 медицинское освидетельствование на состояние опьянения; 7 задержание транспортного средства...
76999. Возбуждение дела об административном правонарушении. Поводы и основания. Процессуальное оформление 26.14 KB
  Возбуждение дела об административном правонарушении. Возбуждение дела об административном правонарушении начальная стадия производства. Применительно к производству по делам об административных правонарушениях данная стадия имеет специфическое процессуальное оформление. Поскольку составление такого протокола отнесено к компетенции соответствующего полномочного должностного лица постольку инициатором возбуждения дела является именно оно в некоторых случаях представитель общественного объединения.
77000. Протокол об административном правонарушении: содержание, требования, предъявляемые к протоколу, сроки его составления, случаи, когда протокол не составляется 28.31 KB
  Протокол об административном правонарушении: содержание требования предъявляемые к протоколу сроки его составления случаи когда протокол не составляется. Протокол об административном правонарушении процессуальный документ свидетельствующий о совершении данного противоправного деяния конечно предположительно. В Кодексе об административных правонарушениях установлены реквизиты протокола: дата и место составления; данные о его составителях; сведения о личности нарушителя; место время совершения и его существо; нормативный акт...
77001. Административное расследование. Основания для проведения, процессуальное оформление, сроки расследования 27.67 KB
  Составлению протокола об административном правонарушении может предшествовать административное расследовании на основании определения вынесенного должностным лицом уполномоченным составлять такой протокол за предусмотренные КоАП РФ административные правонарушения: монопольного валютного законодательства законодательства о защите прав потребителей охраны окружающей среды пожарной безопасности дорожного движения и на транспорте и др. Административное расследование проводится если осуществляются экспертиза или иные процессуальные...
77002. Место и порядок подготовки дела об административном правонарушении к рассмотрению, разрешаемые вопросы и процессуальное оформление принятого решения 27.19 KB
  Место и порядок подготовки дела об административном правонарушении к рассмотрению разрешаемые вопросы и процессуальное оформление принятого решения. Рассмотрение дела по существу начинается с момента получения субъектом административной юрисдикции протокола об административном правонарушении за которым следует подготовка дела к рассмотрению. Субъекты юрисдикции в порядке подготовки к рассмотрению дела выясняют: относится ли к их компетенции рассмотрение дела; имеются ли обстоятельства исключающие рассмотрение ими дела; правильно ли...
77003. Порядок рассмотрения и разрешения дела об административном правонарушении, сроки рассмотрения, решения, принимаемые по результатам рассмотрения дела 26.52 KB
  Порядок рассмотрения и разрешения дела об административном правонарушении сроки рассмотрения решения принимаемые по результатам рассмотрения дела. Подготовка к рассмотрению дела об административном правонарушении Судья орган должностное лицо при подготовке к рассмотрению дела об административном правонарушении выясняют следующие вопросы: 1 относится ли к их компетенции рассмотрение данного дела; 2 имеются ли обстоятельства исключающие возможность рассмотрения данного дела судьей членом коллегиального органа должностным лицом; 3...