Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Hidan_God
0 / 0 / 0
Регистрация: 09.06.2011
Сообщений: 11
1

Изобразить вишенку

16.06.2011, 16:34. Просмотров 893. Ответов 2
Метки нет (Все метки)

можете помочь Изобразить вишенку, которая меняет мимику (улыбка-грусть)
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2011, 16:34
Ответы с готовыми решениями:

Изобразить календарь
на экране отображается календарь, на котором написаны дни месяца. Красная рамка...

Изобразить n квадратов
Изобразить n квадратов, вписанных один в другой так, чтобы углы вписанных...

Изобразить цилиндр
Изобразить на экране цилиндр, выделив пунктиром невидимые линии. Вывести на...

Изобразить бегущую строку
Написать программу которая изображает ''бегущую строку' Графически'!!!

Изобразить вращающийся квадрат
Доброго времени суток! Помогите, пожалуйста, нужно вывести вращающий квадрат,...

2
Puporev
Модератор
55451 / 42564 / 29415
Регистрация: 18.05.2008
Сообщений: 100,688
16.06.2011, 17:21 2
Лучший ответ Сообщение было отмечено Hidan_God как решение

Решение

 Комментарий модератора 
Hidan_God, Не лезьте в чужие темы.


Добавлено через 43 минуты
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
uses graph,crt;
var x,y:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
outtextXY(x-50,20,'Exit - any key');
{вишенка}
setcolor(4);
setfillstyle(1,4);
circle(x-20,y,60);
floodfill(x-20,y,4);
circle(x+20,y,60);
floodfill(x+60,y,4);
setcolor(6);
setfillstyle(1,6);
line(x-2,y-58,x-3,y-118);
line(x+2,y-58,x+5,y-110);
line(x-3,y-118,x+5,y-110);
line(x-2,y-58,x+2,y-58);
floodfill(x,y-60,6);
repeat
{улыбается}
setcolor(0);
circle(x-30,y-30,10);
circle(x+30,y-30,10);
arc(x,y-10,200,340,50);
setcolor(9);
setfillstyle(1,9);
circle(x-30,y-30,5);
circle(x+30,y-30,5);
floodfill(x-30,y-30,9);
floodfill(x+30,y-30,9);
delay(2000);
setcolor(4);
circle(x-30,y-30,10);
circle(x+30,y-30,10);
arc(x,y-10,200,340,50);
setcolor(4);
setfillstyle(1,4);
circle(x-30,y-30,5);
circle(x+30,y-30,5);
floodfill(x-30,y-30,4);
floodfill(x+30,y-30,4);
{грустит}
setcolor(0);
arc(x-30,y-30,180,360,10);
arc(x+30,y-30,180,360,10);
arc(x,y+60,20,160,50);
delay(2000);
setcolor(4);
arc(x-30,y-30,180,360,10);
arc(x+30,y-30,180,360,10);
arc(x,y+60,20,160,50);
until keypressed;
end.
1
Hidan_God
0 / 0 / 0
Регистрация: 09.06.2011
Сообщений: 11
16.06.2011, 21:43  [ТС] 3
огромное спасибо!!!!!!!!!!!!!!! ^____^
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.06.2011, 21:43

Изобразить летящего комара
Ребят даны такие задачи: 1.Циссоида: x3+(x-a)y2=0, a>0. Воспользуйтесь...

График функции y=A(3*x^3-4*x^2+5*x) изобразить
Изобразить на экране дисплея графики указанных функций (A принимает значения:...

Изобразить подмигивающую рожицу
"рожица" подмигивает правым глазом


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

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

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