Программа-калькулятор

СОДЕРЖАНИЕ Введение

Задание

Delphi язык и среда программирования Выгоды от проектирования АРМ в среде Windows с помощью Delphi

Аннотация

Блок-схема программы

Руководство пользователя

Заключение

Приложение 1. Листинг программы

ВВЕДЕНИЕ

Техническая эволюция персональных компьютеров и постоянно растущие требования пользователей привели к тому, что такие ОС как MS-DOS, OS/2 и подобные были вытеснены с рынка информационных технологий значительно более мощными системами с более удобным и дружелюбным интерфейсом, например Windows, программирование для которых существенно сложнее, чем программирование для MS-DOS. Разработчики систем программирования, и прежде всего такие корпорации, как Microsoft и Borland, не замедлили выпустить соответствующие средства: уже в 1991 году, т. е. сразу после появления Windows 3.1, Borland выпускает Turbo Pascal for Windows, а в 1992 — усовершенствованную версию этой системы программирования — Borland Pascal with Objects 7.0. Эти первые специализированные инструменты требовали основательного знания Windows и были сложны в освоении. Но уже в 1993 году Microsoft выпустила первую визуальную среду программирования Visual Basic, и программирование для Windows стало даже проще, чем программирование для MS-DOS. В ответ на это Borland в 1995 году выпустила первую версию Delphi и с интервалом в 1 год — версии 2, 3 и 4.

Не секрет, что одним из лучших языком для изучения и освоения программирования для Windows является Паскаль, а одной из лучших в мире системой программирования для MS-DOS — Turbo Pascal. Delphi продолжила серию Паскаль-ориентированных средств программирования и является наиболее удобным инструментом для программирования под Windows.

Программирование в Delphi строится на тесном взаимодействии двух процессов: процесса конструирования визуального проявления программы (т.е. ее Windows-окна) и процесса написания кода, придающего элементам этого окна и программе в целом необходимую функциональность. Для написания кода используется окно кода, для конструирования программы — остальные окна Delphi и прежде всего — окно формы.

Между содержимым окон формы и кода существует неразрывная связь, которая строго отслеживается Delphi. Это означает, что размещение на форме компонента приводит к автоматическому изменению кода программы и наоборот — удаление тех или иных автоматически вставленных фрагментов кода может привести к удалению соответствующих компонентов. Помня об этом, программисты вначале конструируют форму, размещая на ней очередной компонент, а уже только после этого переходят, если это необходимо, к написанию фрагмента кода, обеспечивающего требуемое поведение компонента в работающей программе.

Богатство визуальных возможностей Windows связано с так называемым дескриптором контекста графического устройства DC и тремя входящими в него инструментами — шрифтом, пером и кистью. В Delphi созданы специализированные классы-надстройки, существенно упрощающие использование графических инструментов Windows: для контекста — класс TCanvas, для шрифта — TFont, для пера — ТРеn и для кисти — TBrush. Связанные с этими классами объекты автоматически создаются для всех видимых элементов и становятся доступны программе через свойства Canvas, Font, Pen и Brush.

В настоящее время все большее развитие получают программы с использованием анимации. И, как сказано выше, Delphi предоставляет богатые возможности для реализации графики и анимации в программах для Windows.

ЗАДАНИЕ Целью данной работы является написание программы, состоящей из двух модулей и реализующей простейший калькулятор.

Нужно разработать алгоритм решения задачи (представить его в виде блок-схемы) и реализовать в среде программирования Delphi.

Программа была разработана на компьютере следующей конфигурации:

— процессор AMD Athlon64 3500;

— 1500 Мб ОЗУ;

— видеокарта с 256 Мб видеопамяти;

— Windows XP;

ОСНОВНАЯ ЧАСТЬ

Delphi — язык и среда программирования, относящаяся к классу RAD- (Rapid Application Development _ «Средство быстрой разработки приложений») средств CASE — технологии. Delphi сделала разработку мощных приложений Windows быстрым процессом, доставляющим вам удовольствие. Приложения Windows, для создания которых требовалось большое количество человеческих усилий например в С++, теперь могут быть написаны одним человеком, использующим Delphi.

Интерфейс Windows обеспечивает полное перенесение CASE-технологий в интегрированную систему поддержки работ по созданию прикладной системы на всех фазах жизненного цикла работы и проектирования системы.

Delphi обладает широким набором возможностей, начиная от проектировщика форм и кончая поддержкой всех форматов популярных баз данных. Среда устраняет необходимость программировать такие компоненты Windows общего назначения, как метки, пиктограммы и даже диалоговые панели. Работая в Windows, вы неоднократно видели одинаковые «объекты» во многих разнообразных приложениях. Диалоговые панели (например Choose File и Save File) являются примерами многократно используемых компонентов, встроенных непосредственно в Delphi, который позволяет приспособить эти компоненты к имеющийся задаче, чтобы они работали именно так, как требуется создаваемому приложению. Также здесь имеются предварительно определенные визуальные и не визуальные объекты, включая кнопки, объекты с данными, меню и уже построенные диалоговые панели. С помощью этих объектов можно, например, обеспечить ввод данных просто несколькими нажатиями кнопок мыши, не прибегая к программированию. Это наглядная реализация применений CASE-технологий в современном программировании приложений. Та часть, которая непосредственно связана с программированием интерфейса пользователя системой, получила название визуальное программирование.

ВЫГОДЫ ОТ ПРОЕКТИРОВАНИЯ АРМ В СРЕДЕ WINDOWS С ПОМОЩЬЮ DELPHI

Устраняется необходимость в повторном вводе данных;

Обеспечивается согласованность проекта и его реализации;

Увеличивается производительность разработки и переносимость программ.

Визуальное программирование как бы добавляет новое измерение при создании приложений, давая возможность изображать эти объекты на экране монитора до выполнения самой программы. Без визуального программирования процесс отображения требует написания фрагмента кода, создающего и настраивающего объект «по месту». Увидеть закодированные объекты было возможно только в ходе исполнения программы. При таком подходе достижение того, чтобы объекты выглядели и вели себя заданным образом, становится утомительным процессом, который требует неоднократных исправлений программного кода с последующей прогонкой программы и наблюдения за тем, что в итоге получилось.

Благодаря средствам визуальной разработки можно работать с объектами, держа их перед глазами и получая результаты практически сразу. Способность видеть объекты такими, какими они появляются в ходе исполнения программы, снимает необходимость проведения множества операций вручную, что характерно для работы в среде не обладающей визуальными средствами — вне зависимости от того, является она объектно-ориентированной или нет. После того, как объект помещен в форму среды визуального программирования, все его атрибуты сразу отображаются в виде кода, который соответствует объекту как единице, исполняемой в ходе работы программы.

Размещение объектов в Delphi связано с более тесными отношениями между объектами и реальным программным кодом. Объекты помещаются в вашу форму, при этом код, соответствующий объектам, автоматически записывается в исходный файл. Этот код компилируется, обеспечивая существенно более высокую производительность, чем визуальная среда, которая интерпретирует информацию лишь в ходе исполнения программы.

Три основные части разработки интерфейса следующие: проектирование панели, проектирование диалога и представление окон. Для Общего Пользовательского Доступа также должны учитываться условия применения Архитектуры Прикладных Систем. Существуют также другие условия: являются ли входные устройства на терминалах клавишными или указательными и будут ли являться приложения символьными или графическими.

Windows предоставляет пользователям оболочку графического интерфейса (GUI), которая обеспечивает стандартную среду пользователя и программиста. (GUI) предлагает более сложное и дружелюбное окружение пользователя, чем командно-управляемый интерфейс MS-DOS. Работа в Windows основана на интуитивно понятных принципах. Вам легко переключиться с задачи на задачу и осуществлять обмен информацией между ними. Однако разработчики приложений традиционно сталкиваются с трудностями программирования, поскольку организация среды Windows является чрезвычайно сложной.

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

Если экран содержит одно или два окна, пользователь может и не видеть всю панель целиком в каждом окне. Это зависит от размеров окна. Пользователь может подвинуть или изменить размер каждого окна, чтобы вместить необходимую ему информацию. Также, пользователи могут прокручивать содержание окон, перемещая информацию на панели внутри области экрана, ограниченной окном.

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

Первичное окноэто окно, с которого пользователь и компьютер начинают свой диалог. Например, в текстовом редакторе, первичное окно содержит текст, подлежащий редактированию. В редакторе электронных таблиц, первичное окно содержит таблицу. В системах без возможности создания окон, следует считать весь экран первичным окном. Каждое первичное окно может содержать столько панелей, сколько необходимо, одну за другой, чтобы вести диалог. Пользователи могут переключать первичное окно на другое первичное или вторичное окно.

Вторичные окна вызываются из первичных окон. Это такие окна, в которых пользователи и компьютер ведут диалог параллельно диалогу в первичном окне. Например, в текстовом редакторе, вторичное окно может содержать панель, с помощью которой пользователь изменяет формат документа, а в первичном окне содержится редактируемая информация. Вторичные окна также используются чтобы предоставлять вспомогательную информацию, которая относится к диалогу в первичных окнах. Пользователи могут переключаться с первичных окон на вторичные окна и наоборот. Первичные и вторичные окна имеют заглавные полосы в верхней части окна. Заголовок соотносится с окном через приложения.

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

Общий Пользовательский Доступ поддерживает согласованное использование клавиатуры и мышки, или любого другого устройства, действующего как мышка. Будем далее считать, что мышка является основным указывающим устройством.

Пользователям следует быть готовыми переключаться между клавиатурой и мышкой практически на любой стадии диалога без необходимости изменения режимов приложения. Одно устройство может быть более эффективно, чем другое в известной ситуации, следовательно, пользовательский интерфейс позволяет дать пользователям возможность легко переключаться с одного устройства на другое.

Все персональные компьютерные приложения, должны учитывать использование мышки. Однако приложения на непрограммируемых терминалах не могут поддерживать мышку. На этих терминалах поддержка мышки не обязательна.

Примем за стандарт де-факто Общий Пользовательский Доступ, разработанный с учетом одного типа клавиатуры, а именно, расширенной клавиатуры фирмы IBM.

Необходимо назначить функциям приложения клавиши согласно правилам и спецификациям стандарта IBM. Назначение клавиш относятся к клавиатуре IBM Enhanced Keyboard. Для клавиатур других типов используется соответствующая техническая документация, например, изменяемая клавиатура IBM Modifiable Keyboard.

Правила назначения клавиш:

В приложениях могут быть использованы любые клавиши, включая как клавиши, нажимаемые без Shift, а также сочетания с Shift+, Ctrl+ и Alt+, если программируемая рабочая станция или непрограммируемый терминал допускают доступ приложения к этим клавишам. Следует избегать использования каких-либо клавиш, назначенных операционной системой, под управлением которой будет выполняться приложение.

Если приложение будет переведено на другие языки, не следует назначать сочетаниям алфавитно-цифровых клавиш с Alt. Однако, если это возможно, пользователи могут назначать этим клавишам различные функции.

Для изменения исходного значения клавиш используйте их в сочетании с клавишами Alt, Ctrl и Shift. Клавиши Alt, Ctrl и Shift самостоятельно не используются.

Не следует переназначать или дублировать назначение клавиш.

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

Если некоторая функция назначена функциональной клавише одинаково в нескольких приложениях, то следует назначать этой клавише именно данную функцию во всех приложениях.

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

АННОТАЦИЯ Программа «Калькулятор» была разработана как один из вариантов программы для выполнения стандартных арифметических операций и вычислений простейших функций (синус, косинус, тангенс, котангенс, степень и квадратный корень) от заданных чисел, а так же для того чтобы более углубленно освоить возможности по созданию Windows-приложений, среды программирования Delphi 7. Программа представляет собой окно (рис.1) с расположенными на нем кнопками для ввода данных (цифры), кнопки с функциями (синус, косинус, тангенс, котангенс, степень и квадратный корень) и дисплей для отображения результатов.

Рис 1.

При нажатии на кнопку с цифрой программа начинает функционировать и на дисплее отображаются все ваши действия (рис.2).

У программы так же есть мню с двумя пунктами: файл и о программе (знак ?) это так же видно на рисунке 2. В меню файл находится закладка «закрыть», а в справке находятся краткие сведения о программе и разработчике.

Список использованных переменных В программе Calculator были использованы стандартные элементы Delphi 7. Ее структуру простую структуру отображает рисунок 3. В программе использованы элементы закладок Standard (TButton, TEdit, TMainMenu, TLabel) (в главной форме-Form1, которая является самим калькулятором и в меню о программе) рис. 3 и Additional (TImage) (только в меню о программе-Form2) рис. 4.

Рис.3Рис.4

Первые 11 элементов TButton (названия от _0 до _9) осуществляют функцию ввода чисел. А 12й элемент с именем `Dot', служит для отделения дробной части от челой. При нажатии на одну из этих кнопок число отображается на дисплее и заносится в переменную `back' с типом string которая хранит в себе данные о введенных числах. Остальные элементы TButton являются функциональными клавишами, 1 кнопка вывода результата (`=') и 1 кнопка очистки дисплея. При нажатии на функциональную клавишу, знак функции так же отображается на дисплее и заносится в переменную `s' типа string. После этого у нас есть все необходимые данные для вычисления результата действий (события OnClick для кнопки со значением «=»). Результат вычисления заносится в переменную rez типа real и выводится на дисплей.

Элементs TMainmenu используются для реализации меню программы с пунктам: Файл,?(на Form1), Закрыть (на Form2)

Выход О программе Элементы TImage используется в программе на Form2 для отображения фотографий лиц участников проекта.

Элемент TLabel применен для отображения текста информации о программе в одноименном меню.

БЛОК-СХЕМА ПРОГРАММЫ CALCULATOR

РУКОВОДСТВО ПОЛЬЗОВАТЕЛЯ программа калькулятор delphi

При запуске программы на экран выводится окно программы, содержащее серое поле и размещенные на нем кнопки 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 00, ., /, *, -, +, =, синус, косинус, тангенс, котангенс, степень, кв. корень, а также «дисплей» на котором отображаются арифметические операции и результаты вычислений.

При нажатии на кнопку — цифру программа начнет свою работу, т. е. в окне программы на «дисплее» результатов появится набранная цифра. На дисплее будут отображаться все действия пользователя. Для вычисления какой либо функции необходимо сначала ввести число (или воспользоваться результатом предыдущих вычислений), а после этого нажать на кнопку необходимой функции. При нажатии на закладку меню «О программе» появится окно на котором изложена краткая информация о программе и разработчике. Программа закроется если в меню «Файл» нажать закладку Выход или стандартным способом — нажать на крестик в правом верхнем углу окна.

Для вычисления результата нужно нажать кнопку «=», а для сброса результата нужно второй раз нажать «CE».

ЗАКЛЮЧЕНИЕ

Данная программа является типичным примером реализации простейших программ созданных для Windows с помощью Delphi.

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

Недостаток программы в том, что при наборе очень сложных функций одновременно программа выдает ошибку набора. Поэтому чтобы избежать этой ошибки необходимо соблюдать последовательность и правильность набора команд. К примеру: такое простое правило вычисления как, любое число на 0 делить нельзя.

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

Сван Т. Основы программирования в Delphi для Windows 95: Пер. с англ. — К: «Диалектика», 1996. -480 с.

Федоров А. Г. Создание Windows-приложений в среде Delphi: — М.: ТОО фирма «КомпьютерПресс», 1995. -287 с., ил.

Учебный курс лекций — практик.

ЛИСТИНГ ПРОГРАММЫ

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, StdCtrls, Menus;

type

TForm1 = class (TForm)

_1: TButton;

_2: TButton;

_3: TButton;

_4: TButton;

_5: TButton;

_6: TButton;

_7: TButton;

_8: TButton;

_9: TButton;

_0: TButton;

Dot: TButton;

_00: TButton;

Pole: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button10: TButton;

Button11: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

procedure _1Click (Sender: TObject);

procedure _2Click (Sender: TObject);

procedure _3Click (Sender: TObject);

procedure _4Click (Sender: TObject);

procedure _5Click (Sender: TObject);

procedure _6Click (Sender: TObject);

procedure _7Click (Sender: TObject);

procedure _8Click (Sender: TObject);

procedure _9Click (Sender: TObject);

procedure DotClick (Sender: TObject);

procedure _00Click (Sender: TObject);

procedure _0Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button7Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

procedure PoleChange (Sender: TObject);

procedure Button8Click (Sender: TObject);

procedure Button9Click (Sender: TObject);

procedure Button10Click (Sender: TObject);

procedure Button11Click (Sender: TObject);

procedure FormKeyPress (Sender: TObject; var Key: Char);

procedure N2Click (Sender: TObject);

procedure N4Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

uses

Math, Unit2

var

rez: real;

procedure TForm1._1Click (Sender: TObject);

begin

Pole.Text:= Pole. Text+'1';

end;

procedure TForm1._2Click (Sender: TObject);

begin

Pole.Text:= Pole. Text+'2';

end;

procedure TForm1._3Click (Sender: TObject);

begin

Pole.Text:= Pole. Text+'3';

end;

procedure TForm1._4Click (Sender: TObject);

begin

Pole.Text:= Pole. Text+'4';

end;

procedure TForm1._5Click (Sender: TObject);

begin

Pole.Text:= Pole. Text+'5';

end;

procedure TForm1._6Click (Sender: TObject);

begin

Pole.Text:= Pole. Text+'6';

end;

procedure TForm1._7Click (Sender: TObject);

begin

Pole.Text:= Pole. Text+'7';

end;

procedure TForm1._8Click (Sender: TObject);

begin

Pole.Text:= Pole. Text+'8';

end;

procedure TForm1._9Click (Sender: TObject);

begin

Pole.Text:= Pole. Text+'9';

end;

procedure TForm1. DotClick (Sender: TObject);

begin

Pole.Text:= Pole. Text+',';

end;

procedure TForm1._00Click (Sender: TObject);

begin

Pole.Text:= Pole. Text+'00';

end;

procedure TForm1._0Click (Sender: TObject);

begin

Pole.Text:= Pole. Text+'0';

end;

procedure TForm1. Button1Click (Sender: TObject);

begin

Pole.Text:= Pole. Text+'+';

end;

procedure TForm1. Button2Click (Sender: TObject);

begin

Pole.Text:= Pole. Text+'-';

end;

procedure TForm1. Button3Click (Sender: TObject);

begin

Pole.Text:= Pole. Text+'*';

end;

procedure TForm1. Button4Click (Sender: TObject);

begin

Pole.Text:= Pole. Text+'/';

end;

procedure TForm1. Button5Click (Sender: TObject);

begin

Pole.Text:= Pole. Text+'^';

end;

procedure TForm1. Button7Click (Sender: TObject);

var

s: string;

i: word;

First: boolean;

begin

s:=Pole.Text;

rez:=0;

while (s[1]='+')or (s[1]='*')or (s[1]='/')or (s[1]='^') do

delete (s, 1,1);

First:=true;

for i:=1 to length (s) do

if s[i]=' ' then delete (s, i,1)

else if s[i]='.' then

begin

delete (s, i,1);

insert (',', s, i);

end;

for i:=1 to length (s) do

if (s[i]='+')or (s[i]='-')or (s[i]='*')or (s[i]='/')or (s[i]='^')then

if (First=false) then delete (s, i, length (s)-i+1)

else First:=false;

Pole.Text:='';

i:=1;

while (s[i]<>'+')and (s[i]<>'-')and (s[i]<>'*')and (s[i]<>'/')and (s[i]<>'^') do

inc (i);

if i

begin

if s[i]='+' then rez:= StrToFloat (copy (s, 1, i-1))+StrToFloat (copy (s, i+1,length (s)-i+1));

if s[i]='-' then rez:= StrToFloat (copy (s, 1, i-1))-StrToFloat (copy (s, i+1,length (s)-i+1));

if s[i]='*' then rez:= StrToFloat (copy (s, 1, i-1))*StrToFloat (copy (s, i+1,length (s)-i+1));

if s[i]='/' then rez:= StrToFloat (copy (s, 1, i-1))/StrToFloat (copy (s, i+1,length (s)-i+1));

if s[i]='^' then rez:= power (StrToFloat (copy (s, 1, i-1)), StrToFloat (copy (s, i+1,length (s)-i+1)));

Pole.Text:=FloatToStr (rez);

end;

end;

procedure TForm1. Button6Click (Sender: TObject);

begin

Pole.Text:= FloatToStr (sqrt (StrToFloat (Pole.Text)));

end;

procedure TForm1. PoleChange (Sender: TObject);

begin

if Pole. Text='' then

begin

Button7.Enabled:=false;

Button6.Enabled:=false;

Button8.Enabled:=false;

Button9.Enabled:=false;

Button10.Enabled:=false;

Button11.Enabled:=false;

end else

begin

Button7.Enabled:=true;

Button6.Enabled:=true;

Button8.Enabled:=true;

Button9.Enabled:=true;

Button10.Enabled:=true;

Button11.Enabled:=true;

end;

end;

procedure TForm1. Button8Click (Sender: TObject);

begin

Pole.Text:= FloatToStr (sin (StrToFloat (Pole.Text)));

end;

procedure TForm1. Button9Click (Sender: TObject);

begin

Pole.Text:= FloatToStr (cos (StrToFloat (Pole.Text)));

end;

procedure TForm1. Button10Click (Sender: TObject);

begin

Pole.Text:= FloatToStr (tan (StrToFloat (Pole.Text)));

end;

procedure TForm1. Button11Click (Sender: TObject);

begin

Pole.Text:= FloatToStr (cotan (StrToFloat (Pole.Text)));

end;

procedure TForm1. FormKeyPress (Sender: TObject; var Key: Char);

var

back: string;

begin

if Button7. Enabled then Button7. SetFocus;

if key='1' then pole. Text:= pole. Text+'1';

if key='2' then pole. Text:= pole. Text+'2';

if key='3' then pole. Text:= pole. Text+'3';

if key='4' then pole. Text:= pole. Text+'4';

if key='5' then pole. Text:= pole. Text+'5';

if key='6' then pole. Text:= pole. Text+'6';

if key='7' then pole. Text:= pole. Text+'7';

if key='8' then pole. Text:= pole. Text+'8';

if key='9' then pole. Text:= pole. Text+'9';

if key='0' then pole. Text:= pole. Text+'0';

if key='+' then pole. Text:= pole. Text+'+';

if key='-' then pole. Text:= pole. Text+'-';

if key='*' then pole. Text:= pole. Text+'*';

if key='/' then pole. Text:= pole. Text+'/';

back:=Pole.Text;

if key=#8 then delete (back, length (back), 1);

pole.Text:=back;

end;

procedure TForm1. N2Click (Sender: TObject);

begin

Close;

end;

procedure TForm1. N4Click (Sender: TObject);

begin

Form2.Top :=

Trunc (Form1.Top + Form1. Height/2 — Form2. Height/2);

Form2.Left :=

Trunc (Form1.Left + Form1. Width/2 — Form2. Width/2);

Form2.ShowModal;

end;

end.