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

Висновок:

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


 

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

54543. Неоклассическое направление развития экономической теории 17.42 KB
  Создание неоклассического направления связано с работами английского экономиста Альфреда Маршалла (1842–1924). Именно он со своими «Принципами Экономикса» считается основателем англо – американской школы экономической науки, получившей значительное влияние и в других странах
54544. Делимость натуральных чисел 1.71 MB
  Как не выполняя деления определить делится ли данное число на 9 на 3 Работа с карточками У каждого учащегося на парте лежат карточки с числами: 2 3 5 910 Учитель показывает число учащиеся поднимают карточку с его делителями. Задание 1 Проверка: Задание 2 Проверка: Какие числа называются простыми какие составными Назовите простые числа пятого десятка 41; 43; 47 второго десятка 11; 13; 17; 19.
54545. NATURE. ENVIRONMENTAL PROTECTION 69 KB
  The biggest polluter today is the car. Exhaust fumes are the main cause of bad air quality, which can make people feel ill and have difficulty breathing. This problem is especially bad in some cities where on days when there is not much wind, a brown layer of smog hangs in the air. The number of cars is increasing every year, and this causes serious congestion. Governments then build new roads to try to improve the situation, but this means that they cut down trees and destroy more of the countryside.
54546. Nature and Weather 57 KB
  Aims of the lesson. To develop academic communication skills, critical thinking, students’ listening comprehension. To encourage responsible leadership, stimulate research activities using new technologies. To help people to understand the global threats facing our planet and take actions to improve the situation.
54547. Натюрморт. Тоновий малюнок 340 KB
  Мета уроку: продовжувати знайомство з жанром натюрморту; формувати вміння передавати форму обєм; фактуру предмета працювати над композицією розвивати спостережливість гостроту зору. Під кінець роботи обовязково розглянути малюнок з певної відстані. Малюнок 1 Малюнок 2 Малюнок 3 Малюнок 4 Малюнок 5 Малюнок 6 Малюнок 7.
54548. Бабусина наука 33 KB
  Щоб ми швидше дістались її дому бабуся нам підказала коротку дорогу. Діти рухаються згідно інструкції Бабуся виходить з хати. Бабуся: Добрий день мої дорогенькі Як я рада вас бачити Ви так виросли Ви ж збираєтесь іти до школи Готові 2. Бабуся: Зараз я перевірю на дошці виставлено 10 тварин та 10 птахів.
54549. ЯК ПИСАТИ НАУКОВУ РОБОТУ З ФІЛОЛОГІЇ 82 KB
  Безумовно сьогоднішній учитель має можливість через інетâ знайти вимоги до змісту та оформлення роботи наприклад на сайтах МАНУ та МОНУ: mn. Я маю чималий досвід цієї роботи: 15 моїх учнів захищали наукові роботи усі брали участь у конкурсізахисті обласного рівня лише двоє не отримали призових місць четверо захищали роботи на Всеукраїнському рівні усі мали призові місця два І місця та два ІІІ м. Пропоную до Вашої уваги деякі порадиспостереження що народилися в процесі багаторічної роботи з учнями над науковими дослідженнями....
54550. Біологія – наука про живу природу 162 KB
  Передбачувані результати навчального заняття: А Знати:; що вивчає наука біологія; основні ознаки живого; основні галузі біології; принципи класифікації організмів; значення біології у практичній діяльності людини Б Нормувати: теоретичний матеріал у вигляді усної розповіді та діалогу; В Цінувати: старанність ініціативність працьовитість; переконання у справедливості; особисту точку зору. До неї входять: Ботаніка ботане рослина вивчає рослини. Зоологія зоон тварина вивчає тварини.
54551. Наука і технічний прогрес 83 KB
  They mke it possible to do complicted tsks in short time You cn buy lmost nything on the Internet without hving to leve your home. Some people becme ddicted to the Internet nd computer. 3 Which web browser does your computer use Internet Explorer Fire fox Mzil 4 How mny buttons re there on your mouse There re two buttons on my mouse. 7 re you member of ny cht group 8 Wht else cn you use the Internet for to find interesting informtion to do complicted tsks Повідомлення теми та мети уроку.