Составить программу «Магический квадрат»

В ходе курсовой работы получены навыки в составлении алгоритмов, реализации их во время программирования программного продукта, а также в отладке разработанной программы. Также закреплены навыки работы среде визуального проектирования программ Delphi с использованием языка программирования Object Pascal.
Цели и задачи курсовой работы выполнены полностью.

...

Основные данные о работе 1
Содержание 2
Введение 3
Основная часть 5
1. Описание задачи. 5
1.1. Задание 5
1.2. Назначение и область применения 5
2. Технические характеристики 6
2.1. Постановка задачи 6
2.2. Описание алгоритма 7
2.3. Организация входных и выходных данных 11
2.4. Выбор состава технических и программных средств 11
3. Разработка рабочего проекта 12
3.1. Разработка программы 12
3.2. Спецификация программы 14
3.3. Текст программы 16
3.4. Тестирование программы 20
Заключение 22
Глоссарий 23
Список использованных источников 25
Приложения 26

В рамках курсовой работы решается задача разработки программного продукта, работающего в операционной системе Windows, и выполняющего проверку является ли задаваемый пользователем двумерный массив целых чисел «Магическим квадратом». «Магическим квадратом» называется квадрат, у которого суммы по всем строкам и столбцам, а также суммы по двум диагоналям совпадают.
Исходя из постановки задачи курсовой работы, требуется разработать алгоритм проверки исходных данных на корректность (принадлежность к группе целых чисел, а также проверка, что исходный двумерный массив является квадратом), а также разработать алгоритм проверки соответствия заданного двумерного массива целых числе определению «Магический квадрат».
Для решения задачи был выбран язык программирования Object Pascal и среда программир ования Delphi фирмы Borland Enterprise, так как она наиболее широкие возможности для программирования приложений под операционные системы семейства Windows. Среда программирования Delphi является средством быстрой разработки приложений (Rapid Application Development – RAD). Такие среды программирования часто называют визуальными средами разработки: вид рабочих и диалоговых окон во время проектирования, программирования и выполнения программы является одинаковым. В Delphi входят множество библиотек визуальных компонентов, необходимых для профессиональной разработки программных продуктов для операционной системы Windows с минимальными затратами на написание программного кода.
Компилятор Delphi производит небольшие по размерам и высокоэффективные по скорости исполняемые модули. Это означает, что требования к клиентским компьютерам существенно снижаются.
Преимущества Delphi по сравнению с аналогичными программными продуктами:
 быстрота разработки приложения (RAD);
 высокая производительность разработанного приложения;
 низкие требования разработанного приложения к ресурсам компьютера;
 наращиваемость за счет встраивания новых компонент и инструментов в среду Delphi;
 возможность разработки новых компонентов и инструментов собственными средствами Delphi (существующие компоненты и инструменты доступны в исходных кодах);
 удачная проработка иерархии объектов.

Таким образом, среда визуального проектирования Delphi способная взять на себя значительные объемы рутинной работы по подготовке приложений, что увеличивает скорость и качество разработки программ.

Название: dlgOpen1
Filter: Text files|*.txt;
Окно Form2 “О программе” представлено на рисунке 5.
Компонент Form2.
Свойства:
Caption – О программе;
События – нет;
Рис.5 Окно «О программе»
Окно содержит единственный компонент TLabel:
Свойства:
Caption – содержит текст, представленный на рисунке 5
Align: alClient;
Alignment: taCenter;
Обработчик события btn1Click служит для загрузки содержимого файла в поле ввода.
Обработчик события btn2Click служит для определения магического квадрата по исходным данным, находящимся в поле ввода. Алгоритм проверки корректности данных и определения магического квадрата представлены ранее на рис.1 – 3.
Обработчик события btn3Click служит для отображения окна информации о программе.
Исходные коды с комментариями представлены в разделе 3.3.
3.2.Спецификация программы
Исполняемый файл программы «Магический квадрат» имеет название magicrect.exe и расположен в каталоге magicrect/magicrect.exe.
Наименование
Обозначение
Примечание
Sample.txt
Файл с примером двумерного массива
magicrect.dof
Файл параметров проекта
Содержит текущие настройки компилятора и компоновщика
magicrect.dpr
Файл проекта
Связывает все файлы, из которых состоит приложение
magicrect.dsk
Файл, содержащий Desktop – настройки проекта
Содержит информацию об открытых окнах и их размещении
magicrect.Res
Файл ресурсов
Содержит пиктограммы, графические изображения
Unit1.Pas
Файл программного модуля для формы № 1
Определяет функциональность формы № 1
Unit2.Pas
Файл программного модуля для формы № 2
Определяет функциональность формы № 2
Unit1.Dfm
Файл формы № 1
Содержит список свойств компонентов формы № 1
Unit2.Dfm
Файл формы № 2
Содержит список свойств всех компонентов формы № 2
Unit1.Dcu
Объектный файл для Unit1.Pas
Откомпилированная версия Unit1.Pas
Unit2.Dcu
Объектный файл для Unit2.Pas
Откомпилированная версия Unit2.Pas
3.3. Текст программы
Модуль Unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit2;
type
TForm1 = class(TForm)
btn1: TButton; {кнопка загрузки}
btn2: TButton; {кнопка проверки}
mmo1: TMemo; {поле ввода значений ячеек квадрата}
dlgOpen1: TOpenDialog;
btn3: TButton; {диалог открытия файла}
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
begin
{выбрать файл на диске}
if dlgOpen1.Execute then
begin
mmo1.Lines.Clear; {очистить поле ввода}
mmo1.Lines.LoadFromFile(dlgOpen1.FileName); {загрузить в поле ввода содержимое файла }
end;
end;
procedure TForm1.btn2Click(Sender: TObject);
var
baseSum,curSum,i,j,rows,cols,ncols: Integer;
s:string;
List: TStrings;
rectOk,digitsOk,magicOk: Boolean;
M: array of array of Integer;
begin
rectOk:=true; {квадрат имеет одинаковое количество строк и столбцов}
digitsOk:=True; {в ячейках квадрата записаны только целые числа }
ncols:=0; {счетчик колонок}
rows:=mmo1.Lines.Count; {количество строк в поле ввода }
{1. Расчет размеров кдварата }
for i:=1 to rows do
begin
{1.1. Разбить текущую строку на ячейки, разделитель - пробел }
s:=mmo1.Lines[i-1];
List := TStringList.Create;
try
ExtractStrings([' '], [], PChar(s), List);
{1.2. посчитать количество колонок }
cols:=List.Count;
{1.3. В случае несовпадения количества колонок в разных строках -
выдать флаг, что квадрат записан не правильно}
if (ncols=0) then ncols:=cols
else if (cols<>ncols) then rectOk:=false;
finally
List.Free;
end;
end;
{ при несовпадении количества строк и колонок выдать предупреждение,