В русском стандарте запятая является символом, разделяющем целую и дробную часть. А в американском - точка. Меняется это в "Язык и региональные стандарты".
Сложение обыкновенных дробей.
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;
|