Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.06.2015, 08:47   #31
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

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



Исходник вот.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 21.06.2015, 10:21   #32
Niv
Пользователь
 
Регистрация: 18.06.2015
Сообщений: 24
По умолчанию

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



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

Последний раз редактировалось Niv; 21.06.2015 в 10:25.
Niv вне форума Ответить с цитированием
Старый 21.06.2015, 10:29   #33
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

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

исходник посмотри, оцени, насколько он прост и компактен.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 21.06.2015, 10:40   #34
Niv
Пользователь
 
Регистрация: 18.06.2015
Сообщений: 24
По умолчанию Зачем чатить?

Цитата:
Сообщение от 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;

Последний раз редактировалось Аватар; 21.06.2015 в 11:30.
Niv вне форума Ответить с цитированием
Старый 21.06.2015, 16:33   #35
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

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

Цитата:
есть еще такой код
давай до свидания!
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
PascalABC.NET - Рассмотреть класс геометрических фигур, квадрат, круг, треугольник Niv Паскаль, Turbo Pascal, PascalABC.NET 0 18.06.2015 14:12
Построение геометрических фигур Антон08 Помощь студентам 3 16.05.2012 17:00
Вывод на экран геометрических фигур KrL^^ Помощь студентам 1 10.05.2009 23:15
Задача - Определить, какая из двух фигур – круг или квадрат – имеет большую площадь. Incognitoal Microsoft Office Excel 7 05.03.2009 11:36
Распознавание простейших геометрических фигур DropYourWeapon Паскаль, Turbo Pascal, PascalABC.NET 0 10.01.2009 22:32