Урок 24 Задачи 5 - 7

Урок 24 Задачи 5 - 7 :

Задача 5

Напишите программу, которая использует объект класса Posledovatelnost для вывода на экран числа от 1 до N, при это пусть последовательность выводится самим кноструктором класса, который создает объект

type
  Posledovatelnost = class
  public
    constructor create(n: integer);
  end;

constructor Posledovatelnost.create(n: integer);
var
  i: integer;
begin
 for i:= 1 to n do
   write(i, ' ');
end;

var
  n: Posledovatelnost; // переменная типа класса Posledovatelnost
begin
  n := Posledovatelnost.create(12);
  readln();
end.

Задача 6

Напишите программу, которая использует объект класса Posledovatelnost для вывода на экран числа от 1 до N, для вывода последовательности реализуйте метод do(), который в качестве аргумента принимает значение N

type
  Posledovatelnost = class
  public
    chisloN: integer; // поле
    procedure doing;
  end;

procedure Posledovatelnost.doing;
var
  i: integer;
begin
  for i:=1 to self.chisloN do
    write (i, ' ');
end;

var
  primer: Posledovatelnost; // переменная типа класса Posledovatelnost
begin
  primer := Posledovatelnost.create();  // создаем объект
  primer.chisloN := 19;                 // записываем в свойство значение
  primer.doing();                       // вызываем метод
  readln();
end.

Задача 7

Напишите программу, которая использует объект класса Posledovatelnost для вывода на экран числа от 1 до N, при этом пусть класс на этапе конструирования объекта сохраняет значение N во внутреннее поле, а для вывода последовательности реализуйте метод do()

type
  Posledovatelnost = class
  public
    chisloN: integer; // поле
    constructor create(chisloNValue: integer);
    procedure doing;
  end;

procedure Posledovatelnost.doing;
var
  i: integer;
begin
  for i:=1 to self.chisloN do
    write (i, ' ');
end;

constructor Posledovatelnost.create(chisloNValue: integer);
begin
 self.chisloN := chisloNValue;
end;

var
  primer: Posledovatelnost; // переменная типа класса Posledovatelnost
begin
  primer := Posledovatelnost.create(19);  // создаем объект, передаем значение
  primer.doing;                           // вызываем метод
  readln();
end.