PDA

Просмотр полной версии : ооп паскаль



Ангелина_А
09.09.2013, 17:59
здравствуйте. подскажите пожалуйста мне с задачей. я недавно начала изучать эту тему, но до сих пор путаюсь.
Создать класс chisla, заданный тремя целыми числами. Определить равны ли суммы их цифр,оформить в виде метода класса.


program р;
type Digit=class
x,y,z:real;
function sum:integer;
constructor create(xx,yy,zz:integer);
//Destructor Destroy;
end;

function Digit.sum:integer;
var s,m,n:integer;
begin
m:=abs(n);
s:=0;
while m>0 do
begin
s:=s+m mod 10;
m:=m div 10
end;
sum:=s;
end;


constructor Digit.create(xx,yy,zz:integer);
begin
if xx>0 then x:=xx;
if yy>0 then y:=yy;
if zz>0 then z:=zz;
end;

//destructor Dirit.destroy;

и вот дальше у меня тупик(((

somewhere
09.09.2013, 21:13
функция Sum вызывается без параметров и считает сумму цифр случайного числа
функция должна быть приватной
требуется функция сравнения IsEqual:boolean, которая сравнит x,y,z и возвратит результат сравнения, используя Sum
по условию, класс должен быть задан тремя целыми числами, а не действительными

Naeel Maqsudov
09.09.2013, 22:41
Настолько бестолковая и никчёмная задача, что даже не хотелось ничего комментировать :(
Преподаватели - полные деграданты, раз выдумывают такое...
Хотя нет, пожалуй они просто не знают зачем нужны объекты...
Хотя нет... Это студенты сами такие :)
Ангелина_А, давайте Вы всё-таки приведёте полную и точную формулировку условия задачи.