привет всем! Не могу понять почему программа так работает. вычитание и умножение считает правильно. А сложение нет...
Нужно создать класс целых чисел. реализуя арифметические операции, х - класса 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.
С чего ты решил, что неправильно?
Сначала отнимается 3, потом к результату прибавляется 3, а потом результат умножается на 3...
Вот и выходит 3, 6, 18 ...
Спасибо большое! Это я видимо вычитать разучился..
А как можно сделать деление в классе целых чисел??
Подскажите пожалуйста как с помощью TRY..EXCEPT можно записать?
деление на множестве целых - операция неопределимая даже с математической точки зрения.
только если целочисленное делать. или с округлением до ближайшего целого.
А как можно сделать целочисленное??
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 ???
Лучше
data:=data div x.data;
А после except ничего писать не нужно??
У меня программа выдаёт 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; не летают такие самолеты....
. . .
data:=data div x.data
data:=round(data/x.data)
СПАСИБО БОЛЬШОЕ ЗА ПОМОЩЬ!