Класс целых чисел Опции

[forMator]

привет всем! Не могу понять почему программа так работает. вычитание и умножение считает правильно. А сложение нет...
Нужно создать класс целых чисел. реализуя арифметические операции, х - класса tint. Помогите пожалуйста

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type tint=class
data:integer;
procedure impdata(x:integer);
function outdata:integer;
procedure add(x:tint);
procedure sub(x:tint);
procedure mul(x:tint);
end;
procedure tint.impdata;
begin
data:=x;
end;
function tint.outdata;
begin
result:=data;
end;
procedure tint.add;
begin
data:=data+x.data;
end;
procedure tint.sub;
begin
data:=data-x.data;
end;
procedure tint.mul;
begin
data:=data*x.data;
end;
Var a,b:tint;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  a:=tint.Create;
  a.impdata(6);
  b:=tint.create;
  b.impdata(3);
  a.sub(b);
  writeln('result sub=',a.outdata);
  a.add(b);
  writeln('result add=',a.outdata);
  a.mul(b);
  writeln('result mul=',a.outdata);
  a.Free;b.Free;
  readln;
end.
 

[volvo]

С чего ты решил, что неправильно?

Сначала отнимается 3, потом к результату прибавляется 3, а потом результат умножается на 3...

Вот и выходит 3, 6, 18 ...

[forMator]

Спасибо большое! Это я видимо вычитать разучился..
А как можно сделать деление в классе целых чисел??
Подскажите пожалуйста как с помощью TRY..EXCEPT можно записать?

[мисс_граффити]

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

[forMator]

А как можно сделать целочисленное??

procedure del(x:tint);
. . .
procedure tint.del;
begin
data:=data/x.data;
. . .
try
a:=tint.Create;
 a.impdata(6);
 b:=tint.create;
 b.impdata(3);
a.del(b);
except  ???

Будет правильным?

[volvo]

Лучше

data:=data div x.data;

[forMator]

А после except ничего писать не нужно??

[forMator]

У меня программа выдаёт 2 ошибки:
-record,object or class type required
-'end' expected but end of file found.
Нашёл следующее:
try
{исполняемый код};
except
on Exception1do {код, исполняемый в случае возникновения ошибки 1};
else
{код, обработчик всех не перехваченных ранее ошибок};
end;
А что мне надо записать вместо Exception1 и нужен ли мне else??

[мисс_граффити]

можно с помощью try/except отлавливать деление на 0.

-'end' expected but end of file found.

естественно.
у конструкции вид

try
{защищенный блок}
except
{обработка исключения}
end;

в твоем коде не разобралась.

procedure del(x:tint); //замечательно: для одного числа вызываем, второе передаем
. . .
procedure tint.del; //куда делось передаваемое как параметр?
begin
data:=data/x.data; //data:integer; не летают такие самолеты....
. . .

в общем, у тебя 2 пути: либо

data:=data div x.data

либо

data:=round(data/x.data)

смотря какой результат хочешь получать.
я бы сделала именно это действие внутри защищенного блока try/except
причем по except можно просто выдавать сообщение, что поделить не удалось (или можно проверять, дело в делении на ноль или в чем-то еще), а значение data оставлять старым.

[forMator]

СПАСИБО БОЛЬШОЕ ЗА ПОМОЩЬ!