Урок 24 Задачи 5 - 7
Primary tabs
Задача 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.
- Log in to post comments
- 736 reads
vedro-compota
Sun, 02/26/2023 - 13:06
Permalink
для вывода последовательности
-- 2 вариант не совсем по условию
_____________
матфак вгу и остальная классика =)
Patrick
Sun, 03/05/2023 - 11:26
Permalink
type
vedro-compota
Sun, 03/05/2023 - 12:39
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)