C _Учебник_МОНУ

Головний файл проекту Unit1.cpp:

#include <vcl.h> #pragma hdrstop

#include "MyLib.h" // Долучення власної бібліотеки

#include "Unit1.h"

#pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

void __fastcall TForm1::FormCreate(TObject *Sender)

{// Компоненти Button2 та Button3 стануть невидимими

Button2->Visible = 0; Button3->Visible = 0; // Заповнення фіксованих комірок компонентів StringGrid for(int i=1;i<=k;i++)

{SG1->Cells[0][i] = IntToStr(i) + "-й"; SG1->Cells[i][0] = IntToStr(i) + "-й";;

}}

//------------- Глобальне оголошення матриці та вектора -------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{elem_Matr( a); // Виклик функції обчислення елементів матриці for(int i=0; i<k; i++)

for(int j=0; j<k; j++)

SG1->Cells[j+1][i+1] = FormatFloat("0.000",a[i][j]); Button2->Visible = 1; Button3->Visible = 1;

}

редньо обчислює визначник. Але функцію triangular()може бути використано для розв‟язання якихось інших завдань (приміром, при розв‟язуванні системи лінійних рівнянь), тому є сенс розмістити її також у заголовному файлі (для підвищення його універсальності) і у разі потреби долучити його до іншої програми.

Файл Det.cpp містить визначення функцій, прототипи яких розміщено у файлі Det.h. Обидві функції й тип може бути використано у кожній програмі, до якої буде залучено заголовний файл Det.h. Окрім того, файл Det.cpp містить визначення функції change(), яка викликатиметься у функції determinant() і буде недоступною в інших файлах, і змінну znak, яка буде глобальною для файла Det.cpp, але не буде приступною в інших файлах.

Функція triangular() має три параметри: матриця a, розмір матриці n і індекс опорного елемента k (індекс обчислюваного рядка). Оскільки матриця завжди передається з доступом для змінювання, функція triangular() обчислює нові значення елементів матриці за формулою

де k – індекс опорного елемента, який є параметром функції.

Функція change()має також три параметри: матриця a, розмір матриці n та індекс рядка, який міняється місцем з будь-яким рядком k. Виконується пошук рядка з ненульовим елементом у стовпчику k. Якщо такий елемент знайдено, виконується переставляння рядка з індексом k і рядка, який містить знайдений ненульовий елемент, і змінюється знак визначника. Після цього виконування функції можна припинити, оскільки подальший пошук не має сенсу.

Функція determinant() має два параметри – матрицю a та її розмір n.

#pragma hdrstop #include "Det.h"

#pragma package(smart_init)

//Глобальне оголошення змінної znak, яка буде зберігати знак визначника int znak;

//Визначення функції заміни рядків матриці

void change(matr a, int n, int k)

{for(int j=0;j<n-k;j++)// Переглядання рядків, розміщених нижче рядка

//з індексом k.

for(int i=0; i<n; i++) // і переставити рядки з індексами k та k+j.

{float z = a[k][i]; a[k][i] = a[k+j][i]; a[k+j][i] = z;

}

}

int N; // Глобальна змінна для розмірності матриці

// Введення розмірності матриці і встановлення розмірів компонентів StringGrid void __fastcall TForm1::Button1Click(TObject *Sender)

{if(Edit1->Text=="")

{ShowMessage("Введіть розмірність матриці"); return; }

N=StrToInt(Edit1->Text); SG1->RowCount=N; SG1->ColCount=N;

// Обчислення визначника

void __fastcall TForm1::Button2Click(TObject *Sender)

{ if(N==0){ ShowMessage("Введіть розмірність матриці");return;}

{ a[i][j]=random(10)-5; //Заповнення матриці випадковими числами

SG1->Cells[j][i]=FloatToStr(a[i][j]);

}

Edit2->Text=determinant(a, N);// Виклик функції обчислення визначення for(int i=0; i<N; i++) // Виведення верхньотрикутної матриці for(int j=0; j<N; j++)

SG2->Cells[j][i]=FormatFloat("0.0", a[i][j]);

}

Приклад 9.3 Увести масив координат і нарисувати за числами цього масиву ламану. Створити проект, який містить три форми. На основній формі вводиться масив координат. Друга форма повідомляє про умову прикладу. Третя форма – полотно для рисування ламаної.

Розв‟язок. На першій формі розмістимо StringGrid1 (для спрощення перейменуємо його на SG1) та кнопки для автоматичного заповнення масиву випадковими числами чи то довільними числами користувачем. Окрім того, перша форма містить кнопки “Про програму”, при клацанні на яку з‟являється друга форма з умовою завдання, і “Нарисувати ламану”, при клацанні на яку відкривається третя форма з нарисованою ламаною.

Перша форма (Form1) відповідає Unit1.cpp, друга (“Про програму” –

About) – Unit2.cpp, третя (Form3) – Unit3.cpp.

Для створення форми AboutBox слід в меню File / New / Other (Файл / Новий / Інше) обрати вкладку Forms (Форми) і клацнути двічі на AboutBox.

Для створення третьої форми слід в меню File / New (Файл / Новий) обрати Form (Форма).

Після створення трьох форм проект слід зберегти (File / Save All). Якщо проект було збережено раніше, треба долучити нові форми до проекту:

Project / Add to project і обрати імена Unit2 і Unit3.

//------------------ Зчитати масив -----------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{for(int j=0; j<10; j++)

for(int i=0; i<2; i++)a[i][j]=StrToInt(SG1->Cells[j+1][i+1]);

}

//------------------- Нарисувати ламану -------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)

void __fastcall TForm1::Button4Click(TObject *Sender) { AboutBox->ShowModal(); }

Вікно основної форми:

Файл Unit2.cpp:

#include <vcl.h> #pragma hdrstop #include "Unit2.h" #pragma resource "*.dfm" TAboutBox *AboutBox;

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

__fastcall TAboutBox::TAboutBox(TComponent* AOwner) : TForm(AOwner)

{

}

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

void __fastcall TAboutBox::OKButtonClick(TObject *Sender) { Close();

}

Вікно другої форми “Про програму”:

Вікно третьої форми з нарисованою ламаною:

Приклад 9.4 Створити багатофайловий проект для опрацювання раціональних дробів і обчислення найбільшого спільного дільника і найменшого спільного кратного. Надати такі можливості: скорочення дробів, обчислення спільного знаменника двох дробів, порівняння на рівність/нерівність та більше/менше, додавання, множення й ділення дробів.

Розв‟язок. Раціональний дріб може бути подано двома цілими числами: чисельником і знаменником. Більшість операцій з раціональними дробами (порівняння, додавання, множення тощо) виконуються за іншими, більш складними, правилами, аніж відповідні операції з цілими числами та десятковими дробами. Тому доречно створити заголовний файл з прототипами функцій, які виконують деякі з зазначених операцій, а потім, за потреби їхнього використання, залучати цей файл до різних проектів.

При опрацюванні раціональних дробів багато операцій потребують обчислення спільного знаменника, який є найменшим спільним кратним знаменників двох дробів. Окрім того, інколи виникає потреба визначити найбільший спільний дільник цілих чисел. Тому буде корисним створити функції, які обчислюють НСД (найбільший спільний дільник) та НСК (найменше спільне кратне). Однак, оскільки ці функції не пов‟язані безпосередньо з опрацюванням дробів, є сенс створити окремий заголовний файл, який міститиме оголошення цих двох функцій. Назвемо цей файл mat.h. Його вміст буде таким:

#ifndef matH #define matH