768

Інструментальні засоби візуального програмування

Лабораторная работа

Информатика, кибернетика и программирование

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

Украинкский

2013-01-06

32.5 KB

40 чел.

Міністерство освіти і науки України

Дрогобицький механіко-технологічний коледж

Звіт

з лабораторної роботи №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) ;
}

Висновок:

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


 

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

30806. Устройство рабочих швов 13.91 KB
  В изгибаемых конструкциях рабочие швы располагают в местах с наименьшим влиянием на прочность конструкции. В колоннах швы устраивают на уровне верха фундамента у низа прогонов балок или подкрановых консолей; в колоннах безбалочных перекрытий у низа или верха вута в рамах между стойкой и ригелем. При подготовке к очередному бетонированию швы обрабатывают через 8.
30807. Уход за бетоном в процессе твердения. Распалубливание конструкций 16.32 KB
  Открытую поверхность бетона прежде всего предохраняют от вредного воздействия прямых солнечных лучей ветра и дождя. Если поверхность бетона предварительно была укрыта влагоемкими материалами брезентом матами песком и др. В жарком сухом климате если не обеспечить благоприятных температурновлажностных условий твердения прочность бетона снижается на 15. В начальный период ухода за бетоном не следует обильной поливкой сразу после укладки нарушать структуру твердеющего бетона.
30808. Бетонирование массивов и фундаментов 14.03 KB
  В фундаменты и массивы в зависимости от объема заглубления высоты и других особенностей бетонную смесь укладывают по следующим технологическим схемам: с разгрузкой смеси из транспортного прибора непосредственно в опалубку с передвижного моста или эстакады с помощью вибропитателей и виброжелобов бетоноукладчиков бетононасосов бадьями с помощью кранов. В ступенчатые фундаменты с общей высотой до 3 м и площадью нижней ступени до 6 м2 смесь подают через верхний край опалубки предусматривая меры против смещения анкерных болтов и закладных...
30809. Бетонирование полов 15.33 KB
  Для осуществления процесса укладки плиты разбивают на карты. Если толщина плит меньше 05 м то разбивку на карты и укладку бетона ведут в таком порядке: Площадь делят на картыполосы по 34м Устанавливают по краям полос маячные доски. При большей толщине плиты разбивают на параллельные карты шириной 5. Карты бетонируют подряд т.
30810. Сетевые и локальные СУБД 12.74 KB
  Существенной проблемой СУБД такого типа является синхронизация копий данных именно поэтому для решения задач требующих совместной работы нескольких пользователей локальные СУБД фактически не используются. К сетевым относятся файлсерверные клиентсерверные и распределенные СУБД. В файлсерверных СУБД все данные обычно размещаются в одном или нескольких каталогах достаточно мощной машины специально выделенной для этих целей и постоянно подключенной к сети.
30811. Процес нормализации баз данных 16.04 KB
  Например задано следующее отношение: ПРЕДМЕТ Код предмета. Переведем атрибут с повторяющимися значениями в новую сущность назначим ей первичный ключ Код преподавателя и свяжем с исходной сущностью ссылкой на ее первичный ключ Код предмета. В результате получим две сущности причем во вторую сущность добавятся характеризующие ее атрибуты: ПРЕДМЕТ Код предмета. Название Цикл Объем часов; ПРЕПОДАВАТЕЛЬ Код преподавателя ФИО Должность Оклад Адрес Код предмета.
30812. ПОТОКИ И ПРОЦЕССЫ 13.25 KB
  Процесс обеспечивает программу всем что ей нужно для работы включая один поток. Этот стандартный поток основной поток используется для выполнения кода программы. Основной поток типичного процесса начинает работу с точки входа и продолжает выполняться в соответствии со всеми циклами условными операторами и вызовами функций. Основной поток завершается вместе с завершением процесса.
30813. Гонки и тупики 11.15 KB
  Пусть Поток 1 получил доступ к ресурсу и изменил его в своих интересах; затем активизировался Поток 2 и модифицировал этот же ресурс до завершения Потока 1. Поток 1 полагает что ресурс остался в том же состоянии что и был до переключения. Тупики имеют место тогда когда поток ожидает ресурс который в данный момент принадлежит другому потоку.
30814. Создание таблиц для базы 18.26 KB
  Создание таблиц для базы Важным моментом при создании базы данных является распределение информации между полями записи. Очевидно что информация может быть распределена между полями различным образом. После того как определены поля записи необходимо выполнить распределение полей по таблицам. В простой базе данных все поля можно разместить в одной таблице.