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

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

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


http://www.cyberforum.ru/turbo-pascal/thread534996.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.03.2012, 11:23
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Нарисовать на экране овал зеленого цвета, который движется по вертикали по центру экрана (Turbo Pascal):

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

Модуль 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 пикселей красного цвета с центром в середине экрана
помогите пожалуйста

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

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


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

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

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