• написать класс который принимает с клавиатуры целое число и выводит на экран три предыдущих ему целых числа причем каждое в отдельной строке

Ответы 1

  • type Cl = class  a:integer;  constructor Create(b:integer);  procedure SetVal(b:integer);  function GetVal:integer;  procedure GetPrev;end;constructor Cl.Create(b:integer);begin  a := b;end;procedure Cl.SetVal(b:integer);begin  a := b;end;function Cl.GetVal:integer;begin  GetVal := a;end;procedure Cl.GetPrev;var Pr, i:integer;begin  writeln('Три предыдущих');  Pr := Pred(a);  for i := 1 to 3 do  begin   writeln(Pr, ' ');   Pr := Pred(Pr)  end;end;var  Obj:Cl;begin  Obj := Cl.Create(5);  Obj.GetPrev;  writeln;  Obj.Destroy;end. 

    • Автор:

      pancracio
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years