Практические работы "Знакомство с системами объектно-ориентированного и процедурного программирования"

Практическая работа №1

Тема: «Создание первого приложения в Delphi» Задача:

Создать приложение, в котором при щелчке пользователя на кнопке появилась бы какая-нибудь надпись. Знакомство с компонентами TLabel, TButton

Ход работы:

1.     Запустите Delphi, откройте новое приложение File / New и в раскрывшемся каскадном меню выбрать раздел Application.

Задайте имя форме «Мое первое приложение», для этого в Object Inspector  измените параметр Caption

2.     Перенесите на пустую форму, которая открылась вам, кнопку типа TButton со  страницы Standard палитры компонентов. Для этого выделите пиктограмму кнопки (она седьмая слева) и затем щелкните курсором мыши в нужном вам месте формы. На форме появиться кнопка, которой Delphi присвоит имя по умолчанию Button1. Выделите на форме компонент TButton1- кнопку. Перейдите в Object Inspector и измените её свойство Caption (надпись), которое по умолчанию равно Button1(имя, которое по умолчанию присвоила этому компоненту  Delphi) на ПУСК.

     В свойстве Font измените шрифт и размер символов.

3.     Аналогичным образом перенесите на форму с той же страницы Standard палитры компонентов метку TLabel (она на странице четвертая слева). В этой метке в процессе выполнения приложения будет появляться текс при нажатии пользователем кнопки. Delphi присвоит ей имя TLabel1. Аналогично  измените свойства Caption и Font для объекта TLabel1.

4.     Выделите кнопку TButton1 на форме, перейдите в  Object Inspector, откройте в нем страницу событий (Events), найдите событие кнопки OnClick (но первое сверху) и сделайте двойной щелчок в окне справа от имени этого события. Это стандартный способ задания обработчиков любых событий. Но перейти в обработчик событий OnClick кнопки можно и иначе: достаточно сделать двойной щелчок на компоненте TButton1 на форме. В обоих случаях вы окажетесь в окне

Редактора Кода и увидите там текс

 

Заголовок этой процедуры складывается из имени класса вашей формы TForm1, имени компонента TButton1 и имени события без префикса OnClick. Напишите в обработчике оператор задания:

 

Оператор, который вы написали означает следующее: свойству Caption компонента TLabel1вы присвоили (:= - операция присваивания) строку текста «Это мое первое приложение»

5.  

Ваше приложение готово, можете его выполнить. Для этого выполните команду

Ran или нажмите горячую клавишу F9, или воспользуйтесь быстрой кнопкой. 

 

Практическая работа №2 Тема: «Умножение двух чисел»

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

Знакомство с компонентами TEdit, TPanel и функциями FloatToStr и StrToFloat.

Ход работы:

1.     Запустите Delphi, откройте новое приложение File / New и в раскрывшемся каскадном меню выбрать раздел Application.

Задайте имя форме «Умножение чисел», для этого в Object Inspector  измените параметр Caption

2.     Перенесите на пустую форму компоненты TButton1, TLabel1, TLabel2, TLabel3, TEdit1,  TEdit2, TPanel1 со  страницы Standard палитры компонентов.

	Компонент является контейнером для группирования органов управления, но может использоваться и для отображения текста с возможностями объемного оформления. Основное свойство Caption
	Отображение, ввод и редактирование однострочных текстов. Имеется возможность оформления объемного бордюра. Основное свойство Text.

3.     -Измените надписи в метках компонентов TLabel1, TLabel2, TLabel3 на

«Число1», «Число2», «Результат». Для этого перейдите в Object Inspector и изменяйте их свойство Caption (надпись), в свойстве Font измените шрифт и размер символов.

-Замените свойство Caption (надпись) вашей кнопки Button1на

«Расчет»

В свойстве Font измените шрифт и размер символов.

-Очистите  свойство Caption (надпись) у панели TPanel1     

Попробуйте поварьировать такими свойствами панели, как BevelInner  и BevelOuter, которые определяют вид (утопленный - bvLowered или выпуклый - bvRaised). В итоге форма примет вид:

4.     Выделите кнопку TButton1 на форме, перейдите в  Object Inspector, откройте в нем страницу событий (Events), найдите событие кнопки OnClick (но первое сверху) и сделайте двойной щелчок в окне справа от имени этого события. Это стандартный способ задания обработчиков любых событий. Но перейти в обработчик событий OnClick кнопки можно и иначе: достаточно сделать двойной щелчок на компоненте TButton1 на форме. В обоих случаях вы окажетесь в окне

Редактора Кода и увидите там текс

 

Заголовок этой процедуры складывается из имени класса вашей формы TForm1, имени компонента TButton1 и имени события без префикса OnClick. Напишите в обработчике оператор задания:

 

Оператор, который вы написали означает следующее: свойству Caption компонента TPanel1 вы присвоили (:= - операция присваивания) значение выражения, указанного в правой части оператора. Знак «+» означает конкатенацию – сцепление двух строк символов. Текст храниться в свойстве Text компонентов TLabel1 иTLabel2.  Функция FloatToStr преобразует заданный ей параметр типа действительного числа в строку символов.

Функция StrToFloat преобразует символьное изображение числа в его значение типа действительного числа.

5.      

Ваше приложение готово, можете его выполнить. Для этого выполните команду Ran

или нажмите горячую клавишу F9, или воспользуйтесь быстрой кнопкой. 

 

Практическая работа № 3 Тема: «Решение задач линейного программирования» Задача №1

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

Знакомство с функциями IntToStr и StrToInt.

1.     Создайте форму и включите в неё нужные компоненты.

2.     Напишите обработчик событий для кнопок «Рассчитать» и «Очистить»

                                                  «Рассчитать»                                               «Очистить»

                             

var A,B,Res:integer;  «объявляются переменные A,B,Res целого типа» begin  A:=StrToInt(Edit1.Text); «целой переменной A присваивается значение взятое из компонента Edit1.Text в виде текста и преобразованное в число с помощью функции StrToInt»  B:=StrToInt(Edit2.Text); «целой переменной В присваивается значение взятое из компонента Edi2.Text в виде текста и преобразованное в число с помощью функции StrToInt»

begin Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; end; «Компонентам Edit1.Text, Edit2.Text, Edit3.Text присваивается значение пустого текста»

Res:=A+B; «переменной Res присваивается значение суммы целых переменных А и В»

 Edit3.Text:=IntToStr(Res); «В компонент Edit3.Text кладется значение целой переменной Res

преобразованное в текс с помощью функции IntToStr»   end;

StrToInt – преобразует текс в целое число (integer)

IntToStr – преобразует целое число(integer)  в текс

3.  

Ваше приложение готово, можете его выполнить. Для этого выполните команду Ran

или нажмите горячую клавишу F9, или воспользуйтесь быстрой кнопкой. 

 

Задача №2

Создайте приложение, которое при нажатии кнопки вычисляло площадь круга.

1.         Создайте форму и включите в неё нужные компоненты.

2.         Напишите обработчик событий для кнопок «Рассчитать» и «Очистить»

                                       «Рассчитать»                                         «Очистить»

var R,Sq:extended; «объявляются переменные R,Sq вещественного типа» begin R:=StrToFloat(Edit1.Text); «вещественной переменной R присваивается значение взятое из компонента Edit1.Text в виде текста и преобразованное в число с помощью функции StrToFloat» Sq:=Pi*Sqr(R); «вещественной переменной Sq присваивается значение произведения П на R » Edit2.Text:= FloatToStr(Sq); «В компонент Edit2.Text кладется значение вещественной  переменной Sq преобразованное в текс с помощью функции FloatToStr»

begin Edit1.Text:=''; Edit2.Text:=''; end; «Компонентам Edit1.Text, Edit2.Text присваивается значение пустого текста»

3.         Ваше приложение готово, запустите и проверьте его

 

Задача №3

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

1.   Создайте форму и включите в неё нужные компоненты.

2.   Напишите обработчик событий для кнопок «Рассчитать» и «Очистить». Для «Очистить» аналогично задаче №1 и №2.

 

Var A,B,C:integer; «объявляются переменные A,B,С целого типа» begin

A:=StrToInt(Edit1.Text); «целой переменной A присваивается значение взятое из компонента Edit1.Text в виде текста и преобразованное в число с помощью функции

StrToInt»

B:=StrToInt(Edit2.Text); «целой переменной В присваивается значение взятое из компонента Edit2.Text в виде текста и преобразованное в число с помощью функции

StrToInt»

C:=A; A:=B; B:=C; «меняем местами значения переменных»

Edit1.Text:=IntToStr(A); «В компонент Edit1.Text кладется значение целой переменной А преобразованное в текс с помощью функции IntToStr» Edit2.Text:=IntToStr(B); «В компонент Edit2.Text кладется значение целой переменной В преобразованное в текс с помощью функции IntToStr» end;

4. Ваше приложение готово, запустите и проверьте его

Задача №4

Создайте приложение, которое при нажатии кнопки возводит Х в степень У.

1.   Создайте форму и включите в неё нужные компоненты.

2.   Напишите обработчик событий для кнопок «Возвести» и «Очистить». Для «Очистить» аналогично задаче №1 и №2.

 

Var X,Y,R:integer; «объявляются переменные X,Y,R вещественного  типа» begin

X:=StrToFloat(Edit1.Text); « переменной X присваивается значение взятое из компонента

Edit1.Text в виде текста и преобразованное в число с помощью функции StrToFloat»

Y:=StrToFloat(Edit2.Text); « переменной В присваивается значение взятое из компонента Edit2.Text в виде текста и преобразованное в число с помощью функции StrToFloat»

R:= Exp(Y*Ln(X)); «В языке Pascal нет стандартной операции или функции для вычисления _Х ^У .

Для решения такой задачи используют встроенную функцию X^Y E^LnXY E^YLnX Эта формула применяется для нецелых показателей степени У,а для целых намного эффективней умножать »

Edit3.Text:=FloatToStr(R); «В компонент Edit3.Text кладется значение  переменной R преобразованное в текс с помощью функции FloatToStr»

5. Ваше приложение готово, запустите и проверьте его