Урок 24 Задача 8
Primary tabs
Напишите программу, которая выводит матрицу из единиц размерами M на N, напр. для M=2 и N=4 мы должны получить результат:
1 1 1 1 1 1 1 1-- оформите решение программы в виде класса, который (должны быть выполнены все пункты):
решает задачу вызовом метода do() (без параметров)
в конструктор принимает значения M и N (и хранит их в виде собственных полей)
для вывода строки с указанным количеством единиц использует внутренний метод str(), принимающий на вход длину строки
type Posledovatelnost = class public chisloN, chisloM: integer; // поля constructor create(chisloMValue, chisloNValue: integer); procedure doing; end; procedure Posledovatelnost.doing; var i: integer; procedure str(N: integer); var i: integer; begin for i:=1 to N do write (1, ' '); writeln; end; begin for i:=1 to self.chisloM do str(self.chisloN); end; constructor Posledovatelnost.create(chisloMValue, chisloNValue: integer); begin self.chisloM := chisloMValue; self.chisloN := chisloNValue; end; var primer: Posledovatelnost; // переменная типа класса Posledovatelnost begin primer := Posledovatelnost.create(2, 4); // создаем объект, передаем значения primer.doing; // вызываем метод readln(); end.
- Log in to post comments
- 319 reads
vedro-compota
Sun, 02/26/2023 - 13:09
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)