Interface

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids;

Type

matrix=array[1..50,1..50] of extended;

TForm1 = class(TForm)

StringGrid1: TStringGrid;

Button1: TButton;

Button2: TButton;

Button3: TButton;

ComboBox1: TComboBox;

Label1: TLabel;

Label2: TLabel;

OpenDialog1: TOpenDialog;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations }

end;

Var

a:matrix;

Form1: TForm1;

Implementation

{$R *.dfm}

// кнопка Загрузить

procedure TForm1.Button1Click(Sender: TObject);

Var

n, cyc1, cyc2: integer;

F: TextFile;

Begin

n:=StringGrid1.ColCount;

//С помощью стандартного диалога получаем имя файла

if not OpenDialog1.Execute then

Exit;

// Пользователь отказался выбрать файл

// Пытаемся открыть файл

AssignFile(F, OpenDialog1.FileName) ;

Try

Reset(F) ;

Except

// Файл нельзя открыть:

ShowMessage(' Невозможно открыть файл ' +

OpenDialog1.FileName);

Exit;

end;

// Изменяем курсор перед длительной работой

Screen.Cursor := crHourGlass;

// Читаем файл по строкам

for cyc1:=0 to n-1 do

for cyc2:=0 to n-1 do

readln(F,a[cyc1,cyc2]);

Screen.Cursor := crDefault; // Восстанавливаем курсор

CloseFile(F); // Закрываем файл

for cyc1:=0 to n-1 do

for cyc2:=0 to n-1 do

StringGrid1.Cells[cyc1,cyc2]:=FloatToStr(a[cyc1,cyc2]);

//переводит в строку

end;

// кнопка Определитель

procedure TForm1.Button2Click(Sender: TObject);

Var

cyc1,cyc2,cyc3,n:integer;

k:extended;

Begin

n:=StringGrid1.ColCount;

for cyc1:=0 to n-1 do

for cyc2:=0 to n-1 do

a[cyc1,cyc2] := StrToInt(StringGrid1.Cells[cyc1,cyc2]);

//переводит в целое число

for cyc1:=0 to n-2 do

if a[cyc1,cyc1]<>0 then

for cyc2:= cyc1+1 to n-1 do

Begin

k:=a[cyc2,cyc1]/a[cyc1,cyc1];

for cyc3:= cyc1 to n-1 do

a[cyc2,cyc3]:=a[cyc2,cyc3]-k*a[cyc1,cyc3];

end;

k:=1;

for cyc1:= 0 to n-1 do

k:=k*a[cyc1,cyc1];

Label2.Caption:=FloatToStr(k);

//переводит в строку

end;

// кнопка Очистить

procedure TForm1.Button3Click(Sender: TObject);

Var

cyc1,cyc2,n:integer;

Begin

n:=StringGrid1.ColCount;

for cyc1:=0 to n-1 do

for cyc2:=0 to n-1 do

StringGrid1.Cells[cyc1,cyc2]:='';

Label2.Caption:='';

end;

// кнопка Выберите порядок матрицы

procedure TForm1.ComboBox1Change(Sender: TObject);

Begin

StringGrid1.ColCount:= StrToInt(ComboBox1.Text);

StringGrid1.RowCount:= StrToInt(ComboBox1.Text);

end;

end.

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

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

Вопросы для самоподготовки

1. Этапы подготовки и обработки информации.

2. Понятие «алгоритм», его свойства, способы описания.

3. Метод пошаговой детализации алгоритма.

4. Структура программного модуля.

5. Лексемы языка: алфавит, константы, зарезервированные слова.

6. Идентификаторы. Типы. Совместимость типов.

7. Выражения. Правила построения выражений. Логические выражения.

8. Строки. Стандартные процедуры и функции обработки строк.

9. Стандартные функции языка Pascal.

10. Операторы языка Pascal.

11. Особенности выполнения операторов: циклов, условных, ввода/вывода.

12. Структурированные типы данных: массивы, символьные переменные и строки, множества.

13. Записи. Организация, размещение. Записи с вариантами.

14. Процедуры и функции. Формальные и фактические параметры.

15. Сортировка и поиск информации. Методы внутренней сортировки.

16. Рекурсия: прямая и косвенная. Достоинства и недостатки рекурсивных программ.

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

18. Стандартные библиотечные модули и модули пользователя. Структура Unit-a.

19. Организация библиотек. Стандартные библиотечные модули и модули пользователя.

20. Файлы в Паскале: текстовые файлы, типизированные файлы, нетипизированные файлы, их назначение и использование.

21. Создание удобного пользовательского интерфейса: системы меню, окна для ввода, корректировки, просмотра информации. Модуль Crt.

22. Стандартные процедуры и функции Unit Graph. Методы создания анимации.

23. Организация памяти. Стековая память.

24. Статическое и динамическое распределение памяти. Понятие указателя. Динамические структуры данных и их организация с помощью указателей.

25. Введение в теорию графов. Способы представления графов: матрицы смежности и инцидентности, списки инцидентностей. Очереди и операции над ними.

26. Алгоритмы с возвратом, их реализация с помощью рекурсий и с использованием стека. Гамильтоновы циклы.

27. Доступ к системным ресурсам. Определение переменной как ABSOLUTE. Предопределенные массивы МЕМ.

28. Объект. Способы описания. Инкапсуляция. Полиморфизм. Наследование.

29. Объект. Свойства объектов. Способы описания.

30. Объект. Конструктор и деструктор. Виртуальные функции.

31. Объект. Инициализация и разрушение объекта.

32. Методология разработки информационных объектов.

33. Введение в Delphi. Главное окно: пиктографические кнопки, палитра компонентов. Окна: формы, инспектора объектов, кода программы. Основы визуального программирования.

34. Основы визуального программирования. Пустая форма и ее модификация. Компоненты страницы Standard. Размещение нового компонента. Обработка событий. Динамическое изменение свойств объекта.

35. Компоненты страницы Additional, их назначение, свойства, примеры применения.

36. Компоненты страницы Win32, их назначение, свойства, примеры применения.

37. Компоненты страницы System, их назначение, свойства, примеры применения.

38. Компоненты страницы Data Access, их назначение, свойства, примеры применения.

39. Компоненты страницы Data Controls, их назначение, свойства, примеры применения.

40. Компоненты страницы Decision Cube, их назначение, свойства, примеры применения.

41. Компоненты страниц Dialogs, ActiveX, их назначение, свойства, примеры применения.

42. Визуализация данных. Компоненты TDataSource, TDBGrid.

Рекомендуемая литература

1. Абрамов, С. А. Задачи по программированию / С. А. Абрамов, Г. Г. Гнездилова, Е. Н. Капустина, М. И. Селюн. – М. : Наука, 1988. – 224 с.

2. Ахо, А. Построение и анализ вычислительных алгоритмов / А. Ахо, Дж. Хопкрофт, Дж. Ульман. – М. : Мир, 1979.

3. Бондарев, В. М. Основы программирования / В. М. Бондарев, В. И. Рублинецкий, Е. Г. Качко. – Харьков : Фолио ; Ростов н/Д : Феникс, 1997. – 368 с.

4. Бородич, Ю. С. Паскаль для персональных компьютеров : справ. пособие / Ю. С.Бородич, А. Н. Вальвачев, А. И. Кузьмич. – Мн. : Выш. шк. ; БФ ГИТМП «Ника», 1991. – 365 с.

5. Бородич, Ю. С. Разработка программных систем на языке Паскаль : справ. пособие / Ю. С. Бородич. – Мн. : Выш. шк., 1992. – 143 с.

6. Вальвачев, А. Н. Графическое программирование на языке Паскаль : справ. пособие / А. Н. Вальвачев. – Мн. : Выш. шк., 1992. – 143 с.

7. Вальвачев, А. Н. Программирование на языке Паскаль для персональных ЭВМ ЕС / А. Н. Вальвачев, В. С. Крисевич. – Мн. : Выш. шк., 1989. – 223 с.

8. Вирт, Н. Алгоритмы и структуры данных / Н. Вирт. – М. : Мир, 1989.

9. Галисеев, Г. В. Компоненты в Delphi 7. Профессиональная работа / Г. В. Галисеев. – М. : Диалектика, 2004. – 624 с.

10. Галисеев, Г. В. Программирование в среде Delphi 2005 : самоучитель / Г. В. Галисеев. – М. : Диалектика, 2005. – 400 с.

11. Галисеев, Г. В. Программирование в среде Delphi 7 : самоучитель / Г. В. Галисеев. – М. : Диалектика, 2003. – 288 с.

12. Галисеев, Г. В. Программирование в среде Delphi 8 for .NET : самоучитель / Г. В. Галисеев. – М. : Диалектика, 2004. – 304 с.

13. Зубов, В. С. Структуры и методы обработки данных : практикум в среде Delphi / В. С. Зубов, И. В. Шевченко. – М. : Изд-во «Филинъ», 2004. – 304 с.

14. Зуев, Е. А. Язык программирования Турбо Паскаль 6.0 / Е. А. Зуев. – М. : «Унитех», 1992. – 298 с.

15. Касьянов, В. Н. Сборник заданий по практикуму на ЭВМ : учеб. пособие для вузов / В. Н. Касьянов, В. К. Сабельфельд. – М. : Наука, 1986. – 272 с.

16. Керман, М. К. Программирование и отладка в Delphi™ : учеб. курс / М. К. Керман. – М. : Изд. дом «Вильямс», 2004. – 720 с.

17. Киммел, П. Создание приложений в Delphi / П. Киммел. – М. : Изд. дом «Вильямс», 2003. – 640 с.

18. Климов, Ю. С. Программирование в среде Turbo Pascal 6.0 : справ. пособие / Ю. С. Климов, А. И. Касаткин, С. М. Мороз. – Мн. : Выш. шк., 1992. – 158 с.

19. Климова, Л. М. Pascal 7.0. Практическое программирование : решение типовых задач / Л. М. Климова. – М. : КУДИЦ-ОБРАЗ, 2000, – 528 с.

20. Кнут, Д. Искусство программирования для ЭВМ : в 3 т. Т. 3 / Д. Кнут. – М. : Мир, 1978. – 844с.

21. Котов, В. М. Методы алгоритмизации / В. М. Котов, И. А. Волков, А. И. Харитонович. – Мн. : Нар. асвета, 1996. – 127 с.

22. Липский, В. Комбинаторика для программистов / В. Липский. – М. : Мир, 1988. – 213 c.

23. Ляхович, В. Ф. Основы информатики / В. Ф. Ляхович. – Ростов н/Д : Изд-во «Феникс», 1996 – 640 с.

24. Мануйлов, В. Г. Разработка программного обеспечения на Паскале / В. Г. Мануйлов. – М. : «Приор», 1996. – 238 с.

25. Мейер, Б. Методы программирования : в 2 т. Т. 1 / Б. Мейер, К. Бодуэн. – М. : Мир, 1982. – 356 с.

26. Мейер, Б. Методы программирования : в 2 т. Т. 2. / Б. Мейер, К. Бодуэн. – М. : Мир, 1982. – 368 с.

27. Мизрохи, С. В. TURBO PASCAL и объектно-ориентированное программирование / С. В. Мизрохи. – М. : Финансы и статистика, 1992. – 192 с.

28. Основы алгоритмизации и программирования : лаб. практикум для учащихся специальности 2-40 01 01 «Программное обеспечение информационных технологий» : в 2 ч. Ч. 1 / сост. Л. В. Назаров. – Мн. : МГВРК, 2004. – 100 с.

29. Офицеров, Д. В. Программирование на персональных ЭВМ : практикум : учеб. пособие / Д. В. Офицеров. – Мн. : Выш. шк., 1993. – 256 с.

30. Пачеко, К. Delphi for .NET. Руководство разработчика / К. Пачеко. – М. : Изд. дом «Вильямс», 2005. – 960 с.

31. Пильщиков, В. Н. Сборник упражнений по языку Паскаль / В. Н. Пильщиков. – М. : Наука, 1989. – 160 с.

32. Полянский, А. Среда программирования Delphi 5–6 : справ. пособие / А. Полянский. – М. : Познавательная книга, 2001.

33. Рейнгольд, Э. Комбинаторные алгоритмы. Теория и практика / Э. Рейнгольд, Ю. Нивергельт, Н. Део. – М. : Мир, 1980. – 476 с.

34. Свами, М. Графы, сети и алгоритмы / М. Свами, К. Тхуласираман. – М. : Мир, 1984. – 455 с.

35. Симонович, С. Занимательное программирование : Delphi : книга для детей, родителей и учителей / С. Симонович, Г. Евсеев. – М. : АСТ-ПРЕСС, 2001. – 368 с.

36. Тейксейра, С. Программирование в Borland Delphi 2006 для профессионалов / С. Тейксейра. – М. : Изд. дом «Вильямс», 2006. – 944 с.

37. Тейксейра, С. Borland Delphi 6. Руководство разработчика / С. Тейксейра, К. Пачеко. – М.: Изд. дом «Вильямс», 2002. – 1120 с.

38. Тейксейра, С. Delphi 5. Руководство разработчика : в 2 т. Т. 1. Основные методы и технологии программирования / С. Тейксейра, К. Пачеко. – М. : Изд. дом «Вильямс», 2000. – 832 с.

39. Уилсон, И. Р. Практическое введение в Раскаль / И. Р. Уилсон, А. И. Эддиман ; под ред. Л. Д. Райкова ; пер. с англ. – М. : Радио и связь, 1983. – 143 с.

40. Фаронов, В. Искусство создания компонентов Delphi (+CD) / В. Фаронов. – СПб. : Питер, 2004. – 464 с.

41. Фаронов, В. Программирование баз данных в Delphi 7 : учеб. курс / В. Фаронов. – СПб. : Питер, 2005. – 464 с.

42. Фаронов, В. Delphi. Программирование на языке высокого уровня : учебник для вузов / В. Фаронов. – СПб. : Питер, 2005. – 640 с.

43. Фаронов, В. Delphi 2005. Разработка приложений для баз данных и Интернета / В. Фаронов. – СПб. : Питер, 2005. – 608 с.

44. Фаронов, В. В. Система программирования Delphi / В. В. Фаронов. – СПб. : БХВ, 2003. – 912 с.

45. Фаронов, В. В. Турбо Паскаль 7.0. Начальный курс : учеб. пособие / В. В. Фаронов. – М. : «Нолидж», 1997. – 616 с.

46. Фаронов, В. В. Турбо Паскаль 7.0 : практика программирования / В. В. Фаронов. – М. : «Нолидж», 1997.

47. Фаронов, В. Delphi 2005. Язык, среда, разработка приложений / В. Фаронов. – СПб. : Питер, 2005. – 560 с.

48. Фаронов, В. В. Turbo Pascal / В. В. Фаронов. – СПб. : БХВ, 2003. – 1056 с.

49. Филлипс, Д. Методы анализа сетей / Д. Филлипс, А. Гарсиа-Диас. – М. : Мир, 1984. – 496 с.

50. Фленов, М. В. Библия Delphi / М. В. Фленов. – СПб. : «БХВ-Петербург», 2004. – 865 с.

51. Хармон, Э. Разработка COM-приложений в среде Delphi / Э. Хармон – М. : Изд. дом «Вильямс», 2000. – 464 с.

52. Хьюз, Дж. Структурный подход к программированию / Дж. Хьюз, Дж. Мичтом. – М. : Мир, 1980. – 278 с.

53. Чип, С. Turbo Pascal 6.0 Professional. ООП : Теория и практика / С. Чип. – Мн. : SCI, 1992. – 138 с.

Приложение А

(справочное)