Запустить программу можно, выбрав команду Run в главном меню Run, или клавишу F9, или пиктограмму . При этом происходит трансляция и, если нет ошибок, компоновка программы и создание единого загружаемого файла с расширением exe. На экране появляется активная форма программы (рисунок 12.2).

Рисунок 12.2 – Активная форма

Работа с программой происходит следующим образом. Нажмите (щелкните мышью) кнопку «Выполнить». В окне Memo1 появляется результат. Измените исходные значения x, y, z в окнах Edit и снова нажмите кнопку «Выполнить» – появятся новые результаты.

Завершить работу программы можно нажав ProgramReset в главном меню Run, или кнопку  на форме.

Текст программы имеет вид:

#include <math.h>

void __fastcall TForm1::FormShow(TObject *Sender)

{Edit1->Text="3,4"; // Начальное значение X

 Edit2->Text="0,74";  // Начальное значение Y

 Edit3->Text="19,43"; // Начальное значение Z

 Memo1->Clear();  // Очистка окна редактора Memo1

 // Вывод строки в многострочный редактор Memo1

Memo1->Lines->Add(" Лаб . раб . N1. Иванов А . А .");

}

void __fastcall TForm1::Button1Click(TObject *Sender)

{ float x,y,z,a,b,c,u;

x=StrToFloat(Edit1->Text);             // Считывается значение X

Memo1->Lines->Add(" X = "+Edit1->Text);// Вывод X в окно Memo1

y=StrToFloat(Edit2->Text);             // Считывается значение Y

Memo1->Lines->Add(" Y = "+Edit2->Text); // Вывод Y в окно Memo1

z=StrToFloat(Edit3->Text); // Считывается значение Z

Memo1->Lines->Add(" Z = "+Edit3->Text);// Вывод Z в окно Memo1

// Вычисляем арифметическое выражение

 a=pow(sin(x+y),2)/pow(cos(x+y),2);

b=exp(y-z);

 c=sqrt(cos(x*x)+sin(z*z));

u=a-b*c;

 // Выводим результат в окно Memo1

Memo1->Lines->Add(" Результат U = " +FloatToStrF(u,ffFixed,8,3));

}

Сетка строк – компонент TStringGrid

При работе с массивами ввод и вывод информации на экран удобно организовывать в виде таблиц. Компонент TStringGrid предназначен для отображения информации в виде двумерной таблицы, каждая ячейка которой представляет собой окно однострочного редактора (аналогично окну TEdit).

Доступ к информации осуществляется с помощью свойства

Cells[int ACol;int ARow]: AnsiString,

где ACol, A R ow – индексы элемента двумерного массива по столбцам и строкам соответственно. Свойства ColCount и RowCount устанавливают количество столбцов и строк в таблице, а свойства FixedCols и FixedRows задают количество столбцов и строк фиксированной зоны. Фиксированная зона выделена другим цветом, и в нее запрещен ввод информации с клавиатуры.

Пример выполнения программы

Задание: создать программу для определения вектора , где А – квадратная матрица размерностью NxN, а Y , B – одномерные массивы размерностью N. Элементы вектора Y определяются по формуле .

Значения N вводить в компонент TEdit, А и B – в компонент TStringGrid. Результат, после нажатия кнопки типа TButton, вывести в компонент TStringGrid.

Панель диалога приведена на рисунке 12.3.