Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Класс целых чисел

Автор: forMator 12.04.2007 21:37

привет всем! Не могу понять почему программа так работает. вычитание и умножение считает правильно. А сложение нет...
Нужно создать класс целых чисел. реализуя арифметические операции, х - класса 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 12.04.2007 21:46

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

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

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

Автор: forMator 13.04.2007 22:48

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

Автор: мисс_граффити 13.04.2007 22:52

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

Автор: forMator 13.04.2007 23:06

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


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 13.04.2007 23:09

Лучше

data:=data div x.data;

Автор: forMator 13.04.2007 23:19

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

Автор: forMator 13.04.2007 23:39

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

Автор: мисс_граффити 14.04.2007 0:19

можно с помощью 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 14.04.2007 19:27

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