Презентация 3 прогр ч 2

программирование

одну задачу, а класс задач.

к решению более простых задач.

по возрастанию.

Writeln (‘сумма равна ‘, S); этот фрагмент реализует алгоритм итерации.

реализации.

не одну задачу, а класс задач.
2. Метод частных целей позволяет

Ответы
__

+

__

__

+
__
__

+
+
+

к прикладным задачам, имеющим оригинальные объекты. Дело в том, что

они являются потомками базового класса TObject.
Данный класс является абстрактным

для удаления объекта; Free - метод, вызываемый для уничтожения объекта, при вызове данного

возможности среды программирования.

Прямыми потомками класса TObject являются классы TPersistent,

из файла. Он добавляет к методам класса TObject метод Assign.

TComponent является базовым классом для всех компонентов VCL Delphi, расположенных

делятся на оконные и графические.
Все оконные элементы являются потомками

свойство компонента — Items.

– Lines.

OnClick, возникающее при щелчке на кнопке.

содержащую строки

готовые классы, но и создавать на их базе новые.

форму для ввода и вывода данных.
На ней необходимо размещать

которую входили бы прямоугольник (форма), прямоугольник с текстом, прямоугольник с

управдения ими.
Но благодаря наличию в среде программирования уже созданных классов

запускать ее на выполнение с помощью кнопки
и выводить на

т.к. будет вводиться текст, а для вычислений нужны константы. Полученный

Variants, Classes, Graphics, Controls, Forms, Dialogs;
Type
TForm1=Class (TForm)
Private
{Private

чисел),

Graphics, Controls, Forms, Dialogs, StdCtrls,
ExtCtrls;

Type
TForm1=Class(TForm)

Graphics, Controls, Forms, Dialogs, StdCtrls,
ExtCtrls;
Type
TForm1=Class(TForm)

Graphics, Controls, Forms, Dialogs, StdCtrls,
ExtCtrls;
Type
TForm1=Class(TForm)

– «нажатие кнопки» добавим процедуру Nagatie, которая будет выполнять преобразование

Graphics, Controls, Forms, Dialogs, StdCtrls,
ExtCtrls;
Type
TForm1=Class(TForm)

{Private declaration}
Public
{Public declaration}

среде Delphi используется еще один современный подход к программированию –

изображений с помощью графических пакетов, например, Visio.

компонент, например, кнопку, пользователь размещает ее в нужном месте формы,

действиями разработчика создает соответствующий код будущей программы.
Этот код, выделяемый

Объекты библиотеки визуальных компонентов (VCL) имеют набор откликов на события,

обработчиков событий.
События вызываются в среде Delphi не только сообщениями

разработки ПО

заключается в следующем:

для тех классов, компоненты которых отсутствуют в среде программирования (например,

в библиотеке разработчика, то, естественно, можно использовать готовые модули или

И.И.Попова «Основы алгоритмизации и программирования»

Программа «Калькулятор», реализует выполнение арифметических действий

общем случае следующих файлов:
.dpr основной модуль проекта –главный файл;
.dfm файл

программы «Калькулятор».
На этой форме разместим:
Окно отражения ввода аргументов и вывода

для создания приложения.
При этом на экране появляется
главное меню,

формы TForm1 (Ception) на «Калькулятор АиТ». При этом в окне

и вывода результата, используя компонент класса TMemo (Палитра компонентов, Стандартные).
При

окне инспектора объектов.
Имя (Name) – ArgMemo (изменяется и в программе)

taRightJusttify – введенное в окне значение будет выравниваться по правой

будем представлять классом TSpeedButton, присвоив им в соотвествии с заданием

новый класс TOperation
TOperation = class
Arg1:real;
Arg2:real;
Oper: char;
LastOper: boolean;

Procedure InitOperation;
Procedure SetArg1 (ArgString:

для реализации арифметических операций.
Добавим в программу методы обработки цифровых

LastOper:=false;
End;

string);
Var i:integer;
Begin
Val (ArgString, Arg2, i)
End;

Oper of
‘+’: R:= Arg1 + Arg2;
‘-’: R:= Arg1 - Arg2;
‘*’:

as TSpeedButton).Caption;
Oper_Result.LastOper := false;
End;

ArgMemo.Text=‘’ then ArgMemo.Text:= ArgMemo.Text + ‘0.’
Else
if pos(‘.’, ArgMemo.Text)

ArgMemo.Text=‘’ then ArgMemo.Text:= ArgMemo.Text + ‘0.’
Else
if pos(‘.’, ArgMemo.Text)

Oper #0 Then s:= OperationResult
else s:= ArgMemo.Text;
SetArg1 (s); ArgMemo.Text:=s;
S:=(

If Oper #0 Then
Begin
SetArg2 (ArgMemo.Text);
ArgMemo.Text:= OperationResult;
SetArg1 (ArgMemo.Text);
End;
InitOperation;
LastOper:=true;

Action: TcloseAction);
Begin
Oper_Result.Free;
End;

методы FormCreate и FormClose

работу в пошаговом режиме. После этого разработать программу индивидуального задания