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

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

07.04.2011, 17:06. Просмотров 1965. Ответов 1
Метки нет (Все метки)

Помогите плиз!
0
Вложения
Тип файла: docx Рожица.docx (12.8 Кб, 74 просмотров)
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.04.2011, 17:06
Ответы с готовыми решениями:

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

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

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

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

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

Решение

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
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:integer;
    k:char;
begin
x:=0;
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
outtextXY(x-50,20,'Exit - Esc');
Smail(x,y,8,14,9,8);
repeat
if keypressed then
  begin
    k:=readkey;
    if k=#80 then
      begin
        delay(100);
        Smail(x,y,8,0,0,0);
        y:=y+10;
        Smail(x,y,8,14,9,8);
      end;
    if k=#72 then
      begin
        delay(100);
        Smail(x,y,8,0,0,0);
        y:=y-10;
        Smail(x,y,8,14,9,8);
      end;
    if k=#77 then
      begin
        delay(100);
        Smail(x,y,8,0,0,0);
        x:=x+10;
        Smail(x,y,8,14,9,8);
      end;
    if k=#75 then
      begin
        delay(100);
        Smail(x,y,8,0,0,0);
        x:=x-10;
        Smail(x,y,8,14,9,8);
      end;
    if k=#27 then exit;
  end;
until k=#27;
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.04.2011, 17:43

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

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

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

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

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


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

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

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