Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Joy
Эксперт Pascal/Delphi
2169 / 1197 / 1437
Регистрация: 29.08.2014
Сообщений: 4,387
12.05.2015, 06:07 0

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

12.05.2015, 06:07. Просмотров 889. Ответов 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2015, 06:07
Готовые ответы и решения:

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

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

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

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

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

2
Другие темы раздела
Turbo Pascal Решение задачи методом "Разделяй и властвуй" http://www.cyberforum.ru/turbo-pascal/thread1443479.html
Помогите, пожалуйста, решить данную задачу методом "разделяй и властвуй" Var a,x,i,q,t,n:integer; begin writeln('Введите число в пределе от 1000 до 10000'); readln(x); for i:=1 to x do begin...
Turbo Pascal Найти стоимость покупки с учетом скидки и наличия дисконтной карточки Помогите, пожалуйста, составить программу в паскале: Найти стоимость покупки с учетом скидки и наличия дисконтной карточки. Сумма скидки по дисконту - 20%. Сумма скидки: покупка от 100 гривен - 5%;... http://www.cyberforum.ru/turbo-pascal/thread1443456.html
Turbo Pascal Проверить принадлежность этой точки заштрихованной области
Ввести с клавиатуры координаты точки (переменные x и y). Проверить принадлежность этой точки заштрихованной области. Пересечение круга и прямоугольника внутреняя область
Определить, является ли введенный символ латинской буквой Turbo Pascal
Ввести символ с клавиатуры. Определить, является ли этот символ: - латинской буквой; - русской буквой; - знаком арифметической операции (+, -, *, /); - другим символом.
Turbo Pascal Задание с шариком, не получается нормально написать силу трения и тп, чтобы законы учитывались http://www.cyberforum.ru/turbo-pascal/thread1443430.html
Здравствуйте, Нужно сделать задание с шариком,не могу нормально написать силу трения и тп,чтобы законы учитывались Суть иллюстрации: o По прямоугольной области выделенной на экране (аналог...
Turbo Pascal Перевод из одной системы счисления в другую с выбором точности программой Здравствуйте! Нужна программа перевода из одной СС в другую с точностью после запятой выбираемой программой,то есть не вручную Вот рабочая программа,которая уже выкладывалась пользователем... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru