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

Висновок:

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


 

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

57618. Географічні назви в історичній науці. Давні словяни 42.5 KB
  При дослідженні минувщини вчені часто знаходять різні назви. Інші з цих назв назви народів вони називаються етнонімами. Вчення про географічні назви іменується топонімією від грецьких слів топос...
57619. КООПЕРАЦІЯ, КОЛЕКТИВІ3АЦІЯ, ГОЛОДОМОР В УКРАІНІ У 1932-33 РОКАХ 247.09 KB
  Мета - розкрити причини та наслідки політики радянського уряду щодо селянства в України у 20—их поч.30-их років; познайомити з фотодокументами, спогадами очевидців, що підтверджують існування голодомору в Україні у 1932-33 роках...
57620. ГОЛОДОМОР 1932-1933 РР. – ГЕНОЦИД УКРАЇНСЬКОГО НАРОДУ 120.5 KB
  Навчальна. Ознайомити учнів з історичними передумовами виникнення Голодомору, з політикою більшовиків проти українського народу, охарактеризувати наслідки Голодомору. Довести злочинний характер сталінізму. Простежити висвітлення Голодомору в українській літературі та фольклорі.
57621. Особливості розвитку культури у другій половині 19ст. Освіта. Наука 156 KB
  Мета: виявити загальні закономірності та особливості розвитку культури в Україні у другій половині 19ст. Грушевського в розвиток української науки; виховувати шанобливе ставлення учнів до визначних діячів української культури другої половини 19ст.
57622. The Еarth is our home 56.5 KB
  We live in a wonderful world. It is our Earth. For thousands of years the earth has given a support to all forms of life-human beings, animals, birds, insects and plants. Our planet looks like a paradise but it is in danger now. Our task is to understand it and to take care of it.
57623. What can you do to keep the Earth clean and healthy? You should be a friend to her 363.5 KB
  Aims: to develop students’ speaking skills through different methods of work (group, pair work, individual); to broaden students’ knowledge of the topic; to practice listening and making up the students’ own opinion on the topic; to practice students’ grammar and reading skills;
57624. Foreigh languages in our life. English and English speaking countries 119 KB
  Practical: to practise pupil’s speaking, listening, writing skills; to create an English – speaking atmosphere; to expand pupil’s vocabulary on this theme; to develop student’s creativity.
57625. The History of a Portrait (Home reading) 146.5 KB
  Objectives: to revise and enrich student’s vocabulary on topic; to develop student’s reading, writing and speaking skills; to teach students to describe objects; to practice students in using Conditional sentences; to foster student’s desire to speak English;
57626. Урок позакласного читання «Little Red Riding Hood» 214.5 KB
  Мета: ввести нові лексичні одиниці: a wood, a woodcutter, a basket, a cake to see, to hear, to smell, to shout; повторити правила читання буквосполучень: оо, sh, ou, ea; розвивати навички читання та усного мовлення;