ооп паскаль

Объекты Pascal, классы Object Pascal, интерфейсы, наследование, инкапсуляция и т.д
Ответить
Ангелина_А
Сообщения: 1
Зарегистрирован: 09 сен 2013, 17:50

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
Сообщения: 1837
Зарегистрирован: 31 авг 2006, 17:14
Откуда: 71 RUS
Контактная информация:

09 сен 2013, 21:13

функция Sum вызывается без параметров и считает сумму цифр случайного числа
функция должна быть приватной
требуется функция сравнения IsEqual:boolean, которая сравнит x,y,z и возвратит результат сравнения, используя Sum
по условию, класс должен быть задан тремя целыми числами, а не действительными
It's a long way to the top if you wanna rock'n'roll
Аватара пользователя
Naeel Maqsudov
Сообщения: 2551
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

09 сен 2013, 22:41

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