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

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

07.04.2014, 11:32. Просмотров 1464. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

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

Решение

Рожу можешь переделать
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
uses graph,crt;
procedure Smail(x,y,r,c1,c2,c3:integer);
begin
setfillstyle(1,c1);
fillellipse(x,y,r,r);
setcolor(c1);
circle(x,y,r);
setcolor(c2);
setfillstyle(1,c2);
fillellipse(x-3,y-3,2,2);
fillellipse(x+3,y-3,2,2);
setcolor(c3);
Arc(x,y+5,0,180,3);
end;
var x,y,r,d:integer;
    k:char;
begin
x:=0;
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
r:=8;
outtextXY(x-80,20,'Upravlenie - Strelki');
outtextXY(x-50,40,'Exit - Esc');
Smail(x,y,r,14,9,8);
repeat
if keypressed then
 begin
  k:=readkey;
  if k=#0 then k:=readkey;
  case k of
  #80:begin
      delay(100);
      Smail(x,y,r,0,0,0);
      if y>getmaxY-2*r then d:=0
      else d:=10;
      y:=y+d;
      Smail(x,y,r,14,9,8);
      end;
  #72:begin
      delay(100);
      Smail(x,y,r,0,0,0);
      if y<50+2*r then d:=0
      else d:=10;
      y:=y-d;
      Smail(x,y,r,14,9,8);
      end;
  #77:begin
      delay(100);
      Smail(x,y,r,0,0,0);
      if x>getmaxX-2*r then d:=0
      else d:=10;
      x:=x+d;
      Smail(x,y,r,14,9,8);
      end;
  #75:begin
      delay(100);
      Smail(x,y,r,0,0,0);
      if x<2*r then d:=0
      else d:=10;
      x:=x-d;
      Smail(x,y,r,14,9,8);
      end;
  #27:exit;
  end;
 end;
until k=#27;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.04.2014, 11:40

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

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

Написать программу, которая рисует на экране каждый ромб с задержкой по времени в 1000 мс. После полной прорисовки стирать изображение и повторно выво
Написать программу, которая рисует на экране каждый ромб с задержкой по времени в 1000 мс. После...

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

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


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

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

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