Программа на делфи

[misher]

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

[Vikenty]

Обычный калькулятор?

[dmitriegorovih]

с десятичными дробями

var
  chislitel,znamenatel:integer;
implementation

{$R *.dfm}

procedure Tform1.drobi(chislitel1,znamenatel1,chislitel2,znamenatel2:integer;format:string);
begin
if format='+' then begin
chislitel:=(chislitel1*znamenatel2)+(chislitel2*znamenatel1);
znamenatel:=znamenatel1*znamenatel2;
end
if format='*' then begin
chislitel:=chislitel1*chislitel2;
znamenatel:=znamenatel1*znamenatel2;
end
end;

Ну и так далее

[misher]

Обычный калькулятор?

Если поподробнее, то программа для решенеия.(мама учитель математики и чтобы легче было попрасила попробывать написать программу) в ней выводится (если выбрал деление) 0.10/0.04=(сюда ребенок пишет ответ, если это 2.5 значит правильно если нет, то нет)...

[dmitriegorovih]

в ней выводится (если выбрал умнажение) 0.10/0.04

А почему дробь стоит?

[ZaRDaK]

Первый и второй параметр - дроби, третий - введённый ответ, выдаёт true при правильном ответе и false при неправильном.

Использование:

if fplus(StrToFloat(Edit1.Text) , StrToFloat(Edit2.Text) , StrToFloat(Edit3.Text)) then ShowMessage('Правильно')
else ShowMessage('Неправильно')

Сами функции:

function fplus(f , s , a : real): Boolean; //плюс
begin
if f + s = a then result := true
else result := false;
end;

function fminus(f , s , a : real): Boolean; //минус
begin
if f - s = a then result := true
else result := false;
end;

function fmultiply(f , s , a : real): Boolean; //умножение
begin
if f * s = a then result := true
else result := false;
end;

function fdivide(f , s , a : real): Boolean; //деление
begin
if f / s = a then result := true
else result := false;
end;

И не забудь поставить DecimalSepearator в '.'

procedure TForm1.FormCreate(Sender: TObject);
begin
DecimalSeparator := '.';
end;

[misher]

А почему дробь стоит?

перепутал)
всем спасибо буду разбираться!