Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

Нужно нарисовать и разукрасить Дошел до определенного момента, дальше не знаю как
Код:

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 Кб, 21 просмотров)

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



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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




02:20.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru