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

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

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

можете помочь Изобразить вишенку, которая меняет мимику (улыбка-грусть)

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

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

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

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

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

2
Puporev
Модератор
54215 / 41848 / 28920
Регистрация: 18.05.2008
Сообщений: 98,508
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