PascalABC.NET - Рассмотреть класс геометрических фигур, квадрат, круг, треугольник

[min@y™]

Вот, набросал тебе часа за 3 пример (одним глазом - в телеящике), показывающий самый минимум из того, что можно натворить с классами, когда интересно. Пример очень сильно урезанный, это просто демонстрашка для детского сада.



Исходник вот.

[Niv]

Сообщение от min@y™

Вот, набросал тебе часа за 3 пример (одним глазом - в телеящике), показывающий самый минимум из того, что можно натворить с классами, когда интересно. Пример очень сильно урезанный, это просто демонстрашка для детского сада.



Исходник вот.

Фига себе. Это же делфи да ? Видимо я совсем дундук и не разбираюсь,

[min@y™]

Фига себе. Это же делфи да ?

да. а чо не так?
я твой паскакаль-абц один раз посмотрел и снёс нах.
чего и тебе искренне желаю.

исходник посмотри, оцени, насколько он прост и компактен.

[Niv]

Сообщение от min@y™

да. а чо не так?
я твой паскакаль-абц один раз посмотрел и снёс нах.
чего и тебе искренне желаю.

исходник посмотри, оцени, насколько он прост и компактен.

Да не так, то что на делфи, а нужно на абс, ну все равно спасибо за помощь.

Исходник не запускается, я же правильно понимаю, что исходник это uPrimitives и ufMain. на паскале не запускается (по понятным причинам).
Да я бы снес его с удовольствием, но как сдам эту программу сразу снесу и забуду как страшный сон.

есть еще такой код

type
    Shape = auto class
        x, y: integer;
        color: GraphABC.Color;
    end;

    Square = class(Shape)        
        x1, y1: integer;
        
        constructor Create(x, y, x1, y1: integer; color: GraphABC.Color);
        begin
            self.x := x;
            self.x1 := x1;
            self.y := y;
            self.y1 := y1;
            self.color := color;
        end;
        
        procedure Draw();
        begin
            brush.Color := color;
            GraphABC.Rectangle(x, y, x1, y1);
            
            brush.Color := GraphABC.Color.Transparent;
        end;
    end;

[min@y™]

Исходник не запускается

а не надо его пытаться запускать, надо просто рассмотреть. именно это от тебя и требуют, судя по заданию - "Рассмотреть класс геометрических фигур, квадрат, круг, треугольник'". рассмотрел ?

есть еще такой код

давай до свидания!