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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.01.2011, 21:43   #1
kiil333
Новичок
Джуниор
 
Регистрация: 19.01.2011
Сообщений: 1
По умолчанию не могу доресовать флаг! значок один..


не могу доресовать флаг Гренада один значок находится слева тип как листов вот его не могу доресовать посмотрите и помогите пожалуйста..
вот текст програмки:

uses crt,graph;

var grmode,grdriver:integer;
begin
clrscr;
grdriver:=detect;
initgraph (grdriver, grmode, 'c:\Pascal\BGI');
if graphresult <>0 then halt;
setcolor(4);
line(50,50,600,50);
line(50,50,50,400);
line(50,400,600,400);
line(600,50,600,400);
setfillstyle(1,4);
floodfill(100,100,4);
setcolor(14);
rectangle(90,350,555,100);
setfillstyle(1,14);
floodfill(150,300,14);
setcolor(2);
line(555,350,90,100);
line(555,100,90,350);
line(555,100,555,350);
line(90,100,90,350);
setfillstyle(1,2);
floodfill(100,120,2);
setfillstyle(1,2);
floodfill(550,110,2);
setcolor(4);
circle(323,225,35);
setfillstyle(1,4);
floodfill(330,230,4);
setcolor(14);
line(215,50,210,67);
line(210,67,193,67);
line(193,67,207,78);
line(207,78,202,94);
line(202,94,215,83);
line(215,83,228,94);
line(228,94,224,78);
line(224,78,237,67);
line(237,67,220,67);
line(220,67,215,50);
setfillstyle(1,14);
floodfill(215,60,14);


setcolor(14);
line(215+109,50,210+109,67);
line(210+109,67,193+109,67);
line(193+109,67,207+109,78);
line(207+109,78,202+109,94);
line(202+109,94,215+109,83);
line(215+109,83,228+109,94);
line(228+109,94,224+109,78);
line(224+109,78,237+109,67);
line(237+109,67,220+109,67);
line(220+109,67,215+109,50);
setfillstyle(1,14);
floodfill(215+109,60,14);

setcolor(14);
line(215+218,50,210+218,67);
line(210+218,67,193+218,67);
line(193+218,67,207+218,78);
line(207+218,78,202+218,94);
line(202+218,94,215+218,83);
line(215+218,83,228+218,94);
line(228+218,94,224+218,78);
line(224+218,78,237+218,67);
line(237+218,67,220+218,67);
line(220+218,67,215+218,50);
setfillstyle(1,14);
floodfill(215+218,60,14);

setcolor(14);
line(215,50+303,210,67+303);
line(210,67+303,193,67+303);
line(193,67+303,207,78+303);
line(207,78+303,202,94+303);
line(202,94+303,215,83+303);
line(215,83+303,228,94+303);
line(228,94+303,224,78+303);
line(224,78+303,237,67+303);
line(237,67+303,220,67+303);
line(220,67+303,215,50+303);
setfillstyle(1,14);
floodfill(215,60+303,14);


setcolor(14);
line(215+109,50+303,210+109,67+303) ;
line(210+109,67+303,193+109,67+303) ;
line(193+109,67+303,207+109,78+303) ;
line(207+109,78+303,202+109,94+303) ;
line(202+109,94+303,215+109,83+303) ;
line(215+109,83+303,228+109,94+303) ;
line(228+109,94+303,224+109,78+303) ;
line(224+109,78+303,237+109,67+303) ;
line(237+109,67+303,220+109,67+303) ;
line(220+109,67+303,215+109,50+303) ;
setfillstyle(1,14);
floodfill(215+109,60+303,14);

setcolor(14);
line(215+218,50+303,210+218,67+303) ;
line(210+218,67+303,193+218,67+303) ;
line(193+218,67+303,207+218,78+303) ;
line(207+218,78+303,202+218,94+303) ;
line(202+218,94+303,215+218,83+303) ;
line(215+218,83+303,228+218,94+303) ;
line(228+218,94+303,224+218,78+303) ;
line(224+218,78+303,237+218,67+303) ;
line(237+218,67+303,220+218,67+303) ;
line(220+218,67+303,215+218,50+303) ;
setfillstyle(1,14);
floodfill(215+218,60+303,14);
line(325,186,315,214);
line(315,214,290,214);
line(290,214,309,232);
line(309,232,301,256);
line(301,256,325,240);
line(325,240,347,256);
line(347,256,338,232);
line(338,232,357,214);
line(357,214,333,214);
line(333,214,325,186);
setfillstyle(1,14);
floodfill(325,190,14);


readkey;
end.
kiil333 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задали задание по паскале нарисовать флаг-Тувалу StudentTalne Паскаль, Turbo Pascal, PascalABC.NET 2 16.01.2011 22:40
Как работает флаг WS_EX_LAYOUTRTL ZvEr_HaCkEr Общие вопросы Delphi 1 19.09.2010 18:22
Не могу решить один вопрос.!!Хелп.....EXEL!!изображения !!! Shlema Microsoft Office Excel 13 21.09.2009 16:37
Нарисовать флаг сухопутных войск РФ?! Файзулка Помощь студентам 2 02.06.2009 08:58
Нарисовать флаг РФ (C++) NoiseEP Помощь студентам 5 15.03.2009 10:21