Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Оглавление

• Введение
• 1. Теоретическая часть
• 1.1 История разработки вопроса разбора математических выражений
• 1.2 Обратная польская нотация
• 1.3 Вычисления на стеке
• 1.4 Преобразование из инфиксной нотации
• 2. Практическая часть
• 2.1 Постановке задачи
• 2.2 Описание входного языка
• 2.3 Описание выходной информации
• 2.4 Алгоритмические аспекты программы
• 2.5 Алгоритм программы
• 2.7 Работа с программой
• Заключение
• Литература
• Приложение
• Введение
• Мы все знаем, что такое математическое выражение. Это формула. Формулы встречаются повсеместно в экономике, физике, биологии, и, конечно же, в математике. В общем, везде, где нужно символически представить какую-нибудь функцию или соотношение. Символическое представление, конечно, не единственное. Можно представить выражение в виде графика, или таблицы. Но все же формула является самым компактным и универсальным способом.
• В данной курсовой работе будет разработана программа, которая продемонстрирует способ распознавания компьютером введённых пользователем математических формул.
• Цель данной работы - разработать программу распознавания математических формул.
• Для достижения цели необходимо выполнить следующие задачи:
• 1. Изучить теоретический материал по предмету.
• 2. Разработать концепцию реализации программы.
• 3. Реализовать программу на языке программирования Delphi 7.
• 4. Составить пояснительную записку.

1. Теоретическая часть

1.1 История разработки вопроса разбора математических выражений

Существуют три вида записи выражений:

1. инфиксная форма, в которой оператор расположен между операндами (например, "а + b");

2. постфиксная форма, в которой оператор расположен после операндов ("а b + ");

3. префиксная форма, в которой оператор расположен перед операндами ("+ а b").

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

Обратная польская нотация была разработана австралийским философом и специалистом в области теории вычислительных машин Чарльзом Хэмблином в середине 1950-х на основе польской нотации, которая была предложена в 1920 году польским математиком Яном Лукасевичем. Работа Хэмблина была представлена на конференции в июне 1957, и издана в 1957 и 1962.

Первыми компьютерами, поддерживающими обратную польскую нотацию были KDF9 от English Electric Company, который был анонсирован в 1960 и выпущен (появился в продаже) в 1963, и американский Burroughs B5000, анонсирован в 1961, выпущен в том же 1963. Один из проектировщиков B5000, Р. С. Бартон, позже написал, что разработал обратную польскую запись назависимо от Хэмблина, примерно в 1958, в процессе чтения книги по символьной логике, и до того как познакомился с работой Хэмблина.

Компания Friden перенесла ОПН в настольные калькуляторы, выпустив в июне 1964 модель EC-130. А в 1968 инженеры Hewlett-Packard разработали настольный калькулятор 9100A с поддержкой ОПН. Этот калькулятор сделал обратную польскую нотацию популярной среди учёных и инженеров, даже несмотря на то, что в ранней рекламе 9100A ОПН не упоминалась. В 1972 калькулятор HP-35 с поддержкой ОПН стал первым научным карманным калькулятором.

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

ОПН применялась в советском инженерном калькуляторе Б3-19М (совместная разработка с ГДР), выпущенном в 1976 году. Все выпускаемые в СССР вплоть до конца 1980-х годов программируемые микрокалькуляторы, за исключением «Электроника МК-85», использовали ОПН -- она проще реализовывалась и позволяла обойтись в программировании вычислений меньшим числом команд, по сравнению с обычной алгебраической нотацией, а количество программной памяти в этих моделях всегда было критическим ресурсом (не более 105 ячеек, при том, что команда занимала 1-2 ячейки). ОПН используется в современных российских программируемых калькуляторах «Электроника МК-152» и «ЭЛЕКТРОНИКА МК-161», что обеспечивает их совместимость с программами, написанными для советских калькуляторов.

1.2 Обратная польская нотация

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

· Запись набора операций состоит из последовательности операндов и знаков операций. Операнды в выражении при письменной записи разделяются пробелами.

· Выражение читается слева направо. Когда в выражении встречается знак операции, выполняется соответствующая операция над двумя последними встретившимися перед ним операндами в порядке их записи. Результат операции заменяет в выражении последовательность её операндов и её знак, после чего выражение вычисляется дальше по тому же правилу.

· Результатом вычисления выражения становится результат последней вычисленной операции.

Например, рассмотрим вычисление выражения 7 2 3 * - (эквивалентное выражение в инфиксной нотации: 7-2*3).

· Первый по порядку знак операции -- «*», поэтому первой выполняется операция умножения над операндами 2 и 3 (они стоят последними перед знаком). Выражение при этом преобразуется к виду 7 6 - (результат умножения -- 6, -- заменяет тройку «2 3 *»).

· Второй знак операции -- «-». Выполняется операция вычитания над операндами 7 и 6.

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

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

Особенности обратной польской записи следующие:

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

· В отличие от инфиксной записи, невозможно использовать одни и те же знаки для записи унарных и бинарных операций. Так, в инфиксной записи выражение 5 * (-3 + 8) использует знак «минус» как символ унарной операции (изменение знака числа), а выражение (10 - 15) * 3 применяет этот же знак для обозначения бинарной операции (вычитание). Конкретная операция определяется тем, в какой позиции находится знак. Обратная польская запись не позволяет этого: запись 5 3 - 8 + * (условный аналог первого выражения) будет интерпретирована как ошибочная, поскольку невозможно определить, что «минус» после 5 и 3 обозначает не вычитание; в результате будет сделана попытка вычислить сначала 5 - 3, затем 2 + 8, после чего выяснится, что для операции умножения не хватает операндов. Чтобы всё же записать это выражение, придётся либо переформулировать его, либо ввести для операции изменения знака отдельное обозначение, например, «±»: 5 3 ± 8 + *.

· Так же, как и в инфиксной нотации, в ОПН одно и то же вычисление может быть записано в нескольких разных вариантах. Например, выражение (10 - 15) * 3 в ОПН можно записать как 10 15 - 3 *, а можно -- как 3 10 15 - *

· Из-за отсутствия скобок обратная польская запись короче инфиксной. За этот счёт при вычислениях на калькуляторах повышается скорость работы оператора (уменьшается количество нажимаемых клавиш), а в программируемых устройствах сокращается объём тех частей программы, которые описывают вычисления. Последнее может быть немаловажно для портативных и встроенных вычислительных устройств, имеющих жёсткие ограничения на объём памяти.

1.3 Вычисления на стеке

Автоматизация вычисления выражений в обратной польской нотации основана на использовании стека. Алгоритм вычисления для стековой машины элементарен:

1. Обработка входного символа.

2. Если на вход подан операнд, он помещается на вершину стека.

3. Если на вход подан знак операции, то соответствующая операция выполняется над требуемым количеством значений, извлечённых из стека, взятых в порядке добавления. Результат выполненной операции кладётся на вершину стека.

4. Если входной набор символов обработан не полностью, перейти к шагу 1.

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

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

1.4 Преобразование из инфиксной нотации

Эдсгер Дейкстра изобрёл алгоритм для преобразования выражений из инфиксной нотации в ОПН. Алгоритм получил название «сортировочная станция», за сходство его операций с происходящим на железнодорожных сортировочных станциях. Инфиксная нотация -- это форма математических записей, которую использует большинство людей (например, 3 + 4 или 3 + 4 * (2 - 1)). Как и алгоритм вычисления ОПН, алгоритм сортировочной станции основан на стеке. В преобразовании участвуют две текстовых переменных: входная и выходная строки. В процессе преобразования используется стек, хранящий ещё не добавленные к выходной строке операторы. Преобразующая программа читает входную строку последовательно символ за символом (символ -- это не обязательно буква), выполняет на каждом шаге некоторые действия в зависимости от того, какой символ был прочитан.

Алгоритм

* Пока есть ещё символы для чтения:

* Читаем очередной символ.

* Если символ является числом, добавить его к выходной строке.

* Если символ является символом функции, помещаем его в стек.

* Если символ является открывающей скобкой, помещаем его в стек.

* Если символ является закрывающей скобкой:

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

* Если символ является оператором о1, тогда:

1) пока…

… (если оператор o1 ассоциированный, либо лево-ассоциированный) приоритет o1 меньше либо равен приоритету оператора, находящегося на вершине стека…

… (если оператор o1 право-ассоциированый) приоритет ''''' меньше приоритета оператора, находящегося на вершине стека…

… выталкиваем верхние элементы стека в выходную строку;

2) помещаем оператор o1 в стек.

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

2. Практическая часть

2.1 Постановке задачи

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

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

2. Программа должна уметь различать приоритетность входных арифметических операций.

3. Программа должна уметь вычислять сложные выражения, содержащие в себе несколько математических операторов.

4. Программ должна вычислять результат введённого математического выражения.

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

6. Программа должна выполняться под управление ОС Windows.

2.2 Описание входного языка

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

Входная информация - строка символов, являющаяся правильным математическим выражением, содержащая операнды и операторы.

Набор операторов входного языка приведён в следующей таблице:

Таблица 1

Операторы входного языка

№	Обозначение в программе	Математическое обозначение	Функция	Правила использования
1. 1	+	+	Сложение	Складывает два операнда находящиеся справа и слева от оператора.
2. 2	-	-	Вычитание	Вычитает из операнда находящегося слева из операнда, находящегося справа от оператора.
3.	*	*	Произведение	Умножает два операнда находящиеся справа и слева от оператора.
4.	/	:	Частное	Делит операнд, находящейся слева, на операнд, находящейся справа от оператора.
5.	^	ОснованиеСтепень	Степень	Возводит операнд, находящийся слева, в степень по операнду, находящемуся справа от оператора

Набор символов входного языка, составляющих операнды, представлен в следующей таблице:

Таблица 2

Символы входного языка

№	Обозначение в программе	Математическое обозначение	Наименование
1.	1	1	Один
2.	2	2	Два
3.	3	3	Три
4.	4	4	Четыре
5.	5	5	Пять
6.	6	6	Шесть
7.	7	7	Семь
8.	8	8	Восемь
9.	9	9	Девять
10.	0	0	Ноль

программа распознаватель арифметический выражение

2.3 Описание выходной информации

Выходной информацией данной программы являются следующие данные:

1. Дерево разбора.

2. Результаты промежуточных вычислений.

3. Конечный результат.

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

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

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

2.4 Алгоритмические аспекты программы

Алгоритм программы представляет собой соединение двух алгоритмов:

1. Построение дерева разбора.

2. Построение выражение по принципу польской префиксной записи.

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

Приоритеты операндов показаны в таблице 3.

Таблица 3

Приоритеты операндов

№	Операнд	Наименование	Приоритет выполнения
1.	+	Сложение	1
2.	-	Вычитание	1
3.	*	Произведение	2
4.	/	Деление	2
5.	^	Степень	3

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

2.5 Алгоритм программы

Алгоритм программы представлен следующей схемой:

Рисунок 1 - Алгоритм программы



Рисунок 2 - Алгоритм программы



Рисунок 3 - Алгоритм программы



Рисунок 4 - Алгоритм программы



Рисунок 5 - Алгоритм программы



Рисунок 6 - Алгоритм программы



Рисунок 7 - Алгоритм программы

2.7 Работа с программой

Разработанная программа не требует инсталляции. Для её запуска достаточно запустить исполнимый файл. Вид программы предстален на рисунке.

Рисунок 8 - Окно программы.

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

Рисунок 9 - Введено выражение.

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

Рисунок 10 - Выполненная программа.

Чтобы очистить поля программы нажмите кнопку очистить.

Заключение

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

В процессе работы над программой мною были изучены следующие темы:

Правила создания бинарных деревьев.

Правила преобразования инфиксной записи в польскую обратную нотацию.

Литература

1. А. В. Ахо, Р. Сети, Д. Д. Ульман. Компиляторы: принципы, технологии и инструменты. М.: «Вильямс», 2003.

2. Компаниец Р.И. и др. Системное программирование.Основы построения трансляторов.- СПб.: КОРОНА принт, 2000.-256 с.

3. Компаниец Р.И., Маньков Е.В., Филатов Н.Е. Основы построения трансляторов. -СПб.: КОРОНА принт, 2000. -256 с.

4. Хантер Р. Проектирование и конструирование компиляторов. М.: Финансы и статистика. 1984 г.

5. Грис Д. Конструирование компиляторов для цифровых вычислительных машин. М.: Мир,1975 г.

6. Иртегов Д. Введение в операционные системы. Учебное пособие. -- СПб.: БХВ-Петербург, 2002. -- 624 с.

7. Молчанов А.Ю. Системное программное обеспечение. Лабораторный практкум.- СПб.: Питер, 2005.- 284 с.

8. Юров В.И. Assembler. Учебник для вузов. 2-е издание - СПб.: Питер.- 2004.- 637 с.

9. Компаниец Р.И., Маньков Е.В., Филатов Н.Е. Системное программирование: Основы построения трансляторов + FD.- М.: КОРОНА принт.- 2004.- 255 с.

10. Молчанов А.Ю. Системное программное обеспечение. Лабораторный практикум. -- СПб.: Питер, 2005. -- 284 с.

11. Юров В.И. Assembler. Учебник для вузов. 2-е изд. -- СПб: Питер, 2004. -- 637 с.

12. Ахо А., Ульман Дж. Теория синтаксического анализа, перевода и компиляции. -- М.:Мир, 1978. -- Т.1, 612 с. Т. 2, 487 с.

13. Ахо А.,Сети Р., Ульман Дж. Компиляторы: принципы, технологии и инструменты: Пер. с англ. -- М.: Издательский дом «Вильямс», 2003. -- 768 с.

14. Гордеев А.В., Молчанов А.Ю. Системное программное обеспечение. -- СПб.: Питер, 2002. -- 734 с.

15. Компаниец Р.И., Маньков Е.В., Филатов Н.Е. Системное программирование. Основы построения трансляторов: Учебное пособие для высших средних учебных заведений. -- СПб:КОРОНА принт, 2000. -- 256 с.

16. Гордеев А.В. Опреационные системы: Учебник для вузов. 2-е изд. -- СПб.: Питер, 2004. -- 416 с.

Приложение

Листинг программы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, math;

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Memo1: TMemo;

Label1: TLabel;

Label2: TLabel;

Memo2: TMemo;

Label3: TLabel;

Button2: TButton;

Edit2: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

st,op1,op2:string;

mtxi,mtxpr:integer;

mtx:array of string;

implementation

{$R *.dfm}

function is_num(a:string):boolean;

begin

if ((a='"') or (a='0') or (a='1') or (a='2') or (a='3') or (a='4') or (a='5') or (a='6') or (a='7') or (a='8') or (a='9'))

then is_num:=true

else is_num:=false;

end;

procedure TForm1.Button1Click(Sender: TObject);

var i,j,fl,m,l:integer;

ss:string;

begin

st:=form1.Edit1.Text;

m:=0;

repeat

memo1.Lines.Add('');

fl:=1;

if (pos('^',st)>0) then

begin

fl:=0;

memo1.Lines[m]:=memo1.Lines[m]+'^ ';

i:=pos('^',st);

j:=i+1;

i:=i-1;

ss:='';

while is_num(st[i]) do

begin

ss:=ss+st[i];

i:=i-1;

end;

for l:=length(ss) downto 0 do memo1.Lines[m]:=memo1.Lines[m]+ss[l];

memo1.Lines[m]:=memo1.Lines[m]+' ';

while is_num(st[j]) do

begin

memo1.Lines[m]:=memo1.Lines[m]+st[j];

j:=j+1;

end;

delete(st,i+1,j-i-1);

insert('"'+inttostr(m)+'"',st,i+1);

edit1.text:=st;

m:=m+1;

end;

until fl=1;

repeat

memo1.Lines.Add('');

fl:=1;

if (pos('*',st)>0) then

begin

fl:=0;

memo1.Lines[m]:=memo1.Lines[m]+'* ';

i:=pos('*',st);

j:=i+1;

i:=i-1;

ss:='';

while is_num(st[i]) do

begin

ss:=ss+st[i];

i:=i-1;

end;

for l:=length(ss) downto 0 do memo1.Lines[m]:=memo1.Lines[m]+ss[l];

memo1.Lines[m]:=memo1.Lines[m]+' ';

while is_num(st[j]) do

begin

memo1.Lines[m]:=memo1.Lines[m]+st[j];

j:=j+1;

end;

delete(st,i+1,j-i-1);

insert('"'+inttostr(m)+'"',st,i+1);

edit1.text:=st;

m:=m+1;

end;

until fl=1;

repeat

memo1.Lines.Add('');

fl:=1;

if (pos('/',st)>0) then

begin

fl:=0;

memo1.Lines[m]:=memo1.Lines[m]+'/ ';

i:=pos('/',st);

j:=i+1;

i:=i-1;

ss:='';

while is_num(st[i]) do

begin

ss:=ss+st[i];

i:=i-1;

end;

for l:=length(ss) downto 0 do memo1.Lines[m]:=memo1.Lines[m]+ss[l];

memo1.Lines[m]:=memo1.Lines[m]+' ';

while is_num(st[j]) do

begin

memo1.Lines[m]:=memo1.Lines[m]+st[j];

j:=j+1;

end;

delete(st,i+1,j-i-1);

insert('"'+inttostr(m)+'"',st,i+1);

edit1.text:=st;

m:=m+1;

end;

until fl=1;

repeat

memo1.Lines.Add('');

fl:=1;

if (pos('+',st)>0) then

begin

fl:=0;

memo1.Lines[m]:=memo1.Lines[m]+'+ ';

i:=pos('+',st);

j:=i+1;

i:=i-1;

ss:='';

while is_num(st[i]) do

begin

ss:=ss+st[i];

i:=i-1;

end;

for l:=length(ss) downto 0 do memo1.Lines[m]:=memo1.Lines[m]+ss[l];

memo1.Lines[m]:=memo1.Lines[m]+' ';

while is_num(st[j]) do

begin

memo1.Lines[m]:=memo1.Lines[m]+st[j];

j:=j+1;

end;

delete(st,i+1,j-i-1);

insert('"'+inttostr(m)+'"',st,i+1);

edit1.text:=st;

m:=m+1;

end;

until fl=1;

repeat

memo1.Lines.Add('');

fl:=1;

if (pos('-',st)>0) then

begin

fl:=0;

memo1.Lines[m]:=memo1.Lines[m]+'- ';

i:=pos('-',st);

j:=i+1;

i:=i-1;

ss:='';

while is_num(st[i]) do

begin

ss:=ss+st[i];

i:=i-1;

end;

for l:=length(ss) downto 0 do memo1.Lines[m]:=memo1.Lines[m]+ss[l];

memo1.Lines[m]:=memo1.Lines[m]+' ';

while is_num(st[j]) do

begin

memo1.Lines[m]:=memo1.Lines[m]+st[j];

j:=j+1;

end;

delete(st,i+1,j-i-1);

insert('"'+inttostr(m)+'"',st,i+1);

edit1.text:=st;

m:=m+1;

end;

until fl=1;

while memo1.Lines[memo1.Lines.Count-1]='' do

memo1.Lines.Delete(memo1.Lines.Count-1);

memo2.Lines:=memo1.Lines;

for i:=0 to memo2.Lines.Count do

begin

if ((length(memo1.Lines[i])<>0)) then

st:=memo1.Lines[i];

case st[1] of

'^':begin

delete(st,1,2);

if (st[1]='"') then

begin

op1:=memo2.Lines[strtoint(st[2])];

delete(st,1,4);

end

else

begin

op1:=copy(st,1,pos(' ',st));

delete(st,1,pos(' ',st));

end;

if (st[1]='"') then

begin

op2:=st[2]; memo2.Lines[strtoint(st[2])];

edit2.text:=op2;

end

else

begin

op2:=st;

end;

memo2.Lines[i]:=floattostr(Power(strtofloat(op1),strtofloat(op2)));

end;

'*':begin

delete(st,1,2);

if (st[1]='"') then

begin

op1:=memo2.Lines[strtoint(st[2])];

delete(st,1,4);

end

else

begin

op1:=copy(st,1,pos(' ',st));

delete(st,1,pos(' ',st));

end;

if (st[1]='"') then

begin

op2:=st[2]; memo2.Lines[strtoint(st[2])];

edit2.text:=op2;

end

else

begin

op2:=st;

end;

memo2.Lines[i]:=floattostr(strtofloat(op1)*strtofloat(op2));

end;

'+':begin

delete(st,1,2);

if (st[1]='"') then

begin

op1:=memo2.Lines[strtoint(st[2])];

delete(st,1,4);

end

else

begin

op1:=copy(st,1,pos(' ',st));

delete(st,1,pos(' ',st));

end;

if (st[1]='"') then

begin

op2:=memo2.Lines[strtoint(st[2])]; memo2.Lines[strtoint(st[2])];

end

else

begin

op2:=st;

end;

memo2.Lines[i]:=floattostr(strtofloat(op1)+strtofloat(op2));

end;

end;

edit2.text:=memo2.Lines[memo2.Lines.count-1];

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

memo1.Lines.Clear;

memo2.Lines.Clear;

end;

end.

Размещено на Allbest.ru