![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 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. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задали задание по паскале нарисовать флаг-Тувалу | 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 |