Действия над обыкновенными дробями

[Alex201]

Можно ли реализовать в Delphi арифметическое действие над обыкновенными дробями и если можно то как?
В форме я создал три ячейки Edit1, Edit2 и Edit3 + кнопка Button1 для обработки действия сложения обыкновенных дробей введенных в Edit1 и Edit2 и вывода результата сложения в Edit3. К примеру: вводим в ячейку Edit1 дробь 1/2, а в ячейку Edit2 3/4 и при нажатии на кнопку в Edit3 выводится результат 5/4

[tsar_]

Можно выпендриться так:
1) Имеется "1/2" и "3/4" в Edit1 и Edit2 соответственно;
2) Выделяем числа после знака "/" в каждом Edit'e: 2 и 4 соответственно (это знаменатели)
4) Ищем наименьшее общее кратное для знаменателей (это в нашем случае 4)
5) Находим коэффициенты k1 и k2, на которые нужно домножить каждую дробь, чтоб привести к одному знаменателю (k1=2; k2=1)
6) Приводим к общему знаменателю (2/4 и 3/4 соответственно)
7) Суммируем числители (2+3=5)
8) Красиво выводим в Edit3 текст "5/4"

[FaTaL]

Можно конечно, но придётся парсить строку и переводить их в привычный вид для компьютера.

[min@y™]

Какая-то сволочь повадилась удалять мои посты без объяснения причин и предупреждения. Какое свинство! Поэтому я просто оставлю это здесь.

Посмотрим, сколько провисит.

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    n1,n2,n3,n4,n5,n6:integer;
begin
   n6:=Pos('/',Edit1.Text);
   If n6=0 then
   begin
      Edit3.Text:='Не дробь!';
      Exit;
   end else
   begin
      s:=Copy(Edit1.Text,1,n6-1);
      n1:=StrToInt(s);
      s:=Copy(Edit1.Text,n6+1,Length(Edit1.Text));
      n2:=StrToInt(s);
   end;
   n6:=Pos('/',Edit2.Text);
   If n6=0 then
   begin
      Edit3.Text:='Не дробь!';
      Exit;
   end else
   begin
      s:=Copy(Edit2.Text,1,n6-1);
      n3:=StrToInt(s);
      s:=Copy(Edit2.Text,n6+1,Length(Edit2.Text));
      n4:=StrToInt(s);
   end;
   n6:=n2;
   While (n6 mod n4)<>0 do
      n6:=n6+n2;
   n1:=n1*(n6 div n2);
   n2:=n2*(n6 div n2);
   n3:=n3*(n6 div n4);
   n4:=n4*(n6 div n4);
   n5:=n1+n3;
   Caption:=Format('%d %d %d %d %d %d',[n1,n2,n3,n4,n5,n6]);
   Edit3.Text:=Format('%d/%d',[n5,n6]);
end;