Объектно-ориентированное программирование в Паскале

[NAt]

Объектно-ориентированное программирование в Паскале

здравствуйте. подскажите пожалуйста мне с задачей. я недавно начала изучать эту тем, но до сих пор путаюсь.
Создать класс chisla, заданный тремя целыми числами. Выполнить следующие пункты в виде методов класса:
1)равны ли суммы их цифр,
2)посчитать количество цифр «0 » и «5 » в каждом числе.
заранее спасибо)

 

[interacia]

Ваш класс без второго метода может выглядеть так.

Program chislaNAT;

type
  chisla=class
    chis1: integer;
    chis2: integer;
    chis3: integer;
   constructor Create(c1,c2,c3:integer);
  procedure Punct1;
//  procedure Punct2;
  end;

  constructor chisla.Create(c1,c2,c3:integer);
  begin
    chis1:=c1;
    chis2:=c2;
    chis3:=c3;
  end;
procedure chisla.Punct1; // реализация вашего пункта
var
c1,c2,c3:integer;
Sumc1,Sumc2,Sumc3:integer;
begin
c1:=chis1;
c2:=chis2;
c3:=chis3;
Sumc1:=0;
Sumc2:=0;
Sumc3:=0;

While C1>9 do
begin
Sumc1:=Sumc1+(c1 mod 10);
c1:=c1 div 10;
end;
Sumc1:=Sumc1+(c1 mod 10);
While C2>9 do
begin
Sumc2:=Sumc2+(c2 mod 10);
c2:=c2 div 10;
end;
Sumc2:=Sumc2+(c2 mod 10);
While C3>9 do
begin
Sumc3:=Sumc3+(c3 mod 10);
c3:=c3 div 10;
end;
Sumc3:=Sumc3+(c3 mod 10);
// вывод ответа на первый пункт
if (Sumc3=Sumc2)and(Sumc3=Sumc1) then writeln('Суммы цифр в числах равны.')
else writeln('Суммы цифр в числах неравны.')
end;

var
A:chisla;
// основная программа
begin
A:=chisla.Create(0,0,0);
// ввод значений
write('Введите 1 число :');
readln(a.chis1);
write('Введите 2 число :');
readln(a.chis2);
write('Введите 3 число :');
readln(a.chis3);
a.Punct1; // использование 1 пункта.
end.

Ну если добрались до ООП то одну процедуру по аналогии сами наверно сможете вписать. Попробуйте вдруг понравится.

 

[NAt]

спасибо большое, уже решила