Методы-в класс

[Stilet]

Он только сказал сделать то что я написал в первом сообщении

Мда... Просто не знаю что и сказать...

[xMoNaHx]

я вот что написал,но ответ выводит неправильный(
я не знаюю надо ли указывать родительский класс

unit razb;
interface
uses
el_func;
Type
raz=object (TFunction)
lp, fname : string;
i, j : integer;
r : real;

function BuildTree(var e : string) : PElementaryFunction;
function BuildElement(var e : string) : PElementaryFunction;
procedure OutputTree(f : PElementaryFunction);
end;
implementation

function raz.BuildElement;
begin
writeLn('Enter to BuildElement(''' + e + ''')!');
i := 1;
BuildElement := nil;
while ((i <= length(e)) and (e[i] in ['0'..'9', '.'])) do
inc(i);
if (i > 1) then
begin
lp := copy(e, 1, i - 1);
delete(e, 1, i - 1);
val(lp, r, i);
writeLn('Number: ', r:0:2);
if (i <> 0) then
writeLn('error: Invalid number format')
else
BuildElement := CreateFConst(r);
exit;
end;
fname := '';
while ((i <= length(e)) and (e[i] in ['a'..'z', 'A'..'Z'])) do
inc(i);
if (i > 1) then
begin
fname := copy(e, 1, i - 1);
delete(e, 1, i - 1);
if (fname = 'x') then
begin
writeLn('Variable: ' + fname);
BuildElement := CreateFEquivalence;
exit;
end;
i := 1;
writeLn('Function: ' + fname);
end;
if (e[i] <> '(') then
writeLn('error: Invalid expression format')
else
begin
j := 1;
while ((i <= length(e)) and (j > 0)) do
begin
inc(i);
if (e[i] = ')') then
dec(j)
else if (e[i] = '(') then
inc(j);
end;
if (j > 0) then
begin
writeLn('error: ''('' without '')''');
exit;
end;
lp := copy(e, 2, i - 2);
delete(e, 1, i);
writeLn('Expression: ' + lp);
end;
if (fname = '') then
BuildElement := BuildTree(lp)
else if (fname = 'sin') then
BuildElement := CreateFunction(CreateFSin, BuildTree(lp), oF1ofF2)
else if (fname = 'cos') then
BuildElement := CreateFunction(CreateFCos, BuildTree(lp), oF1ofF2)
else if (fname = 'tg') then
BuildElement := CreateFunction(CreateFTg, BuildTree(lp), oF1ofF2)
else if (fname = 'ctg') then
BuildElement := CreateFunction(CreateFCtg, BuildTree(lp), oF1ofF2)
else if (fname = 'arcsin') then
BuildElement := CreateFunction(CreateFArcSin, BuildTree(lp), oF1ofF2)
else if (fname = 'arccos') then
BuildElement := CreateFunction(CreateFArcCos, BuildTree(lp), oF1ofF2)
else if (fname = 'arctg') then
BuildElement := CreateFunction(CreateFArcTg, BuildTree(lp), oF1ofF2)
else if (fname = 'arcctg') then
BuildElement := CreateFunction(CreateFArcCtg, BuildTree(lp), oF1ofF2)
end;

function raz.BuildTree;
var
lf : PElementaryFunction;
begin
writeLn('Enter to BuildTree(''' + e + ''')!');
BuildTree := nil;
lf := BuildElement(e);
while (length(e) > 0) do
if (e[1] = '*') then
begin
writeLn('*');
delete(e, 1, 1);
lf := CreateFunction(lf, BuildElement(e), oMul);
writeLn('buildtree: e = ' + e);
end else if (e[1] = '/') then
begin
writeLn('/');
delete(e, 1, 1);
lf := CreateFunction(lf, BuildElement(e), oDiv);
writeLn('buildtree: e = ' + e);
end else if (e[1] = '+') then
begin
writeLn('+');
delete(e, 1, 1);
lf := CreateFunction(lf, BuildTree(e), oAdd);
writeLn('buildtree: e = ' + e);
end else if (e[1] = '-') then
begin
writeLn('-');
delete(e, 1, 1);
lf := CreateFunction(lf, BuildTree(e), oSub);
writeLn('buildtree: e = ' + e);
end;
BuildTree := lf;
end;

procedure raz.OutputTree;
begin
writeLn('Tree:');
f^.OutputFLine(0);
end;
end.

[Stilet]

Для чего процедуры CreateFunction?
Что они делают и что возвращают?
И покажи как ты вызываешь эти твои методы класса raz...

P.S. Уже на глаз вижу что слишком сложно ты все затеял.... Есть попроще способы.

[xMoNaHx]

это не я писал)
вся прога практически написана преподом.
А что я сложно сделал?
я просто объявил класс с этими тремя методами.
и всё

[xMoNaHx]

program parse_expr;

uses
razb,crt,el_func;

var
s, t : string;
tree : PElementaryFunction;
w:raz;
begin
clrscr;
write('Enter expression: ');
readLn(s);{}
t := s;
tree := w.BuildTree(t);
writeLn('s = ' + s);
if (tree <> nil) then
w.OutputTree(tree)
else
writeLn('Tree is null');
readln;
end.

[xMoNaHx]

у меня ошибка в строке VAL

val(lp, r, i);
writeLn('Number: ', r:0:2);
if (i <> 0) then
writeLn('error: Invalid number format')

у меня i не =0 оказывается и выдается эта ошибка.
Почему это может быть?

[xMoNaHx]

хотя нет
ошибка возникает когда используются скобки