Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
mo0nl1ght
0 / 0 / 0
Регистрация: 04.11.2014
Сообщений: 20
1

Вывести на экран монитора круг светло-синего цвета и эллипс светло-фиолетового

11.05.2015, 20:39. Просмотров 888. Ответов 2
Метки нет (Все метки)

Вывести на экран монитора круг светло-синего цвета и элипс светло-фиолетового таким образом, что б они менялись своими местами(циклично).
Буду очень признателен, так-как времени разбирать нету, а гуглил уже всё.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.05.2015, 20:39
Ответы с готовыми решениями:

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

Вывести на экран монитора вертикальную строку текста длиной не более десяти символов светло-синего (LightBlue) цвета
Вывести на экран монитора вертикальную строку текста длиной не более десяти символов светло-синего...

Вывести на экран монитора шестиугольник светло-красного цвета
Вывести на экран монитора шестиугольник светло-красного (LightRed) цвета таким образом, чтобы...

Вывести на экран монитора пятиугольник желтогоцвета и шестиугольник светло-красного цвета
Вывести на экран монитора пятиугольник желтого (Yellow) цвета и шестиугольник светло-красного...

Вывести на экран монитора пятиугольник желтого (Yellow) цвета и шестиугольник светло-красного (LightRed)...
Помогите пожалуйста написать такую программу: Вывести на экран монитора пятиугольник желтого...

2
Joy
Эксперт Pascal/Delphi
2169 / 1197 / 1437
Регистрация: 29.08.2014
Сообщений: 4,387
12.05.2015, 06:07 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses graph,crt;
var
  gd,gm:integer;
  ok:boolean;
procedure dr(k:boolean);
begin
    clearviewport;
    setcolor(lightblue);
    setfillstyle(1,lightblue);
    if k then
      fillellipse(getmaxx div 10,getmaxy div 10,getmaxy div 20,getmaxy div 20)
    else
      fillellipse(getmaxx-getmaxx div 10,getmaxy-getmaxy div 10,getmaxy div 20,getmaxy div 20);
    setcolor(lightmagenta);
    setfillstyle(1,lightmagenta);
    if k then
      fillellipse(getmaxx-getmaxx div 10,getmaxy-getmaxy div 10,getmaxy div 10,getmaxy div 20)
    else
      fillellipse(getmaxx div 10,getmaxy div 10,getmaxy div 10,getmaxy div 20)
end;
begin
  gd:=detect;
  initgraph(gd,gm,'');
  repeat
    dr(ok);
    ok:=not(ok);
    delay(1000);
  until keypressed;
  closegraph;
end.
0
Puporev
Модератор
54992 / 42295 / 29206
Регистрация: 18.05.2008
Сообщений: 99,928
12.05.2015, 06:37 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt,graph;
procedure krug(x,y,r:integer);
begin
setcolor(9);
setfillstyle(1,9);
fillellipse(x,y,r,r);
end;
procedure ellips(x,y,a,b:integer);
begin
setcolor(13);
setfillstyle(1,13);
fillellipse(x,y,a,b);
end;
var x1,x2,y,t,r,a,b:integer;
begin
x1:=0;
initgraph(x1,x2,'');
x1:=getmaxX div 4;
x2:=3*x1;
y:=getmaxY div 2;
r:=y div 3;
b:=r;
a:=r+r div 2;
repeat
krug(x1,y,r);
ellips(x2,y,a,b);
delay(1000);
cleardevice;
t:=x1;
x1:=x2;
x2:=t;
until keypressed;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.05.2015, 06:37

Вывести на экран монитора горизонтальную строку текста длиной не более двадцати символов светло-красного (LightRed) цвета
Вывести на экран монитора горизонтальную строку текста длиной не более двадцати символов...

Вывести на экран монитора горизонтальную строку текста длиной не более двадцати символов светло-зеленого
1. Очистить экран монитора и при необходимости установить требуемый цвет фона. 2. Вывести один...

Вывести на экран монитора две вертикальных строки текста длиной не более десяти символов светло-зеленого цвета
Нужна помощь по Паскалю, т.к. я - :-| Вывести на экран монитора две вертикальных строки текста...


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

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

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