Основы программирования на языке Delphi

Размещено на http://www.allbest.ru/

Содержание

• Реферат
• Введение
• 1. Анализ технического задания и постановка задачи проектирования
• 2. Разработка алгоритма программы
• 3. Описание структуры программы
• 3.1 Описание переменных
• 3.2 Описание вспомогательной процедуры
• 3.3 Алгоритм основной программы
• 4. Инструкция оператору
• Выводы
• Перечень ссылок
• Приложения

Реферат

Пояснительная записка к курсовой работе содержит:

страниц - 24;

рисунков - 6;

таблиц - 1;

приложений - 3.

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

В курсовой работе создана программа, которая в двумерном массиве зеркально изменяет элементы относительно главной диагонали. В начале программы происходит запрос на размерность массив. В зависимости от введенного значения на форме программы формируется таблица, в которую пользователю предлагается ввести элементы массива. По нажатию на кнопку "Изменить" происходит взаимная замена соответствующих элементов массива. Вывод результата осуществляется в ту же таблицу куда производится ввод элементов массива пользователем.

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

Во втором разделе выполняется анализ задачи проектирования, анализируется вид исходных данных и приводится словесный алгоритм работы программы.

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

Алгоритмы процедур приведены в приложении А.

Листинг программы содержится в приложении Б.

Результат тестового запуска приведен в приложении В.

Программа разработана с использованием языка Delphi.

Ключевые слова: массив, двумерный массив, замена элементов, диалоговое окно, циклические конструкции.

Введение

Данный курсовой проект был разработан в среде Delphi 7 с базовым языком программирования Delphi. Среди множества языков Delphi является наиболее универсальным и легко изучаемым языком. На сегодня Delphi поддерживает все современные возможности объектно-ориентированного программирования в такой мощной системе проектирования как Delphi 7.

Цель курсовой работы - закрепление и демонстрация знаний, полученных при изучении курса.

Задача работы заключается в том, чтобы правильно составить алгоритм поставленной задачи по обработке элементов массива информации, разработать и отладить программу, реализующую разработанный алгоритм.

Согласно заданию дан двумерный массив, произвольной размерности, с введенными целочисленными элементами.

В ходе выполнения курсового проекта не обходимо выполнить следующие этапы: программирование delphi массив алгоритм

- анализ технического задания и постановка задачи проектирования;

- выделение функций, которые выполнять разрабатываемая программа;

- разработка алгоритма программы, предназначенной для выполнения функций, сформированных на предыдущем этапе;

- составление программы согласно разработанным алгоритмам на языке Delphi;

- отладка программы на тестовых наборах;

- составление и оформление пояснительной записки.

Теоретическая и практическая значимость заключается в закреплении навыков составления алгоритмов поставленных задач и программирования на языке Delphi.

1. Анализ технического задания и постановка задачи проектирования

Согласно заданию дан двумерный массив, произвольной разрядности; необходимо произвести замену соответствующих символов относительно главной диагонали.

Как видим, задание сводится к обработке элементов двумерного массива. А именно, чтение исходных значений и их обработка согласно заданию.

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

В программе следует проанализировать полученные значения двумерного массива и выделять из него все необходимые элементы.

Подытожив все вышесказанное можно сформулировать требования к разрабатываемому программному обеспечению и выполнить постановку задания на проектирование. Так, согласно заданию, программа должна быть реализована в среде Delphi и должна выполнять следующие функции:

- вывод на экран информации о задании и назначении программы;

- ввод пользователем цифр, определяющих размерность двумерного массива;

- ввод пользователем элементов двумерного массива для дальнейшей их обработки;

- взаимная замена элементов двумерного массива согласно требованиям задания.

Последующие разделы будут посвящены решению поставленных задач и разработке приложения с вышеперечисленными функциями.

2. Разработка алгоритма программы

В предыдущем разделе были сформулированы требования к разрабатываемой программе и к ее функциям. Анализируя требования к программе, можно разработать алгоритм разрабатываемого приложения.

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

В программе необходимо проверить введенную разрядность, для этого необходимо выполнение следующих условий:

1. Считать значение разрядности двумерного массива, введенного пользователем;

2. Проверить, что введено, какое-либо значение, если нет - то вывести сообщение об ошибке;

3. Проверить введенное значение на соответствие с размерностью двумерного массива:

4. Отобразить на форме таблицу с полями для ввода значений элементов двумерного массива.

Далее необходимо производить непосредственно замену элементов массива в соответствии с заданием.

Составим следующий алгоритм:

1. Считать значение элементов двумерного массива, введенного пользователем;

2. Проверить наличие значения во всех ячейках таблицы двумерного массива, если значение не введено, то вписать в эту ячейку значение равное 0;

3. Произвести в двойном цикле замену соответствующих элементов двумерного массива;

4. Произвести отображение измененных значений элементов двумерного массива в таблице, в которую пользователь изначально вводил значения элементов двумерного массива.

В конце выполнения программы предоставить возможность для ввода другой размерности двумерного массива, а также изменения значений элементов массива.

Детальное описание разработанной программы, алгоритмов и их программной реализации приведено в последующих разделах.

3. Описание структуры программы

3.1 Описание переменных

В разделе описаний переменных описаны переменные, назначение которых приведено в таблице 3.1.

Таблица 3.1 - Описание переменных программы

Наименование	Тип	Назначение
razm	integer	Переменная целочисленного типа для хранения размерности двумерного массива
ar	Array	Массив для хранения и работы с значениями элементов массива
i,j	integer	Переменные счетчики для циклов
buf	String	Переменная для временного хранения строковой информации о ячейках таблицы ввода элементов двумерного массива

3.2 Описание вспомогательной процедуры

В программе приведено описание одной вспомогательной процедуры.

Процедура FormCreate вывода исходных значений в компоненты формы для корректного отображения формы в начале работы программы.

Процедура Button1Click отвечает за изменение размерности двумерного массива, изменение таблицы для ввода данных в соответствии с размерностью массива.

Процедура Button2Click отвечает за замену элементов массива согласно заданию.

3.3 Алгоритм основной программы

Алгоритм выполнения основного тела программы приведен на рисунке А.1 в приложении А. Так в процедуре в первую очередь осуществляется чтение исходных данных введенных пользователем.

Затем производится проверка введенных значений элементов двумерного массива.

Затем происходит поиск пары необходимых элементов для дальнейшей замены.

Затем осуществляется замена выбранной пары элементов с помощью промежуточной переменной.

Далее происходит отображение результатов работы программы в таблицу.

В ходе выполнения работы использовались следующие операции для работы и элементами массива работы с текстовыми файлами:

StringGrid1.Cells [<номер строки>,<номер столбца>];

Размерность массива задается целочисленной переменной. Размерность массива должна соответствовать допустимым значения для отображения на форме поэтому максимальное допустимое количество строк и столбцов равно 15. Если строка размерности пустая то программа перестает работать, и выводит сообщение об ошибке, после чего ждет дальнейшего правильного ввода значения размерности для продолжения правильного функционирования.

StringGrid1.ColCount:=<количество столбцов>

StringGrid1.RowCount:=<количество строк>

Приведенные функции задают размер отображаемой таблицы, из которой в дальнейшем будет происходить чтение данных.

StringGrid1.Width:=(<количество столбцов>+1)*30+<количество столбцов>+10

StringGrid1.Height:=(<количество строк>+1)*25+<количество строк>+10

Данные функции определяют ширину и высоту таблицы в пикселях на форме отображаемой пользователю.

После чтения исходных данных из таблицы приведенной пользователю на форме происходит замена соответствующих элементов массива. Выполняется это с помощью двойной циклической конструкции:

for i:=<номер первой строки> to <номер последней строки> do

for j:=i+1 to <номер последнего столбца> do begin

Вывод информации производится с помощью оператора:

StringGrid1.Cells [<номер строки>,<номер столбца>],

где необходимо указать номер столбца и номер строки в который будут помещены соответствующие данные.

4. Инструкция оператору

Исходными данными для выполнения является размерность двумерного массива и значения всех элементов этого массива введенные пользователем в таблицу на форме.

Выходными данными являются значения элементов массива, измененные по сравнению с введенными согласно заданию.

Разработанная программа представляет собой исполняемый файл Kursovaia.exe размером 447 Кбайт. В программе реализован алгоритм замены значений элементов двумерного массива относительно главной диагонали.

После запуска программы появляется окно, изображенное на рисунке 4.1.

Рисунок 4.1 - Главное окно программы

После этого пользователь должен задать размерность двумерного массива. На рисунке 4.2 показан пример ввода.



Рисунок 4.2 - Пример ввода размерности массива

После нажатия на кнопку "Принять" на форме отобразится таблица для ввода значений элементов массива и кнопка "Изменить", по нажатию на которую будет происходить замена соответствующих элементов. Пользователю необходимо заполнить таблицу значениями. Пример заполнения массива показан на рисунке 4.3.

Рисунок 4.3 - Пример заполнения массива показан на рисунке

После нажатия на кнопку "Изменить" произойдет автоматическая замена соответствующих элементов массива. Результат выполнения показа на рисунке 4.4.

Рисунок 4.4 - Результат выполнения программы

Функционирование программы полностью соответствует заданию.

Выводы

Данная курсовая работа была выполнена в полном соответствии поставленному заданию и отлажена в среде Delphi 7.0. В ходе выполнения курсовой работы была разработана программа для замены элементов массива относительно главной диагонали.

В ходе выполнения курсового проекта были проведен - анализ технического задания и постановка задачи проектирования.

Были выделены функции, которыми должна обладать разрабатываемая программа.

Был разработан алгоритм программы, предназначенной для выполнения сформированных функций.

Согласно разработанному алгоритму была составлена и отлажена программа алгоритмическом языке программирования Delphi. В ходе разработки программы проводилось ее тестирование и отладка на тестовых наборах. Для написанной программы разработана инструкция оператора с указанием порядка выполняемых действий.

Результаты работы оформлены в виде пояснительной записки.

В ходе разработки программы были закреплены навыки работы:

- командами ввода-вывода как на экран, так и в текстовые файлы;

- использования процедур;

- команды обработки массивов;

- команды для реализации циклов с заданным числом повторений;

- команды проверки условий и реализации ветвлений.

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

Перечень ссылок

1. Зуев Е.А. Программирование на языке Delphi 6.0, 7.0. - М.: Радио и связь, Веста, 1993.

2. Фаронов В.В. Delphi 7.0. Начальный курс. - М.: Нолидж, 2000.

ПРИЛОЖЕНИЕ А

Рисунок А.1 - Алгоритм процедуры Button1Click



Рисунок А.2 - Алгоритм процедуры Button2Click

ПРИЛОЖЕНИЕ Б

Листинг программы:

1. unit Unit1;

2. interface

3. uses

4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

5. Dialogs, Grids, StdCtrls;

6. type

7. TForm1 = class(TForm)

8. Edit1: TEdit;

9. Label1: TLabel;

10. Button1: TButton;

11. StringGrid1: TStringGrid;

12. Button2: TButton;

13. procedure FormCreate(Sender: TObject);

14. procedure Button1Click(Sender: TObject);

15. procedure Button2Click(Sender: TObject);

16. private

17. { Private declarations }

18. public

19. { Public declarations }

20. end;

21. var

22. Form1: TForm1;

23. razm:integer;

24. implementation

25. {$R *.dfm}

26. procedure TForm1.FormCreate(Sender: TObject);

27. begin

28. Label1.Caption:='Введите размерность массива от 2 до 15';

29. Edit1.Text:='';

30. Button1.Caption:='Принять';

31. Button2.Caption:='Изменить';

32. Button2.Visible:=False;

33. StringGrid1.Visible:=False;

34. end;

35. procedure TForm1.Button1Click(Sender: TObject);

36. var

37. i:integer;

38. begin

39. if Edit1.Text = '' then

40. ShowMessage('Введите размерность массива')

41. else begin

42. razm:=StrToInt(Edit1.Text);

43. if razm = 1 then ShowMessage('Слишком маленькое значение')

44. else

45. if razm > 15 then ShowMessage('Слишком большое значение')

46. else begin

47. StringGrid1.Visible:=True;

48. StringGrid1.Width:=(razm+1)*30+razm+10;

49. StringGrid1.ColCount:=razm+1;

50. StringGrid1.Height:=(razm+1)*25+razm+10;

51. StringGrid1.RowCount:=razm+1;

52. Button2.Visible:=True;

53. for i:=1 to razm do begin

54. StringGrid1.Cells [0,i]:=IntToStr(i);

55. StringGrid1.Cells [i,0]:=IntToStr(i);

56. end;

57. end;

58. end;

59. end;

60. procedure TForm1.Button2Click(Sender: TObject);

61. var

62. i,j:integer;

63. buf:String;

64. begin

65. for i:=1 to razm do

66. for j:=1 to razm do

67. if StringGrid1.Cells [i,j]='' then

68. StringGrid1.Cells [i,j]:='0';

69. for i:=1 to razm do

70. for j:=i+1 to razm do begin

71. buf:=StringGrid1.Cells [i,j];

72. StringGrid1.Cells [i,j]:=StringGrid1.Cells [j,i];

73. StringGrid1.Cells [j,i]:=buf;

74. end;

75. end;

76. end.

ПРИЛОЖЕНИЕ В

Рис. Результаты решения программы



Рис. Протокол выполнения программы

Размещено на Allbest.ru

...