
- •Содержание
- •1. Введение 7
- •2. Основные этапы развития технологии программирования. 8
- •3. Практическое задание по алгоритмизации и программированию в среде Delphi. 18
- •Implementation 28
- •Var I:integer; 28
- •Var I,j:integer; 29
- •Var I,j,k:integer; 29
- •4. Разработка тестовых заданий. 30
- •5. Заключение. 33
- •6. Список используемых источников 34
- •Введение
- •Основные этапы развития технологии программирования.
- •2.1. Первый этап: «стихийное» программирование (50-60-е годы)
- •2.2. Второй этап: структурный подход к программированию (60-70-е годы)
- •2.3. Третий этап: объектный подход к программированию (с середины 80-х до конца 90-х годов XX в.)
- •2.4. Четвертый этап: компонентный подход и case-технологии (с середины 90-х годов до нашего времени)
- •3. Практическое задание по алгоритмизации и программированию в среде Delphi. Вариант 1.
- •Постановка задачи 1.
- •Анализ задачи составление блок-схем.
- •Процедура для расчета.
- •3.3. Разработка схемы интерфейса.
- •Листинг кода программы.
- •Interface
- •Implementation
- •Var I,imax,imin,max,min:integer;
- •If opendialog1.Execute
- •Постановка задачи 2.
- •Анализ задачи составление блок-схем.
- •Разработка схемы интерфейса.
- •Листинг кода программы
- •Interface
- •Implementation
- •Разработка тестовых заданий.
- •Заключение.
- •Список используемых источников
2.4. Четвертый этап: компонентный подход и case-технологии (с середины 90-х годов до нашего времени)
Компонентный подход предполагает построение ПО из отдельных компонентов, которые взаимодействуют между собой через стандартизованные двоичные интерфейсы.
В отличие от обычных объектов объекты-компоненты можно собрать в динамически вызываемые библиотеки или исполняемые файлы (*.dll *.exe), распространять в двоичном виде (без исходных текстов) и использовать в любом языке, поддерживающем соответствующую технологию.
Компонентный подход лежит в основе технологий COM (Component Object Model – компонентная модель объектов), и технологии создания распределенных приложений CORBA (Common Object Request Broker Architecture - общая архитектура с посредником обработки запросов объектов).
Технология СОМ фирмы Microsoft является развитием технологии OLE, которая использовалась в Windows для создания составных документов.
Технология СОМ определяет общую парадигму взаимодействия программ любых типов: библиотек, приложений, операционной системы, т. е. позволяет одной части программного обеспечения использовать функции (службы), предоставляемые другой, независимо от того, функционируют ли эти части в пределах одного процесса, в разных процессах на одном компьютере или на разных компьютерах.
3. Практическое задание по алгоритмизации и программированию в среде Delphi. Вариант 1.
Постановка задачи 1.
Имеется файл, в котором содержится размерность массива и его элементы. Вычислить:
сумму отрицательных элементов массива;
произведение элементов массива, расположенных между максимальным и минимальным элементами.
Полученные результаты записать в новый файл.
Анализ задачи составление блок-схем.
Для решения поставленной задачи нам потребуются процедуры загрузки исходных данных из файла и сохранения результатов, и процедура, которая бы с помощью определенных циклов и условий выполняла необходимые расчеты. Все это можно реализовать с помощью модуля. Блок-схемы основной программы и процедуры для расчета представлены ниже.
Процедура для расчета.
A1
A1
3.3. Разработка схемы интерфейса.
Создадим для нашего модуля форму (рис.3.1). На нее добавим:
Поле Memo – для вывода содержимого файла, и для возможности последующего изменения исходных данных.
Opendialog – для открытия файла.
Savedialog – для сохранения результатов.
2 Метки (label) – на первой выведем результат выполнения задания 1.а, а на второй – 1.б.
3 Кнопки (button) – в событие onClick первой мы запишем процедуру “TForm1.open” , для второй - “TForm1.save” и для третьей - “TForm1.button3click”
Рис.3.1 Форма на этапе разработки.
Листинг кода программы.
unit Unit1;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Memo1Change(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
n:integer; p,sum:real;