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

Висновок:

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


 

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

70783. Введение в UNIX 98.45 KB
  Цель первого занятия –на практике изучить или повторить если эта тема уже освещалась в курсе Операционные системы основные команды и утилиты UNIXподобных операционных систем. программы команды Основные команды.
70784. Базовые сервисы и утилиты сетевых ОС 31.62 KB
  В целях отладки и тестирования в ОС Unix предусмотрены стандартные простейшие сервисы: Название Описание TCP порт UDP порт RFC echo сервер возвращает все что прислал клиент discrd сервер отбрасывает все что прислал клиент dytime сервер возвращает время и дату в удобном для человека...
70785. TELNET – протокол и клиент-серверное приложение удаленного доступа 149.88 KB
  Команде предшествует префиксный байт 0xFF (255), называемый IAC (Interpret As Command), за ним идет байт кода команды, затем могут идти необязательные байты опций. Т.к. команды передаются по тому же соединению, что и данные...
70786. DNS – система доменных имен в Internet 98.58 KB
  Cтрочные и прописные символы в имени эквивалентны. Анализ имени производится справа налево. Самая правая секция имени характеризует страну каждой стране соответствует свой собственный двухсимвольный код или характер организации которой принадлежит домен образовательная...
70787. Электронная почта в Internet. Протокол SMTP 163.93 KB
  Главной целью протокола SMTP является надежная и эффективная доставка электронных почтовых сообщений. SMTP базируется на следующей модели коммуникаций: в ответ на запрос пользователя почтовая программа-отправитель...
70788. Электронная почта в Internet. Post Office Protocol 83.32 KB
  При работе по протоколу POP3 роли клиента и сервера меняются местами: сервер по запросам клиента передает ему указанные почтовые сообщения. POP3 не ставит целью предоставление широкого списка манипуляций с почтой он лишь дает возможность получать и стирать почтовые сообщения.
70789. FTP – протокол передачи файлов 172.61 KB
  Управляющее соединение устанавливается клиентом. Сервер ждет входящих соединений от клиентов на TCP-порте. По этому соединению передаются команды клиента, которые задают действия, которые должен выполнить сервер, и ответы сервера на эти команды.
70790. HTTP - Hypertext Transfer Protocol 156.45 KB
  Протокол передачи гипертекста HTTP является протоколом прикладного уровня для распределенных мультимедийных информационных систем. Это объектно-ориентированный протокол, в первую очередь используемый для World-Wide Web...