1.2 Задание к лабораторной работе
Составить программу для вычисления объема конуса произвольного радиуса и произвольной высоты с использованием компонентов Label, Edit, Button. Значения радиуса и высоты вводятся в компонент Edit, а значение объема конуса выводится в компонент Label. Вычисление производится при нажатии на компонент Button,
Приводится пошаговое описание процесса создания оконного приложения:
1) загрузить среду Delphi;
2) создать новая папку, в которую будут помещены все файлы, входящие в проект. Для каждого нового проекта создается отдельная папка. Новую папку можно также создавать в момент сохранения файлов, входящих в проект;
3) из страницы Standard Палитры компонентов поместить на форму Form1 шесть компонентов: Label1, Label2, Label2 - метки, Edit1, Edit2 – строки ввода, Button1 – кнопка;
Label1, Label2, Label3 – компоненты, предназначенные для отображения текстовой информации. Основным для метки является свойство Caption. В метку Label1 поместить текст «Введите радиус конуса», в метку Label2 – «Введите высоту конуса», в метке Label3 будет отображаться объем конуса.
При помощи компонентов Edit1, Edit2 вводятся соответственно значения радиуса и высоты конуса.
Button1 – кнопка – компонент, предназначенный для формирования события. При нажатии на кнопку будет происходить вычисление объема конуса.
4) формирование внешнего вида будущей программы. Для этого, используя Инспектор объектов, Установить свойства формы и расположенных на ней объектов. Сделать по очереди форму и Label1, Label2 активными, выбрать в Инспекторе объектов свойство Caption. Для формы значение этого свойства установить – ‘Вычисление объема конуса’, а для Label1, Label2 соответственно установить значение Caption ‘Введите радиус конуса’ и ‘Введите высоту конуса’. Значения свойства Caption являются символьные строки;
5) для компонентов Edit1и Edit2 свойство Text является основным и предназначено для ввода символьных строк. Значение этого свойства установить пустую строку ‘ ‘;
6) для компонента Button1 в качестве значения свойства Caption установить ‘Объем фигур’;
7) этап написания программы. Будущая программа должна вычислять объем конуса после того, как в строки ввода Edit1и Edit2 будут введены значения радиуса и высоты и выполнен щелчок мышью по кнопке Счет. Надо написать обработчик события OnClick для кнопки Button1. чтобы создать заготовку обработчика события, достаточно выполнить щелчок по кнопке Button1. Добавить в заготовку код для вычисления объема конуса:
procedure TForm1.Button1Click(Sender: TObject);
var r,h,v,s: real;
begin
r:=strtofloat(edit1.Text);
h:=strtofloat(edit2.Text);
s:=pi*sqr(r);
v:=s*h/3;
label3.Caption:='площадь основания равна'+floattostrf(s,ffgeneral,7,2);
label4.Caption:='объем конуса равен'+floattostrf(v,ffgeneral,7,2);
end;
На этом этап программирования завершается.
8) перед запуском программы ее всегда необходимо сохранять. Для сохранения проекта необходимо выполнить команду главного меню File – Save All. Появится окно сохранения модуля. Найти папку, созданную для разрабатываемого проекта, открыть. Если не создана, то создать и открыть. В поле Имя файла указать имя модуля. По умолчанию модуль имеет имя Unit1. Оставить без изменения и сохранить. После этого появится диалоговое окно файла проекта. По умолчанию файлу проекта дается имя Project1.
После сохранения проекта, он запускается на выполнение нажатием кнопки Run.
Вывод результатов вычислений на компонент Label имеет недостаток: при изменении исходных данных предыдущий результат счета не выводился, вместо него появлялся новый.
Для того чтобы получить список значений (предыдущие результаты можно видеть) результаты могут выводиться в компонент Memo. Кроме того, в проекте можно предусмотреть закрытие окна приложения с использованием кнопки, ввод начальных значений, с которыми программа начнет работу в момент создания формы.
Основные свойства и методы компонента Memo:
Lines: Tstrings – с помощью этого свойства заполнение компонента можно выполнять в окне редактора.
Строки можно добавлять динамически – с помощью методов Add и Insert:
Метод Add(const S:string) служит для добавления новой строки s в конец списка;
Метод Insert(Index:integer; const s:string) – для вставки строки s на позицию с индексом, определенным параметром Index.
Методы Move(CurIndex,NewIndex:integer) и Exchange(Index1,Index2:integer) служат для перемещения строк внутри коллекции.
Метод IndexOf(const:string) предназначен для определения индекса строки.
План разработки программы с использованием компонента Memo:
1) разместить на форме экземпляры компонентов в соответствии с рисунком 1.1
Рисунок 1.1
2) активизировать кнопку «Объемы фигур» и в заготовку обработчика события поместить код:
r:=strtofloat(edit1.Text);
h:=strtofloat(edit2.Text);
s:=r*r*pi;
v:=s*h/3;
memo1.Lines.Add('объем конуса равен: '+floattostr(v));
memo1.Lines.Add('площадь основания равна: '+floattostr(s));
3) активизировать кнопку «Закрыть» и поместить код:
Close;
4) для того чтобы ввести начальные значения, с которыми программа начнет свою работу, в момент создания формы, используется событие OnCreate для формы. Для создания заготовки этого события, необходимо выполнить двойной щелчок по форме. Поместить следующие строки:
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
memo1.Clear;
end;
5) сохранить новый проект – File – Save All. Создать новую папку, дать название «Фигуры», открыть папку и сохранить в ней код программы и проект.
Проект запустить.