0 / 0 / 0
Регистрация: 08.05.2014
Сообщений: 8
1

Флаг Южной Кореи

08.05.2014, 13:35. Показов 1092. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста написать листинг флага Южной Кореи
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.05.2014, 13:35
Ответы с готовыми решениями:

Нарисовать на экране дисплея флаг РФ, Японский флаг
Нарисовать на экране дисплея флаг РФ, Японский флаг 300*200px Добавлено через 22 часа 20 минут ...

Помогите сделать флаг Южной Кореи
помогите пожалуйста сделать флаг Южной Кореи C#

Как насчет Южной Кореи?
Кто нибудь знает, как лучше попасть в Южную Корею на работу программером? Говорят, там неплохо (я...

Почему если флаг состояния потока eof поднят, то флаг good опущен?
Почему если флаг состояния потока eof поднят, то флаг good опущен? Это нонсенс, друзья. Здесь...

4
0 / 0 / 0
Регистрация: 21.04.2021
Сообщений: 3
21.04.2021, 21:56 2
Вот что есть.С закраской нормально не получается, если кто знает напишите.



Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
uses Crt,GraphABC;
begin
setwindowsize(1000,550);
rectangle(100,50,900,450);
drawcircle(500,250,120);
//два круга внутри другого
//синий
pen.color :=clblue;
SetBrushColor(Clblue);
FillCircle(560,250,60);
//красный
pen.color :=clred;
SetBrushColor(Clred);
FillCircle(440,250,60);
//закраска верхней части
pen.color :=clred;
floodfill(500,220,clred);
//закраска нижней части
pen.color :=clblue;
floodfill(500,270,clblue);
//боковые символы
// 1
 pen.color :=clblack;
 line(285,50,215,125);
 line(285,50,300,65);
 line(300,65,230,140);
 line(215,125,230,140);
 floodfill(286,55,clblack);
 
 line(310,75,240,150);
 line(310,75,325,90);
 line(325,90,255,165);
 line(240,150,255,165);
 floodfill(311,85,clblack);
 
 line(335,100,265,175);
 line(335,100,350,115);
 line(350,115,280,190);
 line(265,175,280,190);
 floodfill(336,105,clblack);
 // 2
 line(715,50,745,75);
 line(715,50,700,65);
 line(745,75,730,90);
 line(700,65,730,90);
 floodfill(716,55,clblack);
 
 line(760,88,790,112);
 line(760,88,745,103);
 line(790,112,775,127);
 line(745,103,775,127);
 floodfill(761,91,clblack);
 //////////////////////////////////////////
 line(690,75,765,135);
 line(690,75,675,90);
 line(675,90,750,150);
 line(765,135,750,150);
 floodfill(700,88,clblack);
 //////////////////////////////////////////
 line(665,101,695,126);
 line(665,101,650,116);
 line(695,126,680,141);
 line(650,116,680,141);
 floodfill(666,104,clblack);
 
 line(710,139,740,163);
 line(710,139,695,154);
 line(740,163,725,178);
 line(695,154,725,178);
 
 floodfill(711,147,clblack);
 
  // 3
  line(790,375,760,400); 
  line(790,375,775,360); 
  line(775,360,745,385);
  line(760,400,745,385); 
  floodfill(785,375,clblack);
  
  line(730,400,700,425);
  line(730,400,745,415);
  line(745,415,715,440);
  line(715,440,700,425);
   floodfill(730,420,clblack);
  ///////////////////////////////////////////////
  
  line(765,350,735,375); 
  line(765,350,750,335); 
  line(750,335,720,360);
  line(720,360,735,375);
  floodfill(760,350,clblack);
  
  line(705,375,675,400);
  line(705,375,720,390);
  line(720,390,690,415);
  line(690,415,675,400);
  floodfill(705,378,clblack);
  //////////////////////////////////////////////
  
   line(740,325,710,350); 
   line(740,325,725,310); 
   line(725,310,695,335);
   line(695,335,710,350);
   floodfill(735,325,clblack);
   
   line(680,350,650,375); 
   line(680,350,695,365);
   line(695,365,665,390); 
   line(665,390,650,375); 
    floodfill(680,355,clblack);
  // 4
  line(215,375,300,425); 
  line(215,375,228,357);
  line(228,357,312,408);
  line(312,408,300,425);
  floodfill(217,375,clblack);
  ////////////////////////////////////
  line(235,345,270,365); 
  line(270,365,285,345);
  line(285,345,250,325); 
  line(250,325,235,345);
  floodfill(237,345,clblack);
  
  line(285,375,320,395);
  line(320,395,335,375);
  line(335,375,300,355);
  line(300,355,285,375);
  floodfill(287,375,clblack);
 /////////////////////////////////
 
 line(255,315, 340, 365);
 line(255,315, 268,297);
 line(268,297, 352,348);
 line(352,348, 340, 365);
 floodfill(257,315,clblack);
 
 pen.Color:= clblack;
 textout(440,470,'ЮЖНАЯ КОРЕЯ');
0
5080 / 2652 / 2349
Регистрация: 10.12.2014
Сообщений: 10,030
22.04.2021, 04:50 3
Trap_brothel, это раздел Turbo Pascal, в котором нет модуля GraphABC.
0
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
22.04.2021, 11:28 4
JuriiMW, У него АВС.net.
Уберите из Uses Crt, закраску так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
rectangle(100,50,900,450);
Pen.color :=clRed;
Brush.Color:=ClRed;
FillPie(500,250,120,0,180);
Pen.Color:=clBlue;
Brush.Color:=ClBlue;
FillPie(500,250,120,180,360);
//два круга внутри другого
//синий
Pen.Color :=clblue;
Brush.Color:=Clblue;
FillCircle(560,250,60);
//красный
Pen.Color :=clred;
Brush.Color:=Clred;
FillCircle(440,250,60);
0
5080 / 2652 / 2349
Регистрация: 10.12.2014
Сообщений: 10,030
22.04.2021, 13:39 5
Puporev, ну, дык, он не ТС же!
0
22.04.2021, 13:39
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.04.2021, 13:39
Помогаю со студенческими работами здесь

Флаг CF
Можно как-то флаг CF да и вообще флаги переместить в переменную или сравнить с 0 например

Флаг
Нарисовать флаг Антуан и Барбуда(через команды move to(),line to(),чтоб все просто было об'яснить)...

/MP флаг
Будьте так добры, подскажите пожалуйста, где в Visual Studio 2010 можно установить флаги...

Флаг России
Помогите пожалуйтста Нужно написать программу, которая на всей поверхности формы (независимо от...

Флаг L не работает
Хочу поставить заглушку для всего того, что не подходит под описания предыдущих правил, но почему...

Флаг Танзании
помогите пожалуйста нарисовать флаг танзании попиксельно нашел код для флага,там получается только...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru