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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 22.01.2012, 18:57   #1
Gomer_alkAn
Новичок
Джуниор
 
Регистрация: 22.01.2012
Сообщений: 1
По умолчанию Рисование в Паскале АВС

Помогите нарисовать картинку (снизу) в паскаль АВС пол дня уже сижу(rectangle,line,circle)
Изображения
Тип файла: jpg светфор-человечки.jpg (13.2 Кб, 194 просмотров)
Gomer_alkAn вне форума Ответить с цитированием
Старый 22.01.2012, 19:39   #2
arrowsf1
Пользователь
 
Аватар для arrowsf1
 
Регистрация: 22.01.2012
Сообщений: 97
По умолчанию

если честно то надо копипастить БМП фаил
так проще
Там если с какогота символа начать читать то получается картинка
Модераторам: не баньте, у мя такие полезные советы, они стоющие

Последний раз редактировалось arrowsf1; 22.01.2012 в 19:42.
arrowsf1 вне форума Ответить с цитированием
Старый 23.01.2012, 12:30   #3
warca
Пользователь
 
Регистрация: 14.10.2011
Сообщений: 51
По умолчанию

ну а в чем проблема рисования то ? не можете круг,квадрат поставить?и в нужное место экрана?
warca вне форума Ответить с цитированием
Старый 23.01.2012, 12:43   #4
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

Цитата:
если честно то надо копипастить БМП фаил
так проще
Ректальная тонзиллэктомия?
Цитата:
Помогите нарисовать картинку
Нарисуй на листочке в клеточку, проставь координаты узловых точек, а потом просто перенеси их в паскаль с сохранением координат.
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума Ответить с цитированием
Старый 23.01.2012, 13:23   #5
arrowsf1
Пользователь
 
Аватар для arrowsf1
 
Регистрация: 22.01.2012
Сообщений: 97
По умолчанию

Я никогда не умел рисовать в такой графике. Так что не обессуть.
Модераторам: не баньте, у мя такие полезные советы, они стоющие
arrowsf1 вне форума Ответить с цитированием
Старый 23.01.2012, 14:04   #6
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

такие два "уродца" устроят?

Код:
uses GraphABC;
procedure DrawTwo_Men;
begin
   Rectangle( 261, 144, 343, 74 );
   Ellipse( 291, 82, 311, 102);
   Line( 301, 101, 301, 126 );
   Line( 301, 126, 293, 138 );
   Line( 292, 139, 286, 138 );
   Line( 302, 127, 314, 139 );
   Line( 314, 139, 320, 139 );
   Line( 301, 107, 292, 121 );
   Line( 301, 109, 312, 120 );
   Rectangle( 261, 214, 343, 144 );
   Ellipse( 291, 152, 311, 172);
   Line( 301, 171, 312, 192 );
   Line( 309, 192, 301, 204 );
   Line( 300, 205, 294, 204 );
   Line( 313, 191, 325, 203 );
   Line( 319, 205, 326, 205 );
   Line( 301, 177, 292, 191 );
   Line( 304, 177, 322, 182 );
   Line( 302, 214, 302, 276 );
   Line( 275, 278, 334, 278 );
end;

begin
   DrawTwo_Men;
end.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задания в Паскале АВС Jenny_19 Паскаль, Turbo Pascal, PascalABC.NET 1 21.11.2011 19:27
Нужно написать программу в паскале авс!!! Саранск-сити Паскаль, Turbo Pascal, PascalABC.NET 2 17.05.2010 19:30
Нужно написать программу в Паскале авс Саранск-сити Паскаль, Turbo Pascal, PascalABC.NET 2 04.05.2010 19:48
Вычислить параметр треугольника АВС в паскале. Freeman_DR Паскаль, Turbo Pascal, PascalABC.NET 4 26.10.2008 21:11