Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/10: Рейтинг темы: голосов - 10, средняя оценка - 4.80
Mityai697
1 / 1 / 0
Регистрация: 25.01.2012
Сообщений: 14
1

Нарисовать улитку

03.02.2012, 17:27. Просмотров 1800. Ответов 5
Метки нет (Все метки)

помогите нарисовать рисунок
1
Миниатюры
Нарисовать улитку  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.02.2012, 17:27
Ответы с готовыми решениями:

Графика. Нарисовать улитку
вот рисунок, помогите пожалуйста

Модуль Graph: нарисовать улитку
http://img138.imageshack.us/i/ulitka.jpg/ подскажите как эту хрень...

Изобразить улитку паскаля
Изобразить улитку паскаля,уравнение которой в полярной системе координат:\rho...

Нарисовать флаг, нарисовать график y=ctg x Нарисовать анимацию
Дело таково у меня сейчас практика, где я очень не успиваю сделать все свои...

Задача про улитку.
Каждый солнечный день улитка сидящая на дереве поднимается вверх на 2 см а...

5
Lyudashka
2 / 2 / 3
Регистрация: 03.02.2012
Сообщений: 8
03.02.2012, 17:52 2
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

я вот рисовала такое, если знаешь как ччего использовать, то легко переделаешь.

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
Program grafik;
uses graph;
 var gd, gm, i, x, y:integer; s: string;
 begin
 initGraph(gd,gm,' ');
 
 setcolor(5);
 rectangle(1,479,639,1);
 setcolor(15);
 setfillstyle(1,15);
 floodfill(150,20,15);
 {colnce***********************************}
 setcolor(1);
  circle(30,20,60);
 setfillstyle(1,14);
 floodfill(20,20,1);
 {gorizont*********************************}
 setcolor(0);
 arc(0,250,41,130,200);
 arc(235,300,36,115,200);
 arc(550,550,55,113,400);
  line(0,0,0,484);
  line(639,0,639,484);
  line(644,479,0,479);
 setfillstyle(1,10);
 floodfill(120,210,0);
 rectangle(1,479,639,1);
 {rechka*************************************}
 setcolor(1);
  arc(120,500,83,130,350);
  arc(170,451,60,99,300);
  arc(120,530,83,130,350);
  arc(170,481,61,95,300);
  line(312,187,439,274);
  line(312,216,412,302);
  arc(582,478,60,126,250);
  arc(442,324,140,289,40);
  arc(587,248,218,290,180);
  setcolor(1);
  setfillstyle(1,1);
  rectangle(1,479,639,1);
  floodfill(530,300,1);
  setcolor(14);
  arc(587,258,60,120,20);arc(557,278,60,120,20);arc(620,298,60,120,20);
  arc(550,300,60,120,20);arc(480,310,60,120,20);arc(490,278,60,120,20);
  arc(587,330,60,120,20);arc(557,350,60,120,20);arc(620,340,60,120,20);
  arc(510,360,60,120,20);arc(480,380,60,120,20);arc(587,400,60,120,20);
  {luchi colnca****************************}
  setcolor(14);
  line(10,30,25,170);line(15,30,50,165);line(20,30,75,160);
  line(25,30,100,155);line(30,30,140,155);line(35,30,185,145);
  line(35,25,235,120);line(35,20,280,90);line(35,15,290,60);
  {derevo***********************************}
  setcolor(4);
  line(535,50,525,170);
  line(570,50,580,170);
  line(530,55,575,55);
  line(525,170,513,180);
  line(513,180,540,175);
  line(540,175,550,190);
  line(550,190,560,175);
  line(560,175,595,185);
  line(595,185,580,170);line(589,180,570,170);line(515,180,539,170);
  line(575,130,629,50);line(574,100,629,50);
  line(528,140,470,10);line(531,100,470,10);
  rectangle(1,479,639,1);
  setfillstyle(1,6);floodfill(550,150,4);
  setfillstyle(1,6);floodfill(578,120,4);
  setfillstyle(1,6);floodfill(526,120,4);
  setcolor(10);
  rectangle(1,479,639,1);
  arc(490,10,100,280,40);
  arc(543,10,213,320,70);
  arc(620,20,230,345,50);
  setfillstyle(1,10);
  floodfill(600,5,10);
  rectangle(1,479,639,1);
 {domik******************************************}
  setcolor(0);
  line(0,240,120,240);line(120,240,240,320);line(240,320,0,320);
  setfillstyle(1,4);floodfill(2,242,0);
  Line(90,240,210,320);Line(60,240,180,320);Line(30,240,150,320);
  Line(0,240,120,320);Line(0,260,90,320);Line(0,280,60,320);
  Line(0,300,30,320);line(220,320,220,450);line(220,450,0,450);
  line(0,280,30,280);line(0,260,30,260);line(60,300,90,300);line(0,300,30,300);
  line(60,280,90,280);line(60,260,90,260);line(120,300,150,300);
  line(120,280,150,280);line(120,260,150,260);line(180,300,210,300);
  setfillstyle(1,3);floodfill(15,340,0);
  rectangle(10,350,100,400);setfillstyle(1,7);floodfill(15,395,0);
  rectangle(110,350,200,400);setfillstyle(1,7);floodfill(115,395,0);
  line(10,375,100,375);line(55,375,55,400);line(10,375,55,350);line(55,350,100,375);
  line(110,375,200,375);line(155,375,155,400);line(110,375,155,350);line(155,350,200,375);
  setfillstyle(1,9);floodfill(15,355,0);setfillstyle(1,9);floodfill(95,355,0);
  setfillstyle(1,9);floodfill(115,355,0);setfillstyle(1,9);floodfill(195,355,0);
  {zabor*****************************************}
  setcolor(6);
 Rectangle(0,420,280,430);rectangle(0,444,280,454);
  setfillstyle(1,6);floodfill(5,422,6);setfillstyle(1,6);floodfill(5,446,6) ;
  x:=2;y:=410;
  for i:=1 to 12 do begin
    rectangle(x,y,x+15,y+60);
    setfillstyle(1,6);floodfill(x+3,y+2,6);
    setfillstyle(1,6);floodfill(x+3,y+30,6);
    setfillstyle(1,6);floodfill(x+3,y+55,6);
    x:=x+25;
  end;
  {kystarnik**************************************}
  setcolor(2);
  ellipse(350,400,0,360,60,25);
  setfillstyle(1,2);floodfill(350,400,2);
  ellipse(380,420,0,360,40,20);
  setfillstyle(1,2);floodfill(380,430,2);
  setcolor(0);
  line(310,410,330,460);line(330,405,345,460);line(365,400,360,460);
  line(383,420,375,460);line(385,460,400,430);
  line(325,445,330,395);
  line(315,420,325,395);line(310,410,295,395);line(310,410,320,390);
  line(338,433,345,387);line(361,440,350,393);line(362,435,380,390);
  line(378,445,370,410);line(390,450,383,395);line(387,430,400,390);
  {lebed*******************************************}
  setcolor(15);
  ellipse(450,340,0,360,20,5);
  line(423,335,430,340);line(423,335,433,337);
  line(462,336,457,320);line(468,337,460,320);
  arc(462,317,90,210,5);line(460,320,470,317);line(470,317,462,312);
  setfillstyle(1,15);floodfill(450,340,15);
  setfillstyle(1,15);floodfill(428,338,15);
  setfillstyle(1,15);floodfill(464,334,15);
  setcolor(0);
  line(462,315,462,314);
 
 
 readln;
 end.
1
Puporev
03.02.2012, 18:25
  #3
 Комментарий модератора 
Цитата Сообщение от Lyudashka Посмотреть сообщение
то легко переделаешь.
На все случаи одна картинка?
А не проще заново нарисовать, все равно ни одна линия не совпадает с тем что нужно.
Еще раз выложите свое творчемство для переделки, накажу.
0
Mityai697
1 / 1 / 0
Регистрация: 25.01.2012
Сообщений: 14
04.02.2012, 13:16  [ТС] 4
помогите пожалуйста, мы эту тему не изучали(((!

Добавлено через 16 часов 3 минуты
я ту начал а дальше вообще нее знаю, не получается не чего

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
uses graph,crt;
var gd,gm:integer;
begin
clrscr;
gd:=Detect;
InitGraph(gd,gm,'E:\tp7\tpu');
SetGraphMode(1);
 setcolor(white);
  setfillstyle(1,Darkgray);
Circle(320,175,70);
  setcolor(white);
  setfillstyle(1,1);
Circle(320,200,35);
Line(250,230,380,230);
Line(250,240,380,240);
arc(250,235,100,5,7);
FloodFill(320,175,15);
PieSlice(450,135,180,360,7);
circle(450,125,30);
Circle(460,120,6);
Circle(440,120,6);
  setcolor(black);
  setfillstyle(1,1);
Circle(440,120,3);
Circle(460,120,3);
putpixel(639,349,15);
readkey;
CloseGraph;
end.
помогите пожалуйста!!!
0
Lyudashka
2 / 2 / 3
Регистрация: 03.02.2012
Сообщений: 8
06.02.2012, 18:03 5
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Вот нарисовала! посмотри, пойдет нет?

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
Program grafik;
uses graph;
 var gd, gm, i, x, y:integer; s: string;
 begin
 initGraph(gd,gm,' ');
 
 setcolor(5);
 rectangle(1,479,639,1);
 setcolor(15);
 setfillstyle(1,15);
 floodfill(150,20,15);
 
  {lebed*******************************************}
  setcolor(0);
  ellipse(250,240,0,360,120,80);
  setcolor(2);setfillstyle(1,14);floodfill(250,240,0);
  setcolor(0);
  ellipse(250,250,0,360,75,65);
  setfillstyle(1,15);floodfill(250,240,0);
  ellipse(250,250,0,360,60,60);
  setfillstyle(1,3);floodfill(250,240,0);
  line(150,320,350,320);line(150,350,360,350);
  line(150,320,135,335);line(135,335,150,350);
  line(350,320,410,150);line(360,350,422,180);
  ellipse(450,150,0,360,40,40);
  setfillstyle(1,14);floodfill(450,150,0);
  setfillstyle(1,14);floodfill(155,325,0);
  ellipse(440,150,0,360,10,10);ellipse(465,150,0,360,10,10);
  setfillstyle(1,6);floodfill(440,150,0);floodfill(465,150,0);
  ellipse(440,150,0,360,3,3);ellipse(465,150,0,360,3,3);
  setfillstyle(1,0);floodfill(440,150,0);floodfill(465,150,0);
  ellipse(450,175,180,0,16,10);ellipse(450,175,180,0,16,3);
  setfillstyle(1,0);floodfill(440,178,0);
  line(430,117,415,90);line(470,117,490,90);
 
 
 readln;
 end.
1
Puporev
Модератор
55411 / 42542 / 29396
Регистрация: 18.05.2008
Сообщений: 100,636
06.02.2012, 18:56 6
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Тоже кому-то на днях рисовал, лень тему искать.
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
uses graph;
var x,y:integer;
begin
initgraph(x,y,'');
x:=getmaxX  div 3;
y:=getmaxY div 2;
setbkcolor(15);
setcolor(7);
ellipse(x,y,0,360,100,80);
setfillstyle(1,7);
floodfill(x,y,7);
setcolor(8);
ellipse(x-20,y+20,0,360,70,50);
setfillstyle(1,8);
floodfill(x-5,y+20,8);
setcolor(15);
ellipse(x-20,y+20,0,360,70,50);
setcolor(7);
setfillstyle(1,7);
line(x-90,y+80,x+100,y+80);
line(x-95,y+90,x+110,y+90);
line(x-90,y+80,x-95,y+90);
line(x+100,y+80,x+150,y-20);
line(x+110,y+90,x+155,y-10);
line(x+150,y-20,x+155,y-10);
floodfill(x-92,y+85,7);
circle(x+165,y-45,35);
floodfill(x+165,y-45,7);
setlinestyle(0,0,3);
line(x+150,y-75,x+140,y-105);
line(x+180,y-75,x+190,y-105);
setlinestyle(0,0,1);
setcolor(15);
circle(x+150,y-55,10);
setfillstyle(1,15);
floodfill(x+150,y-55,15);
circle(x+180,y-55,10);
floodfill(x+180,y-55,15);
setcolor(8);
setfillstyle(1,8);
circle(x+150,y-55,7);
floodfill(x+150,y-55,8);
circle(x+180,y-55,7);
floodfill(x+180,y-55,8);
arc(x+165,y-35,200,350,15);
arc(x+165,y-44,220,320,20);
floodfill(x+165,y-22,8);
readln
end.
2
06.02.2012, 18:56
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.02.2012, 18:56

Нарисовать улитку
Создайте модуль, в котором будет храниться процедура создания следующей...

Нарисовать улитку
Вот это

Нарисовать Улитку Паскаля
Как в чатре нарисовать улитку паскаля, к примеру для параболы я делаю так...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru