Тут все операции реализованы. В чем нужна помощь?

Тут все операции реализованы. В чем нужна помощь?

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

Хотя сумму и разность явно сделаны неправильно.

А с этого места можно поподробнее? В чем "неправильность"?

Разобралась, правильно

Я так понимаю что нужно

Ввести арифметическое выражение с простыми дробями и выполнить действия.

Т.е, на вводе типа
(3/6+2/7)*(1/4-3/5)

Да, имеено так и надо.

Т.е, на вводе типа
(3/6+2/7)*(1/4-3/5)

Да, имеено так и надо.

Хм-м! А то, что тут надо рекурсивный алгоритм использовать, вас не смущает? Может быть имеется в виду выражение с одним арифметическим действием?

Нет, это вряд ли, что с одним арфм. действием.

А то, что тут надо рекурсивный алгоритм использовать, вас не смущает?

Можно просто обойтись польской записью, без всякой рекурсии.

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

Можно просто обойтись польской записью

Это как сказать! Форма записи задаётся постановкой задачи. Раз предписано вводить "(3/6+2/7)*(1/4-3/5)", то как ни вертись, а именно это и надо разбирать.

то как ни вертись, а именно это и надо разбирать.

Разбирать нужно, но введенную строку также нужно ещё анализировать на правильность заданых параметром, т.е. без построения семантического анализатора тут не обойтись.
После анализа получится польская запись: (<A>+<B>)*(<C>+<D>)=<A><B>+<C><D>+*=<E><C><D>+*=<E><F>*=<R>

М-м-м! Для этого не нужен рекурсивный алгортим?

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

Не знаю. На такой уровень мне не доводилось заходить. Знаю только, что алгортимы по сути эквивалентные рекурсии, могут быть реализованы без её явного использования, обычными средствами: циклами, массивами и т.д. Может быть что-то такое и происходит? Или это принципиально иной алгоритм?

Сделаейте пожалуйста еще с одним арифметич. действием. Оч прошу.

Если с делением, то все совершенно аналогично.

Добавляем
# k:=pos('-',s);
# if (k>1) then
# begin
# r1:=eval(copy(s,1,k-1));
# r2:=eval(copy(s,k+1,Length(s)-k));
# raznost(r1,r2,r3);
# eval:=r3;
# exit;
# end;
Делаем замену 2 местах. - на : и raznost на chastnoe

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

Существует несколько их видов, но широкое распространение получила польская запись(ПЗ).
Вот пример перевода в польскую запись(http://www.pascal.hop.ru/):
[code h=200]Const OperSet:set of char= ['+','-','*','/','(',')','^'];
Var Stack : array [1..10] of Char;
InputString : String;
OutputString : String;
I,J,K, TopStack : Word;
Symb : Char;
SymbTmp : Char;
Function ChToInt(C:Char):Integer;
Var Result : Integer;
Begin
Case C Of
'(': Result := 0;
')': Result := 1;
'-': Result := 2;
'+': Result := 2;
'*': Result := 3;
'/': Result := 3;
'^': Result := 4;
End;
ChToInt := Result;
End;
Function PRCD(Ch1, Ch2 : Char):Boolean;
Var Result : Boolean;
Begin
If ChToInt(Ch1) >= ChToInt(Ch2) Then Result := True
Else Result := False;
If Ch2='(' Then Result := False;
If Ch1='(' Then Result := False;
If (Ch2=')') And (Ch1<>'(') Then Result := True;
If (Ch2='(') And (Ch1=')') Then Result := False;
PRCD := Result;
End;
Function Empty:Boolean;
Var Result : Boolean;
Begin
If TopStack = 0 Then Result := True
Else Result := False;
Empty := Result;
End;
Function TopStackSymb:Char;
Begin
TopStackSymb := Stack[TopStack];
End;
Procedure Push(Ch : Char);
Begin
Inc(TopStack);
Stack[TopStack] := Ch;
End;
Function Pop:Char;
Begin
Pop := Stack[TopStack];
Stack[TopStack] := ' ';
Dec(TopStack);
End;
Begin
ClrScr;
TopStack := 0;
OutputString := '';
ReadLn(InputString);
For I := 1 To 10 Do Stack[I] := ' ';
For I := 1 To Length(InputString) Do Begin
Symb := InputString[I];
If Symb IN OperSet
Then Begin
While Not(Empty) And PRCD(TopStackSymb,Symb) Do Begin
SymbTmp := Pop;
OutputString := OutputString + SymbTmp;
End;
If (Empty) Or (Symb<>')') Then Push(Symb)
Else SymbTmp := Pop;
End Else OutputString := OutputString + Symb;
End;
While Not(Empty) Do Begin
SymbTmp := Pop;
OutputString := OutputString + SymbTmp;
End;
WriteLn(InputString);
WriteLn(OutputString);
ReadLn;
End.[/code]
И пример её работы:

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

Думаю Вы знакомы с принципами работы сопроцессора х86(аппаратная реализация принципа ПЗ). С точки зрения сопроцесора сгенерированный код будет таким:
FLD a ;st(0)=a
FLD b ;st(0)=b, st(1)=a
FADD ;st(0)=st(0)+st(1)=e, st(1)=nil
FLD c ;st(0)=c, st(1)=e
FLD d ;st(0)=d, st(1)=c, st(2)=e
FADD ;st(0)=st(0)+st(1)=f, st(1)=e, st(2)=nil
FMUL ;st(0)=st(0)*st(1)=g, st(1)=nil
где
FLD - загрузить значение
FADD - суммировать два регистра стека сопроцессора
FMUL - умножить два регистра стека сопроцессра
Увидели разницу с ПЗ : ab+cd+*, практически одинаковы. Но если в аппаратной реализации сопроцессора тольлко восемь стековых регистров, то в программной, их количество может быть ограниченно только доступной программе памятью.

Процессору совершенно безразлично имена переменных используемые программистом, для него это адрес переменной в памяти и её размер(1, 2 и т.д. байт). Компилятору названия переменных также безразличны, главное, чтобы они не совпадали с зарезервированными словами, в памяти формируется массив соответствия название_переменной=её_адрес и при компиляции в соответствующие команды процессора подставляются адреса этих переменных.

Если расматривать с точки зрения задания, то дробь число:число(есть и такой вариант записи дроби) можно представить как одну переменную-запись и сооветсвенно запомнить её значение в некотором массиве, а в самом выражении использовать индекс этого массива. Получить из исходного выражения польскую запись и запустить его на испольнительный механизм, который будет считать окончательное значение.

И ещё добавлю.
Сейчас для разбора выражений можно использовать любые алгоритмы, доступная память практически ничем не ограничена. Но раньше было доступно только один мегабайт(16-ть сегментов по 64-е килобайта). Из них старшие 6-ть сегментов заняты видеобуфером и BIOS, пара младших служебной информацией BIOS и DOS. На долю компилятора остается максимум 500 килобайт для своего кода, исходного текста программы и результата компиляции. Под стек можно было отвести только один сегмент. Из-за ограничений по стеку программы использование рекурсивных(очень сильно нагружает стек, т.к. хранятся передаваемые параметры и адреса возврата из п/программ) алгоритмов было нецелесообразно и их заменили итерационными.

Спасибо. Буду вникать.