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

Висновок:

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


 

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

73263. ЭКОНОМИКА ПРЕДПРИЯТИЯ 916.5 KB
  Дисциплина Экономика предприятия входит в блок общепрофессиональных экономических дисциплин. Методические рекомендации разработаны на основе программы Экономика предприятия призвана помочь студенту более глубоко изучить теоретические и практические вопросы связанные с экономической сферой деятельности предприятия законодательноправовые и нормативные документы в данной области выработать...
73264. РЕКОНСТРУКЦИЯ РАЙОНА ЖИЛОЙ ЗАСТРОЙКИ 49.75 MB
  Цель и задачи курсового проекта Цель курсового проекта разработка проекта реконструкции района жилой застройки. В содержание работы по курсовому проектированию входит решение следующих задач: проведение общего обследования жилой застройки: Сбор исходной информации о жилой застройке посредством проведения натурных изысканий; Построение картограммы жилищного фонда; Разработка возможных реконструктивных мероприятий; Построение картограммы возможных реконструктивных мероприятий...
73266. Технология организации технического обслуживания и ремонта устройств автоматики и телемеханики на железной дороге 286 KB
  Основной задачей работников дистанции сигнализации и связи является обеспечение эксплуатационной надёжности устройств автоматики телемеханики и связи при безусловном соблюдении всех требований безопасности движения поездов. Это рекомендуется: Инструкцией по техническому обслуживанию устройств СЦБ ЦШ 720. Инструкцией по обеспечению безопасности движения поездов при производстве работ по техническому обслуживанию и ремонту...
73269. Разработка автоматизированной информационной системы по учету сетевого и компьютерного оборудования и внешнего приложения к ней 1.4 MB
  Понятие АИС, освещение этапов (сбор требований к АИС, концептуальное проектирование, логическое проектирование, физическое проектирование), применяемого подхода к разработке АИС и др. Также должна быть изложена разработка автоматизированной информационной системы по учету сетевого и компьютерного оборудования с помощью СУБД MicrosoftAccess
73270. ОЧЕРКИ ПО ФИЗИОЛОГИИ ФУНКЦИОНАЛЬНЫХ СИСТЕМ 29.5 KB
  Рассмотрев две самые важные сенсорные системы опишем вкратце проприоцепцию т. сенсорную систему которая доставляет информацию о положении и движениях тела и его различных частей. Как всем известно о положении и движениях головы конечностей и всего тела мы обычно узнаём без помощи зрения. Эти рецепторы получили название проприоцепторов; это значит что они информируют нас о состоянии нашего собственного тела от лат.
73271. ВИДЫ ЧУВСТВИТЕЛЬНОСТИ НЕОПРЕДЕЛЕННОЙ КЛАССИФИКАЦИИ: КОЖНЫЕ И ХИМИЧЕСКИЕ РЕЦЕПТОРЫ 33.5 KB
  Мы знали что волокна зрительного нерва образуют синапсы с клетками наружного коленчатого тела НКТ и что аксоны клеток НКТ оканчиваются в первичной зрительной коре. Было также ясно что эти связи от сетчатки к НКТ и от НКТ к коре имеют топографическую организацию. Говоря о топографическом отображении мы имеем в виду что предшествующая структура проецируется на последующую упорядоченным образом: если идти вдоль какойлибо линии на сетчатке то проекции последовательных точек этой линии в НКТ и в коре также образуют одну непрерывную...