43868

Создание Базы Данных в Access. Решение задач в Delphi и Lazarus

Дипломная

Информатика, кибернетика и программирование

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

Русский

2013-11-08

1.31 MB

88 чел.

PAGE 2 PAGE 2

Содержание

[1] Введение

[2]                                1  Microsoft Access

[2.1] Microsoft Access. Понятия и возможности

[2.1.1]                 1.1.1 Основные элементы окна MS Access

[2.1.2] Структура Базы Данных

[2.2] Delphi

[2.2.1]                                  1.2.1Функции Delphi

[2.3]                        1.3    Lazarus

[3]  2 Создание Базы Данных в Access. Решение задач в Delphi и Lazarus.

[3.1] 2.1 Создание Базы Данных в Access

[3.2] 2.2 Решение задач в Delphi и Lazarus

[4] Заключение

[5] Список литературы

[6]                                            Код программ

Приллжение А…………………………………………………………………26



Введение

Borland Delphi — интегрированная среда разработки ПО для Microsoft Windows на языке Delphi (ранее носившем название Object Pascal), созданная первоначально фирмой Borland и на данный момент принадлежащая и разрабатываемая Embarcadero Technologies.[5]

Microsoft Office - семейство программных продуктов Microsoft, которое объединяет самые популярные в мире приложения в единую среду, идеальную для работы с информацией. В Microsoft Office входят текстовый процессор Microsoft Word, электронные таблицы Microsoft Excel, средство подготовки и демонстрации презентаций Microsoft PowerPoint и новое приложение Microsoft Outlook. Все эти приложения составляют Стандартную редакцию Microsoft Office. В Профессиональную редакцию входит также СУБД Microsoft Access.

Microsoft Access — реляционная СУБД. Имеет широкий спектр функций, включая связанные запросы, связь с внешними таблицами и базами данных. Благодаря встроенному языку VBA, в самом Access можно писать приложения, работающие с базами данных.[7]

Система управления базами данных Microsoft Access является одним из самых популярных приложений в семействе настольных СУБД. Все версии Access имеют в своем арсенале средства, значительно упрощающие ввод и обработку данных, поиск данных и предоставление информации в виде таблиц, графиков и отчетов. Access позволяет использовать электронные таблицы и таблицы из других настольных и серверных баз данных для хранения информации, необходимой приложению. Присоединив внешние таблицы, пользователь Access будет работать с базами данных в этих таблицах так, как если бы это были таблицы Access. При этом и другие пользователи могут продолжать работать с этими данными в той среде, в которой они были созданы.

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

Более подробно в этой курсовой будет представлено приложения Borland Delphi и MS Access, их функции и возможности.


                               1  Microsoft Access

  1.  Microsoft Access. Понятия и возможности

MS Access в настоящее время является одной из самых популярных среди настоль-

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

следует отметить:

  •  высокую степень универсальности и продуманности интерфейса, который рас-

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

зована система управления объектами базы данных, позволяющая гибко и оперативно

переходить из режима конструирования в режим их непосредственной эксплуатации;

  •  глубоко развитые возможности интеграции с другими программными продук-

тами, входящими в состав МS Office, а также с любыми программными продуктами, под-

держивающими технологию OLE.

  •  богатый набор визуальных средств разработки.

MS Access предназначена для разработки настольных баз данных и создания при-

ложений баз данных архитектуры клиент-сервер, работающих под управлением опера-

ционных систем семейства Windows. Эта система доступна для пользователя любого

уровня.[7]

MS Access работает с объектами, к которым относятся таблицы, запросы, формы,

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

файл, называемый базой данных.

Основные возможности:

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

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

Добавление и изменение данных. Эта функция требует разработки и реализации представленных данных, отличных от табличных (формы).

Представление данных. Access позволяет создавать различные отчёты на основе данных таблиц и других объектов базы данных.

Макросы. Использование макросов позволяет автоматизировать повторяющиеся операции. В последних версиях Access макросы используют для совместимости.

Модули. Модули представляют собой процедуру или функцию, написанные на Access VBA (диалект Visual Basic Application). Эти процедуры можно использовать для сложных вычислений. Процедуры на Access VBA превышают возможности стандартных макросов.

Защита базы данных. Эти средства позволяют организовать работу приложения в многопользовательской среде и предотвратить несанкционированный доступ к базам данных.[3]

                1.1.1 Основные элементы окна MS Access

В строке заголовка отображается имя активной в данный момент программы. Строка заголовка главного окна Access всегда отображает имя программы MICROSOFT Access.

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

Панель инструментов - это группа пиктограмм, расположенных непосредственно под полосой меню.

В левой части строки состояния отображается информация о том, что вы делаете в настоящее время.

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

С помощью вкладки объектов можно выбрать тип нужного объекта (таблицу, запрос, отчет, форму, макрос, модуль). Необходимо сказать, что при открытии окна базы данных всегда активизируется вкладка-таблица и выводится список доступных таблиц базы данных. Для выбора вкладки других объектов базы данных нужно щелкнуть по ней мышью.

Условные кнопки, расположенные вдоль верхнего края окна базы данных, используются для работы с текущим объектом базы данных. Они позволяют создавать, открывать или изменять объекты базы данных.[7]

Рисунок 1.1 – Основные элементы рабочего окна MS Access

  1.  Структура Базы Данных

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

 В файле базы данных Access можно использовать:

  таблицы для хранения данных;

 запросы на поиск и извлечение только необходимых данных;

формы для просмотра, добавления и обновления данных в таблицах;

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

  1.  Сохранить данные в одной таблице всего один раз и просматривайть их из разных мест. При обновлении данных они автоматически изменятся везде, где используются.
  2.  Извлечение данных с помощью запроса.
  3.  Просмотр или ввод данных с помощью формы.
  4.  Отображение или печать данных с помощью отчета.

Все эти элементы — таблицы, запросы, формы и отчеты — являются объектами базы данных.[3]

Рисунок 1.2 – База Данных в Access

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

Запросы. С помощью запроса можно найти и извлечь данные (в том числе и данные из нескольких таблиц), соответствующие указанным условиям. Запросы также используются для обновления или удаления нескольких записей одновременно и выполнения предопределенных или пользовательских вычислений на основе данных.

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

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

Макросы и модули – программы на языке Visual Basic for Application позволяющие автоматизировать повторяющиеся операции.[3]

  1.  Delphi

 Delphi — императивный, структурированный, объектно-ориентированный язык программирования, диалект Object Pascal. Начиная со среды разработки Delphi 7.0, в официальных документах Borland стала использовать название Delphi для обозначения языка Object Pascal. Начиная с 2007 года уже язык Delphi (производный от Object Pascal) начал жить своей самостоятельной жизнью и претерпевал различные изменения, связанные с современными тенденциями (например, с развитием платформы .NET) развития языков программирования: появились class helpers, перегрузки операторов и другое.

 Изначально среда разработки была предназначена исключительно для разработки приложений Microsoft Windows, затем был реализован также для платформ Linux (как Kylix), однако после выпуска в 2002 году Kylix 3 его разработка была прекращена, и, вскоре после этого, было объявлено о поддержке Microsoft .NET.

 Реализация среды разработки проектом Lazarus (Free Pascal, компиляция в режиме совместимости с Delphi) позволяет использовать его для создания приложений на Delphi для таких платформ, как Linux, Mac OS X и Windows CE.[4]

                                 1.2.1Функции Delphi

Основан на библиотеке визуальных компонентов Visual Component Library (VCL).

  •  Interface - ключевое слово. Он начинает определение внешнего интерфейса модуля. Здешние объявления внешне видимы другими модулями. Все эти объявления должны быть осуществлены в разделе Implementation. 
    Раздел Uses, если он имеется, должен быть в начале. 
  •  Uses - ключевое слово определяет список одного или более модулей, которые используются текущим модулем, программой или библиотекой. 
  •  Type - ключевое слово является фундаментальной частью Lazarus. Позволяет создать новые категории (типы) переменной и процесса. Позволяет определить новую переменную.
  •  TForm1 - сам класс формы.
  •  Procedure - ключевое слово определяет подпрограмму, которая не возвращает значение.
    1.  Определяет процедуру, которая работает без параметров.
    2.  Определяет процедуру, которой передаётся один или более параметров. procedure TForm1.FormCreate(Sender: TObject) - основная линия кода.
  •  Public – эта директива начинает раздел объявлений определения класса.
  •  Var - ключевое слово используется, чтобы начать раздел определения переменных. Раздел заканчивается следующим ключевым словом в программе. В пределах раздела могут быть определены одна или более переменных. Они могут иметь любой тип данных.
  •  Implementation - ключевое слово начинает активный раздел кода модуля - где реализовываются объявления интерфейса.                  В пределах раздела Implementation, функции и процедуры, определенные в разделе   Interface закодированы. Этот раздел может иметь свои собственные функции, процедуры и данные к тем, что уже определенны в Interface. Они являются частными по отношению к модулю.               Он может также иметь свой собственный раздел Uses, где модули определяются как используемые только в секции Implementation. Они определены к выполнению в данном модуле, и внешние пользователи модуля не должны знать о них.
  •   Function - ключевое слово определяет подпрограмму, которая возвращает значение. Определяет функцию, которая просто возвращает определенный тип данных. Из функции может быть возвращено только одно значение.
  •  Begin - всегда начинает кодовую часть подпрограммы.
  •  Repeat - ключевое слово начинает управляемый цикл, который всегда выполняется не менее одного раза и заканчивается, когда Выражение(Expression) будет удовлетворено (возвратится True).                  
  •  Until - ключевое слово заканчивает управляемый цикл, который всегда выполняется не менее одного раза, и который заканчивается, когда выражение(Expression) удовлетворено (возвращает True).                 Repeat и Until выполняют эту задачу.         Цикл используется, когда важно, чтобы инструкции выполнились не менее одного раза.
  •  End - ключевое слово, фундаментально для Lazarus - оно заканчивает операторские блоки.[4]

Рисунок 1.3 – Delphi

                       1.3    Lazarus

Lazarus — свободная среда разработки программного обеспечения для компилятора Free Pascal Compiler. Интегрированная среда разработки предоставляет возможность кроссплатформенной разработки приложений в Delphi-подобном окружении.

Начиная с версии 0.9.26 поддерживает виджеты GTK2 и Qt. Реализован основной набор элементов управления. Поддерживает преобразование проектов Delphi. Имеет собственный формат управления пакетами.

                1.3.1 Функции Lazarus 

Основан на библиотеке визуальных компонентов Lazarus Component Library (LCL).

  •  Interface - ключевое слово. Он начинает определение внешнего интерфейса модуля. Здешние объявления внешне видимы другими модулями. Все эти объявления должны быть осуществлены в разделе Implementation. 
    Раздел Uses, если он имеется, должен быть в начале. 
  •  Uses - ключевое слово определяет список одного или более модулей, которые используются текущим модулем, программой или библиотекой. 
  •  Type - ключевое слово является фундаментальной частью Lazarus. Позволяет создать новые категории (типы) переменной и процесса. Позволяет определить новую переменную.
  •  TForm1 - сам класс формы.
  •  Procedure - ключевое слово определяет подпрограмму, которая не возвращает значение.
    1.  Определяет процедуру, которая работает без параметров.
    2.  Определяет процедуру, которой передаётся один или более параметров. procedure TForm1.FormCreate(Sender: TObject) - основная линия кода.
  •  Public – эта директива начинает раздел объявлений определения класса.
  •  Var - ключевое слово используется, чтобы начать раздел определения переменных. Раздел заканчивается следующим ключевым словом в программе. В пределах раздела могут быть определены одна или более переменных. Они могут иметь любой тип данных.
  •  Implementation - ключевое слово начинает активный раздел кода модуля - где реализовываются объявления интерфейса.                  В пределах раздела Implementation, функции и процедуры, определенные в разделе   Interface закодированы. Этот раздел может иметь свои собственные функции, процедуры и данные к тем, что уже определенны в Interface. Они являются частными по отношению к модулю.               Он может также иметь свой собственный раздел Uses, где модули определяются как используемые только в секции Implementation. Они определены к выполнению в данном модуле, и внешние пользователи модуля не должны знать о них.
  •  Function - ключевое слово определяет подпрограмму, которая возвращает значение. Определяет функцию, которая просто возвращает определенный тип данных. Из функции может быть возвращено только одно значение.
  •  Begin - всегда начинает кодовую часть подпрограммы.
  •  Repeat - ключевое слово начинает управляемый цикл, который всегда выполняется не менее одного раза и заканчивается, когда Выражение(Expression) будет удовлетворено (возвратится True).                  
  •  Until - ключевое слово заканчивает управляемый цикл, который всегда выполняется не менее одного раза, и который заканчивается, когда выражение(Expression) удовлетворено (возвращает True).                 Repeat и Until выполняют эту задачу.         Цикл используется, когда важно, чтобы инструкции выполнились не менее одного раза.
  •  End - ключевое слово, фундаментально для Lazarus - оно заканчивает операторские блоки.

Рисунок 1.3 – Lazarus


 2 Создание Базы Данных в Access. Решение задач в Delphi и Lazarus.

2.1 Создание Базы Данных в Access

Основные этапы разработки базы данных в среде MS Access

 Разработка и описание структур таблиц данных;

 разработка схемы данных и задание системы взаимосвязей между таблицами;

 разработка системы запросов к таблицам базы данных и , при необходимости,

интеграция их в схему данных;

 разработка экранных форм ввода/вывода данных;

 разработка системы отчетов по данным;

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

 разработка системы защиты данных, прав и ограничений по доступу.[7]

Пример

Сформируем БД в MS Access, создадим 3 таблицы с именами Готовность заказа, Заказчики и Заказы. В каждой таблице создаются поля с именами и соответствующим типом. Далее с помощью кнопки Схема данных на панели инструментов, либо меню Сервис-Схема данных устанавливаем связи между таблицами.

Рисунок 2.1 – Схема данных

Заполним созданные таблицы данными

Рисунок 2.2 таблица заказчиков

Рисунок 2.3 – таблица заказов

Рисунок 2.4 – таблица получения заказа

В поле Объекты на вкладке Формы создадим три формы нажатием кнопки Создать, выберем Автоформа: в столбец

Рисунок 2.5 – готовность заказа

Рисунок 2.6 – Форма заказчики

Рисунок 2.7 – Форма заказы

В поле запрос нажатием кнопки создать создадим запрос на выборку. С помощью конструктора выберем таблицу заказчики и выберем нужные поля. Нам нужно выдать не полученные заказы Условие отбора указываем >[не получен].

Рисунок 2.8 – Создание запроса

Рисунок 2.9 – Клиенты, не получившие заказ

Создадим на основе созданного запроса отчет. На вкладке Отчет нажмем создать, выберем Мастер отчетов, из списка выберем нужный запрос и нужные поля, два раза далее, Макет табличный, Стиль Обычный, Готово.

Рисунок 2.10 – Отчет Клиенты, не получившие заказ

Теперь нажатием Сервис – Служебные программы – Диспетчер кнопочных форм создадим Переходную кнопочную форму, вводя название, выбрав команду и элемент обращения из списка; пометим По умолчанию, в ней создается кнопка перехода к кнопочной форме Меню, в которой создаем кнопки для редактирования форм.

В итоге получаем кнопочную форму

Рисунок 2.11 – Кнопочная форма переходная

Рисунок 2.12 – Кнопочная форма меню

2.2 Решение задач в Delphi и Lazarus

Рассмотрим пример определения принадлежности точки с координатами геометрической фигуре.

В окне Form1 создадим две кнопки, первая, определяющая принадлежность, вторая – выход. Во вкладке Standart выберем кнопку TButton

Рисунок 2.13 – Кнопка TButton

А также в верхнем части создадим меню Файл с выползающим списком аналогичных команд.  Во вкладке Standart выберем кнопку MainMenu

В результате получится такая форма

Рисунок 2.14 – Окно Form1

Далее создадим программу для нашей задачи, щелкнув дважды мышкой по кнопке Button1, назовем ее Определить, откроется окно редактора исходного кода.

Рисунок 2.15 – Редактор исходного кода

Используем ключевое слово var, в которой опишем все переменные используемые для решения задачи:

var

   F1,F2:textfile;

   x,y:integer;

Для начала кодовой части программы используем ключевое слово begin в которой объявляем открытие одного файла для чтения, другого – для записи:

begin

 Assignfile(F1,'input.txt');  Reset(F1);

 Assignfile(F2,'output.txt'); Rewrite(F2);

Далее считываем координаты x и y, и проверяем условие принадлежности точки, заданием границ фигуры.

При положительном или отрицательном результате соответствующее сообщение записывается в файл командой write, а командой showmessage выдается сообщение о результате в отдельном окне. Соответствующий код программы:

begin

 Assignfile(a,'input.txt');  Reset(a);

 Assignfile(b,'output.txt'); Rewrite(b);

 begin

 read(a,x,y);

 if (x>=2) and (y>=0) and (y<=(23/3-4*x/3)) and (y>=2*x-9) and (x<=5)

 then begin write(b, 'Точка принадлежит области');

 ShowMessage('Точка принадлежит области');

 end

 else begin write(b, 'Точка не принадлежит области');

 showmessage('Точка не принадлежит обласьи');

 end;

 Closefile(a);

 Closefile(b);

end;

end;     

Код для кнопки выход:

begin

close;

end;

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

n:string;

begin

n:='';

 OpenDialog1.Filter:='Текстовые файлы|*.txt; *.ini';

 if OpenDialog1.Execute then n:=OpenDialog1.FileName;

Будут показаны файлы только с расширениями txt и ini

Используя ключевое слово End, заканчиваем кодовую часть подпрограммы

                                +                                           –

Рисунок 2.16 - Блок-схема

 

 


 Теперь рассмотрим пример с преобразованием матрицы 5 на 5 с числами из диапазона [-20,40].Найти удвоенную сумму положительных элементов. Вывести исходную матрицу и результат.
StringGrid - компонент для отображения различных данных в табличной форме. Как следует из названия, ячейки компонента  StringGrid Delphi могут содержать данные, имеющие тип String, а также отображать графику.

   Таблица StringGrid состоит FixedCols и FixedRows - зафиксированных ячеек-заголовков, и обычных, белых ячеек. Содержимое Fixed ячеек недоступно редактированию, и меняется только программно. За возможность редактирования обычных ячеек отвечает одно из значений свойства Options. Находится компонент во вкладке Additional

Рисунок 2.18 – Кнопка StringGrid

Рисунок 2.19 – Форма Матрица

var

i,j,n,m,S:integer;

a: array [0..40,0..40] of integer;

begin

Randomize; (Инициализация датчика случайных чисел)

n:=strtoint(Edit1.Text); (количество строк)

m:=strtoint(Edit2.Text); (количество столбцов)

for i:=0 to n-1 do

for j:=0 to m-1 do

a[i,j]:=Round(Sin(Random(20))*40); (заполнение массива случайными числами из                

                                                                          диапазона {-20,40}.

         StringGrid1.RowCount:=n+1; (количество строк в заголовке таблице)

StringGrid1.RowCount:=m+1; (количество столбцов в заголовке таблице)

with StringGrid1 do

for i:=1 to n do

for j:=1 to m do

Cells[i,j]:=IntToStr(a[i-1,j-1]);

S:=0;

for i:=0 to m-1 do

for j:=0 to n-1 do

if a[i,j]>0 then begin

S:=S+2*a[i,j]; (удвоенная сумма положительных элементов)

edit3.Text:=inttostr(S); (вывод удвоенной суммы положительных элементов)

 end;

Используя ключевое слово End, заканчиваем кодовую часть подпрограммы.

        Рисунок 2.20 – Блок-схема

Запускаем программу, которая будет иметь вид

 

 Рисунок 2.21 – Программа Матрица


Заключение

Access – мощное приложение Windows. При этом производительность СУБД органично сочетаются со всеми удобствами и преимуществами Windows.

Как реляционная СУБД Access обеспечивает доступ ко всем типам данных и позволяет одновременно использовать несколько таблиц базы данных. Можно  использовать таблицы, созданные в среде  Paradox или dBase.

Работая в среде Microsoft Office, пользователь получает в своё распоряжение полностью совместимые с Access текстовые документы (Word) , электронные таблицы (Excel), презентации (PowerPoint). С помощью новых расширений для Internet можно напрямую взаимодействовать с данными из World Wide Web и транслировать представление данных на языке HTML, обеспечивая работу с такими приложениями как Internet Explorer и Netscape Navigator.

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

База данных храниться в одном файле, но профессиональные пользователи предпочитают разделять базу данных на два файла: в одном хранятся объекты данных (таблицы, запросы), в другом объекты приложения (формы, отчёты, макросы, модули).

В последних версиях Access представлен новый формат файла (MDE) –библиотеки, с помощью которого можно создавать приложения, не включая VBA-код.

Несмотря на то, что Access является мощной и сложной системой, его использование не сложно для непрофессиональных пользователей.

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

Lazarus На данный момент является единственным инструментом, позволяющим достаточно несложно переносить Delphi-программы с графическим интерфейсом в различные операционные системы: Linux, FreeBSD, Mac OS X, Microsoft Windows.


Список литературы

  1.  ГОСТ 2.105 – 95. Общие требования к текстовым документам. Дата введения 1996-07-01. Взамен ГОСТ 2.105-79, ГОСТ 2.906-71
  2.  ГОСТ 19.701-90 схемы алгоритмов программ, данных и систем. Дата введения 1992-01-01. Взамен ГОСТ 19.002-80
  3.  http://office.microsoft.com – Microsoft Office.
  4.  http://delphi-manual.ru/ – Уроки начинающим Delpfi с нуля.
  5.  http://ru.wikipedia.org – Свободная энциклопедия Википедия.
  6.  http://www.delphisources.ruDelphi Sources – Справочник функций и процедур.
  7.  http://www.taurion.ru – книги, учебники, самоучители и задания для самостоятельной подготовки к работе в Microsoft Office.


Приложение А

Код программ


                                           Код программ

1. Программа Координаты:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

 Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,

StdCtrls, ExtCtrls, Menus;

type

{ TForm1 }

TForm1 = class(TForm)

 Button1: TButton;

Button2: TButton;

Image1: TImage;

MainMenu1: TMainMenu;

MenuItem1: TMenuItem;

MenuItem10: TMenuItem;

MenuItem4: TMenuItem;

   OpenDialog1: TOpenDialog;

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure MenuItem10Click(Sender: TObject);

   procedure MenuItem4Click(Sender: TObject);

 private

   { private declarations }

 public

   { public declarations }

 end;

var

 Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

var

 a,b:textfile;

 x,y:real;

begin

 Assignfile(a,'input.txt');  Reset(a);

 Assignfile(b,'output.txt'); Rewrite(b);

 begin

 read(a,x,y);

 if (x>=2) and (y>=0) and (y<=(23/3-4*x/3)) and (y>=2*x-9) and (x<=5)

 then begin write(b, 'Точка принадлежит области');

 ShowMessage('Точка принадлежит области');

 end

 else begin write(b, 'Точка не принадлежит области');

 showmessage('Точка не принадлежит обласьи');

 end;

 Closefile(a);

 Closefile(b);

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

 close

end;

procedure TForm1.MenuItem10Click(Sender: TObject);

begin

close;

end;

procedure TForm1.MenuItem4Click(Sender: TObject);

var

 a,b:textfile;

 x,y:integer;

 n:string;

begin

n:='';

 OpenDialog1.Filter:='Текстовые файлы|*.txt; *.ini';

 if OpenDialog1.Execute then n:=OpenDialog1.FileName;

 if MenuItem4.Enabled=true then Button1.Enabled:=true

 else Button1.Enabled:=false;

begin

 Assignfile(a,'input.txt');  Reset(a);

 Assignfile(b,'output.txt'); Rewrite(b);

 begin

 read(a,x,y);

 if (x>=2) and (y>=0) and (y<=(23/3-4*x/3)) and (y>=2*x-9) and (x<=5)

 then begin write(b, 'Точка принадлежит области');

 {ShowMessage('Точка принадлежит,результат записан файл');}

 end

 else

 begin

 write(b, 'Точка не принадлежит области');

 {showmessage('Точка не принадлежит обласьи');}

 end;

 Closefile(a);

 Closefile(b);

 end;

end;

end;

initialization

 {$I unit1.lrs}

end.

            

2)Программа Матрица:

unit Unit1;

interface

uses

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

 Dialogs, StdCtrls, Grids;

type

 TForm1 = class(TForm)

   StringGrid1: TStringGrid;

   Button1: TButton;

   Edit1: TEdit;

   Edit2: TEdit;

   Edit3: TEdit;

   Button2: TButton;

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

i,j,n,m,S:integer;

a: array [0..40,0..40] of integer;

begin

Randomize;

n:=strtoint(Edit1.Text);

m:=strtoint(Edit2.Text);

for i:=0 to n-1 do

for j:=0 to m-1 do

a[i,j]:=Round(Sin(Random(40))*40);

StringGrid1.RowCount:=n+1;

StringGrid1.RowCount:=m+1;

with StringGrid1 do

for i:=1 to n do

for j:=1 to m do

Cells[i,j]:=IntToStr(a[i-1,j-1]);

S:=0;

for i:=0 to m-1 do

for j:=0 to n-1 do

if a[i,j]>0 then begin

S:=S+2*a[i,j];

edit3.Text:=inttostr(S);

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close

end;

end.

PAGE  2


 

А также другие работы, которые могут Вас заинтересовать

21099. Визначення поняття «культура», її структура та основні функції 19.29 KB
  Термін культура вперше зустрічається в одному з творів знаменитого римського оратора Цицерона 45 р. Як самостійна наукова категорія культура фіксується вперше у працях німецького юриста С. У подальшому слово культура отримало ще більш узагальнене значення яке охоплювало собою сукупність створених людськими спільнотами традиційних благ і цінностей.
21100. Перші паростки культури на українських землях у найдавніші часи 17.16 KB
  Перші паростки культури на українських землях у найдавніші часи. Виникнення культури нерозривно пов’язано з появою людини. Загальні закономірності розвитку культури у первісну добу на українських землях були такими самими як в інших регіонах земної кулі проте були й деякі особливості. З огляду на це питання про генетичні витоки української культури має сьогодні неабияке значення і викликає у своєму розв’язанні доволі гострі зумовлені актуальними проблемами в житті нашого суспільства суперечки.
21101. Трипільська культура 18.72 KB
  Трипільська культура. Найбільшого розвитку в цей час в добу енеоліту досягла трипільська культура названа так від с. Потретє за своїм походженням трипільська культура хоч і була пов’язана з БалканоНижньодунайським регіоном але в процесі поширення на нові східні території включала в себе на різних етапах елементи місцевих неолітичних та енеолітичних культур. Почетверте трипільська культура відзначається розташуванням поселень певними зосередженими групами з проміжними менш заселеними територіями.
21102. Кімерійці, скіфи, сармати, їх культура та світогляд 19.74 KB
  Але історичні відомості про скіфів містяться в іноземних джерелах. Одним із перших про скіфів написав Геродот який присвятив їм окрему книгу своєї Історії і не лише яскраво змалював побут і звичаї тих народів які заселяли українські землі під назвою скіфів а й навів дані про їх релігійні погляди міфологію. У випадку скіфів такою ознакою послужила характерна форма півсферичних посудинчаш характерних для кочівників і більш позаднього часу. Поховання кочівницьких скіфів відрізняються від поховань осідлого населення.
21103. Давньогрецька культура на теренах України 15.24 KB
  Північне Причорномор’я входило до сфери колонізації руху греків яких привертали сюди родючі землі велика кількість риби в гирлах річок можливість вести широку торгівлю з племенами північних причорноморських степів – скіфами синдами меотами та ін. Античні міста Північного Причорномор’я жили самостійним життям зберігаючи проте торгові та культурні зв’язки зі своїми метрополіями. Велику роль в їх економічному житті відігравала торгівля з містами Греції та Малої Азії а також з племенами причорноморських степів. В містах Північного...
21104. Язичницька культура давніх слов’ян 22.85 KB
  Язичницька культура давніх слов’ян. Релігійні вірування давніх слов’ян давно привертають пильну увагу дослідників. Однак жодну з сучасних реконструкцій світу давньослов’янських вірувань не можна вважати остаточно доведеною. А подруге кожне слов’янське плем’я імовірно визнавало своїх богів культ яких не поширювався на значні території.
21105. Фольклор, музика, побут за часів Київської Русі 18.83 KB
  Фольклор музика побут за часів Київської Русі. Культура часів Київської Русі не була явищем однорідним уніфікованим для всіх регіонів держави яка обіймала великі території від Чорного до Білого морів населені цілком різними племенами. Вельми показовою ілюстрацією розбіжностей у релігійних уявленнях населення різних регіонів Київської Русі може служити поховальний обряд який суттєво відрізнявся навіть у найближчих сусідів що складали етнічне ядро держави у полян та древлян. Протягом тисячолітньої історії християнства на Русі церква...
21106. Освіта за часів Київської Русі 16.49 KB
  Освіта за часів Київської Русі. Перші школи на Русі з’явилися за часів великого князя Володимира Святославовича початок XI ст. Основою руської літературнописемної мови як вважають вчені стала говірка мешканців княжої столиці що перепліталася з говірками прибульців з інших земель Русі – дружинників ремісників купців. Що до давньоруської живої мови то фахівці вважають що на території Русі існували кілька надплемінних територіальних діалектів.
21107. Література Київської Русі 20.63 KB
  Література Київської Русі. Великого значення і значного розвитку в культурі Київської Русі набуває література. У багатьох давньоруських творах дослідники знаходять риси пізніше характерні тільки для української живої мови при цьому самі ці твори часто неодноразово переписувалися в інших землях Київської Русі. Ним зумовлюється зміст більшості пам'яток літератури Київської Русі.