«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

{LTS}

 

–абота с классами в €зыке визуального программировани€ Delphi 7

–азработать программу, котора€ будет содержать класс из метода дл€ возведени€ числа (X) в квадрат (открыть)
 
ѕор€док выполнени€ задани€:

1. «апустить Delphi (ѕуск Ц ¬се программы Ц Borland Delphi 7 Ц Delphi 7).

2. ”казать заголовок формы (свойству Caption установить значение Ђ–абота с классами и объектамиї) и разместить на ней компоненты дл€ ввода исходного числа (компонент Edit1), который будет возводитьс€ в квадрат и вывода результата (компонент Edit2). —войство Text компонентов Edit1 и Edit2 оставить пустым. ƒл€ компонента Edtit2 запретить изменени€ его содержимого (свойству ReadOnly установить значение True). ѕеред каждым компонентом расположить метку: Label1 (Caption=ЂX=ї) и Label2 (Caption=Ђќтветї). —войству Position формы Form1 установить значение, при котором форма открываетс€ в центральной части экрана при запуске приложени€. »зменить размеры формы.

3. Ќа форме расположить кнопку Button1. —войству Caption кнопки установить значение Ђ¬озвести в квадратї.

4. ѕерейти с формы Form1 на модуль формы Unit1 (нажать клавишу F12). ќписать в модуле формы класс дл€ возведени€ числа в квадрат.  ласс будет состо€ть из одной функции:

Type Tkvadrat=class

function kvad_chisla(y:integer) of integer;

end;

ѕосле описани€ класса необходимо описать переменную данного типа в разделе описани€ переменных:

Var kvadrat: Tkvadrat;

¬ разделе implementation описать функцию класса (в теле функции указать те действи€ которые необходимо выполнить, чтобы функци€ вернула в вызывающую ее программу результат возведени€ числа в квадрат):

function Tkvadrat.kvad_chisla(y:integer) of integer;

begin

Е

End;

5. ƒл€ компонента Button1 создать событие дл€ возведени€ введенного числа в квадрат. ƒл€ этого необходимо перейти на форму Form1 и дважды щелкнуть левой клавиши мыши. ¬ результате откроетс€ модуль формы Unit1, где уже будет прописана процедура дл€ обработки событи€ нажати€ на кнопку Ц procedure TForm1.Button1Click(Sender: TObject). ¬ этой процедуре в разделе описани€ переменных перечислить используемые переменные и указать их тип (переменные X и Z Ц целые). ¬ теле процедуры (между операторами Begin и End) написать тело программы:

Ц переменной X присвоить значени€, которое вводитс€ в компонент Edit1 (свойство Text), соответственно, сделав перевод из строкового типа данных в числовой, поскольку компонент Edit возвращает строковый тип данных (дл€ перевода использовать функцию StrToInt);

Ц создать объект класса (применить конструктор Creat);

Ц вызвать функцию класса дл€ возведени€ числа X в квадрат;

Ц вывести значение переменный Z в компонент Edit2, при этом необходимо преобразовать целый тип данных в строковый.

6. ѕроверить программу на наличие ошибок и в случае их обнаружени€ устранить.

7. «апустить программу на выполнение (выполнить команду Run Ц Run или нажать клавишу F9 или на панели инструментов нажать на кнопку Ђ«еленый треугольникї).

8. —охранить программу в отдельной папке. ƒл€ этого необходимо сохранить весь проект с помощью команды File Ц Save All.

 

”знать как сэкономить в кризис моно на сайте ekonom-it.ru

»нструментарий технологии программировани€ языки программировани€ и их классификаци€ »стори€ создани€ объектно-ориентированного программировани€ ѕрограммы на Delphi ”правл€ющие конструкции среды программировани€ Delphi 7 ќбработка исключений в Delphi 7 –абота с одномерными и двумерными массивами –абота с файлами –абота с базами данных в Delphi ’арактеристика программного продукта 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом