практика

Рис. 4

Впроекте использованы:

–главная форма приложения – объект класса TForm;

–главное меню – объект класса TMainMenu (вкладка Standard);

–окно ввода многострочного текста – объект класса TMemo (вкладка Standard);

–стандартные диалоги – объекты классов TOpenDialog, TSaveDialog, TFontDialog, TColorDialog (вкладка Dialogs).

Спомощью Object Inspector для объекта Memo1:

−очистите свойство Lines;

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

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

Конфигурация меню настраивается посредством Конструктора меню, который вызывается двойным щелчком по объекту MainMenu1. Пункт меню Файл конструируется в соответствии с рис. 4, пункт Формат содержит подпункты Шрифт и Цвет. Для написания кода обработчика нужного пункта меню достаточно дважды щелкнуть мышью по его названию в конструкторе меню – откроется заготовка процедуры вида:

procedure TForm1.N3Click(Sender: TObject); begin

{здесь пишется код обработчика} end;

Для открытия файла код программы будет выглядеть следующим образом:

OpenDialog1.Execute;

Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

Код программы для сохранения файла (Сохранить как):

11

SaveDialog1.Execute;

Memo1.Lines.SaveToFile(SaveDialog1.FileName);

Аналогично выглядят программы для установки шрифта и цвета фона ок-

на:

FontDialog1.Execute;

Memo1.Font:=FontDialog1.Font;

ColorDialog1.Execute;

Memo1.Color:=ColorDialog1.Color;

Для реализации пункта Создать требуется только очистить окно ввода.

Memo1.Lines.Clear;

Разработайте первый вариант приложения с минимальными (разобранными выше) возможностями (режим Сохранить пока не реализуйте). Запустите программу. Проверьте правильность ее работы во всех возможных режимах. При необходимости исправьте ошибки.

Задания для самостоятельного выполнения

1.Добавьте к своему проекту возможности, имеющиеся у стандартного системного блокнота – автоматическое присвоение файлам расширения txt и отображения в диалоговых окнах только файлов соответствующего типа. Для этого нужно использовать свойства Filter и DefaultExt объектов

OpenDialog и SaveDialog.

2.Добавьте к своему проекту отображение имени открытого файла в области заголовка формы приложения аналогично стандартному приложению Блокнот (рис. 5).

Имя файла

Рис. 5

12

Лабораторная работа 5

Инструкция ветвления

Задача 1. Доработайте проект «Лампочка» так, чтобы лампочку можно было включать и выключать одной и той же кнопкой. Программа обработки нажатия кнопки может выглядеть примерно так:

Задача 2. Доработайте аналогичным образом проект «Светофор».

Задача 3. Усовершенствуйте проект «Блокнот» так, чтобы оно корректно работало при нажатии кнопки Отмена во всех диалогах. Для этого замените команду …Dialog1.Execute; на условие if …Dialog1.Execute then

для всех использованных диалогов.

Задача 4. Реализуйте пункт меню Сохранить, позволяющий, если файл ранее был открыт или сохранен, сохранять его по прежнему адресу без дополнительного диалога (аналогично стандартному приложению Блокнот). Для этого потребуется использовать текстовую переменную (типа String), которая будет хранить имя файла, если оно уже имеется (файл был открыт или сохранен), и быть пустой, если имени еще нет (приложение только что запущено или было выполнено создание файла).

Задача 5*. Смоделируйте работу городского светофора с тремя огнями и одной кнопкой.

Лабораторная работа 6

Проект «Калькулятор»

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

13

Рис. 3

В проекте использованы:

–главная форма приложения – объект класса TForm;

–кнопки – объекты класса TButton (вкладка Standard);

–окно ввода – объект класса TEdit (вкладка Standard).

Спомощью Object Inspector очистите свойство Text объекта Edit1. Размеры и положение объектов настройте согласно рис. 3.

Для реализации проекта потребуется использовать глобальные переменные программы. Их описание помещается в блок var окна unit1 после имеющихся там описаний:

var

Form1: TForm1;

implementation

{$R *.dfm}

Обработчиком события onClick для кнопки Button1 (знак «плюс») будет такая программа:

a := StrToFloat(Edit1.Text); {запомнили первое введенное число, преобразовав его из текстовой формы в числовую }

Аналогичная программа вводится для кнопки со знаком «минус». Следующая программа является обработчиком события onClick для кнопки

со знаком «равно»:

b := StrToFloat(Edit1.Text); {запомнили второе введенное число, преобразовав его из текстовой формы в числовую }

if d = '+' {если ранее нажимали кнопку '+'}

14

while x < 2 do

{продолжаем вычисление, пока не дошли до конца отрезка } begin

s:=s+w*(4-(x+w/2)*(x+w/2)); {добавляем к s площадь очередной полоски}

x:=x+w; {переходим к следующей полоске}

end;

Для того чтобы программа была работоспособной и выдавала результат, нужно добавить описание всех используемых переменных и предусмотреть выдачу результата (переменной s) с помощью какого-либо подходящего компонента (Edit или Label) с соответствующим преобразованием данных.

Полученный результат сравните с точным ответом, вычисленным с помощью интеграла.

Задания для самостоятельного выполнения

1.Измените программу таким образом, чтобы она позволяла вычислять площадь фигуры на произвольном отрезке [a;b]. Границы его должны вводиться пользователем.

2.Добавьте к своему проекту возможность менять количество полосок n.

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

16

Лабораторная работа 8 Проект «Метод Монте-Карло»

Задача: вычислить приближенно площадь криволинейной фигуры (см. предыдущую лабораторную работу) методом Монте-Карло2.

Идея метода – смоделировать случайное «бросание» большого количества точек в прямоугольник, содержащий криволинейную фигуру. При этом отношение числа точек, попавших внутрь фигуры, к общему числу точек будет приближенно равно отношению площади фигуры к площади прямоугольника. Понятно, что чем больше точек, тем точнее результат, однако оценить точность при использовании метода Монте-Карло не удается.

Возьмем, например, 10000 точек. Прямоугольник, содержащий фигуру, имеет размеры 4х4.

Фрагмент программы, предназначенный для вычисления площади, может выглядеть примерно так:

k:=0; {количество точек, попавших в фигуру} for i:=1 to 10000 do {моделируем 10000 бросаний } begin

x:=random*4-2;{случайная координата x} y:=random*4; {случайная координата y} if y<=4-x*x {если точка попала в фигуру}

then k:=k+1;

end;

s:=4*4*k/10000;{площадь прямоугольника 4*4 умножаем на число попавших в фигуру точек и делим на общее число точек }

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

Задания для самостоятельного выполнения

1.Измените программу таким образом, чтобы она позволяла вычислять площадь фигуры на произвольном отрезке. Границы его должны вводиться пользователем.

2.Добавьте возможность вычисления площади другой фигуры.

3.*Напишите программу для решения следующей задачи. Для обеспечения

секретности агент и резидент используют следующую схему передачи

2 Метод Монте-Карло – общее название вычислительных методов, в которых для вычисления какой-либо величины используется датчик случайных чисел (по названию города Монте-Карло, где расположено множество игорных заведений)

17