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

Львівський державний коледж харчової і переробної промисловості

Національного університету харчових технологій

Циклова комісія Інформатики

ЗВІТ

про проходження навчальної практики

<<Об`єктно-орієнтоване програмування>>

студента групи К-3 механіко-технологічного відділення

спеціальності 5.05010101

“

Романович Роман Богданович

Обслуговування програмних систем і комплексів”

(

Грицак В.А.

прізвище, ім’я, по-батькові студента)

Керівник практики

Дата захисту

Оцінка

Львів – 2016

Завдання 1

Створити програмний проект для обчислення опору електричного кола, яке складається з двох з’єднаних опорів, Залежно від виду їхнього з’єднання: паралельне чи послідовне.

1. Скріни програми.

2.Код програми.

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

float r1, r2, R;

r1=StrToFloat(Edit1->Text); r2=StrToFloat(Edit2->Text);

R=RadioGroup1->ItemIndex;

if(RadioGroup1->ItemIndex==0)

R=r1*r2/(r1+r2);

else R=r1+r2;

Edit3->Text=FloatToStr(R);

}

//---------------------------------------------------------------------------

Завдання 2

Увести цілі в Memo і визначити, чи є серед них від’ємні парні числа. Результат вивести у вигляді повідомлення.

1.Скріни програми.

2.Код програми.

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

float aver, sum=0; int x, k=0, i, n;

n=Memo1->Lines->Count;

if(n==0)

{ShowMessage ("Vvedit tcusla v Memo1"); return;}

for(i=0; i<n; i++)

{x=StrToInt(Memo1->Lines->Strings[i]);

if(x>-10 && x<10 && x!=0)

{sum+=x; k++; }

}

if(k!=0)

{ aver=sum/k;

Edit1->Text=FormatFloat("0.00",aver);

}

else

{ Edit1->Clear();

ShowMessage("Nenylovux odnocufrovux tcusel nema");

}

}

//---------------------------------------------------------------------------

Завдання 3

Розробити проект програми для введення до 15-ти дійсних чисел із компонента Memo і впорядкувати їх за зростанням.

Рекомендації. Упорядкування масивів за будь-якою ознакою називається також сортуванням. Iснують різні методи сортування. Вони розрізняються переважно швидкістю отримання результату. Використати метод вставки.

1.Скріни програми.

2.Код програми.

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void sort(float a[], int n)

{ int i, j; // Параметри наступних циклів

float tmp; // Тимчасова зміна для переставлянь елементів

for(i=0; i<n-1; i++)

for(j=i+1; j<n; j++)

if(a[i] > a[j])

{ tmp = a[i];

a[i] = a[j];

a[j] = tmp;

} }

void __fastcall TForm1::Button1Click(TObject *Sender)

{

int n,i; float a[15];

// Зчитування кількості заповнених рядків Memo1

n = Memo1->Lines->Count;

if(n>15)n=15;

for(i=0; i<n; i++) a[i]=StrToFloat(Memo1->Lines->Strings[i]);

sort(a, n); // Виклик функції

Memo2->Clear();

for(i=0; i<n; i++) Memo2->Lines->Add(FloatToStr(a[i]));

}

//---------------------------------------------------------------------------