Основы объектно-ориентированного программирования: Методические указания к выполнению лабораторной работы по дисциплине «Информатика», страница 9

описание класса "Абстрактная заготовка"!

 
procedure TForm1.BtnCalkClick(Sender: TObject);

var MyZagot:TZagot;

begin

создание экземпляра объекта нужного типа

 
 if RBtn1.Checked

then MyZagot:=TCil.Create

else MyZagot:=TPar.Create;

with MyZagot do begin

   SOsnov:=StrToFloat(Edit1.Text);

преобразование исходных данных для расчета

 
   SHeight:=StrToFloat(Edit2.Text);

   Structure:=Cu;

формальное обращение к методам объекта, но вызваны будут правильные методы !

 
   inc(Structure, Cbox.ItemIndex);

   Deform;

   Draw;

вывод результата

 
   LabelOsn.Caption:=FloatToStrF(DOsnov,ffFixed,10,2)+' см';

   LabelHeig.Caption:=FloatToStrF(DHeight,ffFixed,10,2)+' см';

end;

end;

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

procedure TForm1.RBtn1Click(Sender: TObject);

var zn:string;

begin

 if RBtn1.checked then zn:='диаметр' else zn:='сторона';

 label3.Caption:=zn+' (см)';

 label4.Caption:=zn+' =';

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

 combobox1.ItemIndex:=0;

BtnCalk.Click;

end;

3.5.  Выполнение программы

Результат  выполнения  программы  приведен  на рисунке 4. В качестве самостоятельной работы предлагается создать объект «Призма», внешний вид которого приведен на рисунке 1. Тем самым вы сможете легко расширить возможности данной программы, выполнив незначительные изменения во внешнем виде окна программы и добавив немного программного кода.

Рисунок 4 – Вид окна работающей программы

Литература

1.  В. В. Белов, В. И. Чистякова   Программирование в Delphi. Процедурное, объектно-ориентированное, визуальное

Серия: Специальность. Для высших учебных заведений, изд-во: Горячая Линия - Телеком, 2009 г., 240 с., ISBN   978-5-9912-0080-6

2.  И. Бабушкина, С. Окулов    Практикум по объектно-ориентированному программированию

Изд-во: Бином. Лаборатория знаний, 2009 г.,  368 с.,

ISBN   978-5-9963-0219-2

3.  Дж. Кьоу, М. Джеанини   Объектно-ориентированное программирование: OOP Demystifie

Серия: Учебный курс, изд-во: Питер, 2005 г., 240 с.

ISBN   5-469-00462-7, 0072253630

4.  Хорев П.Б.  Технологии объектно-ориентированного программирования

Твердый переплет, 2008 г.. 448 с., ISBN   978-5-7695-5262-5

5.  В. В. Лаптев    C++. Объектно-ориентированное программирование

Серия: Учебное пособие, изд-во: Питер, 2008 г., 464 с.,

ISBN   978-5-91180-200-4

6.  Буч  Г. Объектно-ориентированное проектирование с примерами применения. М.: Конкорд, 1992г.

7.  Солтер, Николас А.., Клеппер, Скотт Дж. С++ Для профессионалов. М.: Диалектика, 2006 г.

8.  Леоненков А.В. Самоучитель UML. СПб: BHV-С. - Петербург

9.  Марков Е. П. Программирование Delphi 7. BHV-С. - Петербург

Учебное издание

Степанов Александр Васильевич

Степанов Юрий Александрович

Дмитриев Юрий Владимирович

Основы объектно–ориентированного программирования

Методические указания к выполнению лабораторной работы по дисциплине «Информатика»

для студентов всех специальностей факультета информационных технологий

Редактор Т.И. Головко

Подписано в печать

Формат бумаги 60x84 1/16. Бумага писчая.

Ризография.

Усл. печ. л. ____ Уч. изд. л. ____ . Тираж 200 экз.

Новокузнецкий филиал-институт

государственного образовательного учреждения

высшего профессионального образования

"Кемеровский государственный университет"

(3843)654041, г.Новокузнецк, ул. Кутузова, 56, тел. 71-46-96.

Редакционно–издательский отдел

Цена договорная