Курсовая работа: Разработка приложения для Windows, представляющего собой выполнение операции над матрицами
ifk=n+1 thenlabel4.caption:='Данная матрица является магичесим квадратом'
elselabel4.caption:='Эта матрица не является магическим квадратом';
end;
// Вывод в StringGrid3 контрольной матрицы
procedure TForm1. Label6Click (Sender: TObject);
begin
randomize;
n:=strtoint (edit1. Text);
stringgrid1. Visible:=true;
n:=n-1;
StringGrid1. Height:=StringGrid1. DefaultRowHeight* (strtoint (edit1.text)+1);
StringGrid1. Width:=StringGrid1. DefaultColWidth* (strtoint (edit1.text)+1);
StringGrid1. ColCount:=strtoint (edit1.text);
StringGrid1. RowCount:=strtoint (edit1.text);
for i:=0 to n do
for j:=0 to n do
begin
x [i, j]:=random(1)+1;
end;
for i:=0 to n do
for j:=0 to n do
begin
stringgrid1. Cells [j, i]:=inttostr (x[i, j]);
end;
end;
2.2 Спецификация программы
Исполняемый файл программы выполнения операции над матрицами имеет название Matr.exe и расположен на компакт-диске в каталоге Matr1\Magi. Состав проекта.
| Наименование | Обозначение | Примечания |
| Magi.res | Файл ресурсов | Содержит пиктограммы, графические изображения |
| Magi.dpr | Файл проекта | Связывает все файлы из которых состоит приложение |
| Magi.dof | Файл параметров проекта | Содержит текущие установки проекта: настройки компилятора и компоновщика, имена служебных каталогов, условные директивы |
| Magi.cfg | Файл, содержащий конфигурационную информацию о проекте | Содержит информацию о том какие окна открыты и в каких позициях они расположены |
| Unit2.pas | Файл программного модуля для формы №2 | Определяет функциональность формы №2 |
| Unit2.dfm | Файл формы №2 | Содержит список свойств всех компонентов, включенных в форму №2 |
| Unit2.dcu | Объектный файл для Unit2.pas | Откомпилированная версия Unit2.pas |
| Unit1.pas | Файл программного модуля для формы №1 | Определяет функциональность формы №1 |
| Unit1.dfm | Файл формы №1 | Содержит список свойств всех компонентов, включенных в форму №1 |
| Unit1.dcu | Объектный файл для Unit1.pas | Откомпилированная версия Unit2.pas |
2.3 Текст программы
Листинг программы.
unit Unit1;
interface