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

Висновок:

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


 

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

55272. НОВОРІЧНІ ПРИГОДИ В ЛІСІ 40 KB
  Мета: продовжити знайомити дітей із традиціями відзначання свята Нового року;підтримувати інтерес до музично-рухової творчості та художнього слова;викликати у вихованців святковий,піднесений настрій.
55273. Здоровим будь, або пригоди одного хлопчика 48.5 KB
  Мета: Розширювати знання дітей про складові здоров’я, ознаки хвороби та здоров’я, взаємозв’язок між поведінкою та здоров’ям людини. Розвивати світогляд, артистичність. Виховувати прагнення до здорового способу життя, почуття дружби і товаришування.
55274. Пригоди у королівстві Кровоносної системи 79 KB
  Мета: - продовжувати формувати уявлення про імунітет як реакцію – відповідь організму на проникнення в нього чужорідних тіл; - встановити біологічну роль імунної системи у збереженні гомеостазу; - ознайомити учнів з історією розвитку імунітету, роллю вчених (І.І.Мечников, П. Ерліх) у створені вчення про імунітет
55275. Географічне положення, історія дослідження Австралії. Рельєф і корисні копалини материка 271 KB
  Рельєф і корисні копалини материка Зміст кейсу Розділ програми Тема заняття Мета заняття Практичне завдання Режим роботи Теоретичний матеріал за темою Наочний матеріал Питання для перевірки засвоєння вивченого матеріалу Алгоритм виконання практичної частини завдання...
55276. Частини мови. Прикметник 121 KB
  Мета: повторити і закріпити прикметники; навчити учнів складати загадки, використовуючи дану частину мови; розвивати творчі здібності, естетичний смак.
55277. Богатство и своеобразие культуры Древней Руси 93 KB
  К УРОКУ РУССКОЙ ЛИТЕРАТУРЫ В 9 КЛАССЕ Сообщение по теме Богатство и своеобразие культуры Древней Руси примерное направление повествования к презентации Архитектура Древней Руси Высокого уровня развития достигла архитектура. на Руси не было монументального каменного зодчества. На территории Руси известно 15 каменных храмов XI нач. В отличие от Новгорода и Киева во ВладимироСуздальской земле и ГалицкоВолынской Руси основным стройматериалом был белый камень.
55279. ПРИМЕНЕНИЕ ИНТЕРАКТИВНЫХ ТЕХНОЛОГИЙ НА УРОКАХ ИСТОРИИ И ОБЩЕСТВОЗНАНИЯ 371 KB
  Таким образом интерактивное обучение позволяет: развивать коммуникативные умения и навыки приучать работать в команде обеспечивать обучающихся необходимой информацией без которой невозможно реализовать совместную деятельность; развивать общие учебные умения анализ синтез постановка целей...