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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 13.05.2016, 11:49   #1
Василий15
Пользователь
 
Регистрация: 07.05.2016
Сообщений: 27
По умолчанию Pascal ABC графика

Используя динамические объекты и виртуальные методы, разработать программу одновременного вывода на экран и смены цвета двух эллипсов разного цвета.

Код:
uses graphABC;

begin
   window.Clear;
   brush.Color:=clRed;
   ellipse(100,50,200,150);
   brush.Color:=clBlue;
   ellipse(100,200,200,300);
end.
Есть только вывод, теперь нужно запилить смену цвета с помощью динамических объектов и виртуальных методов.
Василий15 вне форума Ответить с цитированием
Старый 13.05.2016, 11:59   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

// просто комментарий - графика в Pascal ABC и Pascal ABC.NET достаточно существенно отличается...
// это я к тому, что в Pascal ABC ваш пример не работает.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 13.05.2016, 12:21   #3
Василий15
Пользователь
 
Регистрация: 07.05.2016
Сообщений: 27
По умолчанию

Ок. Как будет выглядеть код в ТП? Хоть примерно.
Василий15 вне форума Ответить с цитированием
Старый 13.05.2016, 12:30   #4
Dvoishnik
Форумчанин
 
Регистрация: 12.02.2011
Сообщений: 808
По умолчанию

в ТП тоже по другому все будет
какая версия паскаля вам нужна??
Терпение!Дежурный экстрасенс скоро свяжется с вами!
Dvoishnik вне форума Ответить с цитированием
Старый 13.05.2016, 12:43   #5
Василий15
Пользователь
 
Регистрация: 07.05.2016
Сообщений: 27
По умолчанию

Турбо Паскаль 7.1
Василий15 вне форума Ответить с цитированием
Старый 13.05.2016, 12:57   #6
Dvoishnik
Форумчанин
 
Регистрация: 12.02.2011
Сообщений: 808
По умолчанию

должно помочь
Терпение!Дежурный экстрасенс скоро свяжется с вами!
Dvoishnik вне форума Ответить с цитированием
Старый 13.05.2016, 13:04   #7
Василий15
Пользователь
 
Регистрация: 07.05.2016
Сообщений: 27
По умолчанию

Спасибо. Но как реализовать решение через использование динамических объектов и виртуальных методов?
Василий15 вне форума Ответить с цитированием
Старый 13.05.2016, 14:03   #8
Василий15
Пользователь
 
Регистрация: 07.05.2016
Сообщений: 27
По умолчанию

попробовал так:

Код:
uses crt, graphABC;
begin
randomize;
  repeat {цикл прерывается нажатием любой клавиши} 
   window.Clear;
   brush.Color:=(Random(clGreen,clBlack,clBlue));
   ellipse(100,50,200,150);
   brush.Color:=(Random(clGreen,clBlack,clBlue));
   ellipse(100,200,200,300);
   Delay(Random(1000)); {задержка } 
  until KeyPressed; 
end.
Но ругается на строку с random. Как задать случайный цвет в цикле?
Василий15 вне форума Ответить с цитированием
Старый 13.05.2016, 14:30   #9
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

всё просто, в Pascal ABC.NET есть специальный "случайный" цвет:
clRandom

например,
Код:
   brush.Color:=clRandom;

p.s. только не понимаю, как это поможет Вам решить проблему с использованием динамических объектов и виртуальных методов.
В этом примере вашей реализации ООП совсем нет.

Последний раз редактировалось Serge_Bliznykov; 13.05.2016 в 14:37.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 13.05.2016, 14:36   #10
Василий15
Пользователь
 
Регистрация: 07.05.2016
Сообщений: 27
По умолчанию

Большое спасибо.
Василий15 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
графика в Pascal ABC Валера146 Паскаль, Turbo Pascal, PascalABC.NET 1 14.01.2015 22:08
Графика в Pascal ABC Nil09511 Помощь студентам 0 24.12.2014 00:21
графика в Pascal ABC Анна_ Помощь студентам 1 30.03.2012 19:51
Графика Pascal ABC maxon56 Помощь студентам 2 24.04.2011 19:18