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

Написать программу, которая рисует на экране веселую рожицу желтого цвета

01.04.2014, 23:36. Просмотров 2169. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста. Написать программу, которая рисует на экране веселую рожицу желтого цвета с перемещением в разных направлениях по экрану с задержкой в 200 мс.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.04.2014, 23:36
Ответы с готовыми решениями:

Написать программу, которая рисует на экране грустную рожицу
Помогите плиз!

Написать программу, которая рисует на экране грустную рожицу
Написать программу, которая рисует на экране грустную рожицу с перемещением по экрану с помощью...

Нарисовать на экране веселую рожицу желтого цвета
1.Написать программу, которая рисует на экране веселую рожицу желтого цвета. Кто нибудь помогите)=)

Разработать программу, которая вычерчивает на экране веселую рожицу желтого цвета
Разработать программу, которая вычерчивает на экране веселую рожицу желтого цвета. Размер одной...

1
Модератор
61205 / 45878 / 31667
Регистрация: 18.05.2008
Сообщений: 110,486
02.04.2014, 09:47 2
Лучший ответ Сообщение было отмечено frisek как решение

Решение

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
uses crt,graph;
var x,y:integer;
    size:word;
    p:pointer;
begin
initgraph(x,y,'');
size:=ImageSize(10,10,40,40);{участок экрана где рисуем картинку}
setcolor(14);
setfillstyle(1,14);
fillellipse(25,25,15,15);
setcolor(9);
setfillstyle(1,9);
fillellipse(18,20,2,2);
fillellipse(32,20,2,2);
setcolor(0);
line(25,22,22,30);
line(22,30,25,30);
arc(25,25,200,340,10);
getmem(p,size);{выделяем память}
getimage(10,10,40,40,p^);{запоминаем}
cleardevice;{очищаем экран}
setcolor(12);
outtextXY(getmaxX div 2-30,10,'Exit any key');
repeat
x:=30+random(getmaxX-60);{определяем координаты}
y:=40+random(getmaxY-60);
putimage(x,y,p^,1);{выводим рисунок}
delay(1000);{задержка, 200 мс очень мало}
putimage(x,y,p^,1);{стираем}
until keypressed;{нажали клавишу-выход}
freemem(p,size);{освобождаем память}
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.04.2014, 09:47

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

Написать программу, которая рисует на экране грустную рожицу
Написать программу, которая рисует на экране грустную рожицу.

Написать программу, которая рисует на экране паровоз
Написать программу, которая рисует на экране паровоз. Pascal ABC/Turbo Pascal

Написать программу, которая рисует на экране трактор
Написать программу, которая рисует на экране трактор

Написать программу, которая рисует на экране шестиугольник
Ребята помогите с этим заданием, до этого не делал такие. Написать программу, которая рисует на...

Написать программу, которая рисует на экране решётку.
Написать программу, которая рисует на экране решётку.

Написать программу,которая рисует на экране точечный график функции
здравствуйте! помогите пожалуйста решить задачу,а то не как не получается(((вот условие: Написать...


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

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

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