[Sanek_ntsk]

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

[Winny]

Вот исходник. Пример дроби: 1,2 НЕ В КОЕМ СЛУЧАЕ НЕ ПИШИ ВМЕСТО ЗАПЯТОЙ ТОЧКУ! Выйдет ошибка!

[4erep_88]

В русском стандарте запятая является символом, разделяющем целую и дробную часть. А в американском - точка. Меняется это в "Язык и региональные стандарты".

Сложение обыкновенных дробей.
procedure TForm1.Button1Click(Sender: TObject);
var a1,a2,b1,b2,c1,c2: integer;
begin
a1:=StrToInt(Edit1.Text); //числитель первой дроби
a2:=StrToInt(Edit2.Text); //знаменатель первой дроби
b1:=StrToInt(Edit3.Text); //числитель второй дроби
b2:=StrToInt(Edit4.Text); //знаменатель второй дроби

c2:=a2*b2; //общий знаменатель
c1:=a1*b2+b1*a2; //числитель результата

Edit5.Text:=IntToStr(c1);
Edit6.Text:=IntToStr(c2);
end;

[The Shadow]

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