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

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

21.03.2012, 11:23. Просмотров 1452. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

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

1
Стрелок
42 / 42 / 27
Регистрация: 29.02.2012
Сообщений: 73
21.03.2012, 17:31 #2
Лучший ответ Сообщение было отмечено Влад Богорад как решение

Решение

Тестировалось на Borland Pascal.
Не забудьте заменить 'F:\Pascal\BP\BGI\' на свой путь до папки BGI

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
69
program zz;
Uses Graph,Crt;
label lab;
var Driver,Razreshenie,ErrCode:integer;
    x,y:integer;
    pass:string;
 
Procedure DrawElipse1;
begin
Ellipse(x,y+1,0,360,50,30);
SetColor(Blue);
 
SetBkColor(Blue);
 
Ellipse(x,y,0,360,50,30);
SetColor(Green);
end;
 
Procedure DrawElipse2;
begin
Ellipse(x,y-1,0,360,50,30);
SetColor(Blue);
 
SetBkColor(Blue);
 
Ellipse(x,y,0,360,50,30);
SetColor(13);
end;
 
begin
x:=320;
y:=0;
Driver:=VGA;
Razreshenie:=VGAHi;
pass:='F:\Pascal\BP\BGI\';
InitGraph(Driver,Razreshenie,pass);
ErrCode:=GraphResult;
 if ErrCode=grOk then
  begin
lab:
   while y<450 do
    begin
     DrawElipse1;
     y:=y+1;
      if keypressed then
       begin
        exit;
       end;
    end;
 
   while y>30 do
    begin
     DrawElipse2;
     y:=y-1;
      if keypressed then
       begin
        exit;
       end;
    end;
   goto lab;
  end
 else
  begin
   writeln;
   write('Code Error: ');
   write(ErrCode);
  end;
Readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.03.2012, 17:31

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

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

Нарисовать окружность радиуса 150 пикселей красного цвета с центром в середине экрана
помогите пожалуйста


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

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

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