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

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

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.04.2017, 23:22   #1
prooo
Новичок
Джуниор
 
Регистрация: 17.04.2017
Сообщений: 1
По умолчанию Графика в Паскаль

Нужно нарисовать и разукрасить Дошел до определенного момента, дальше не знаю как
Код:
uses Graph;
var grDriver:integer;
grMode:integer;
ErrCode:integer;
begin
grDriver:=detect;
InitGraph(grDriver,grMode,'');
errCode:=graphResult;
if errCode=grok then
begin
setcolor(yellow);
arc(600,150,0,180,50);
// arc(675,325,0,135,50);
circle(675,325,50);
circle(525,325,50);
circle(775,425,50);
circle(425,425,50);
//arc(775,425,90,180,50);
// arc(425,425,135,315,50);
line(550,150,389,389);
line(650,150,810,389);
setfillstyle(solidfill,yellow);
setcolor(black);
circle(600,250,50);
readln; closegraph;
end
else writeln('Oshibka', grapherrormsg(errcode));
end.
Изображения
Тип файла: png Безымянный.png (13.4 Кб, 143 просмотров)

Последний раз редактировалось Аватар; 18.04.2017 в 00:00.
prooo вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль.Графика VikkyVi Помощь студентам 3 28.12.2015 17:57
Графика в Паскаль DeyaInferi Помощь студентам 0 20.11.2010 21:06
графика паскаль locky7fm Помощь студентам 8 19.04.2009 23:41
Паскаль графика BuTeK1 Паскаль, Turbo Pascal, PascalABC.NET 0 08.01.2009 11:01