Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
bluegirl
14.02.2021 06:25 •
Другие предметы
Написать программу, которая выводит на экран флаг Олимпийских игр
Показать ответ
Ответ:
tatanavolosnova1
16.04.2019 23:00
{Рисует Олимпийский флаг}
uses Graph;
var
grDriver: integer; {драйвер}
grMode: integer; {графический режим}
grPath:string; {место расположения драйвера}
ErrCode:integer; {результат инициализации граф, режима}
begin
grDriver := VGA; { режим VGA}
grMode :=VGAHi; { разрешение 640x480}
grPath:=' '; {драйвер, файл EGAVGA.BGI, находится в текущем каталоге }
InitGraph(grDriver, grMode, grPath);
ErrCode := GraphResult;
if ErrCode <> grOk then
begin
writeln('Ошибка инициализации графического режима.');
writeln('для завершения работы программы нажмите ', '<Enter>');
readln;
Halt(l);
end;
{полотнище флага}
SetFillStyle(SolidFill,LightGray); {сплошная заливка серым цветом}
Ваг(80,80,200,135);
{ кольца}
SetColor(Green); (зеленое)
Circle(100,100,15);
SetColor(Black); (черное)
Circle(140,100,15);
SetColor(Red); (красное)
Circle(180,100,15);
SetColor(Yellow); (желтое)
Orel e( 120,115,15);
SetColor(Blue); (синее)
Orel e(l 60,115,15);
readln;
CloseGraph;
end.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
Nellimaer17
08.09.2022 12:39
Проблемы и перспективы развития производственной кооперации можете писать в небольшом тексте...
R456
07.05.2021 22:26
Який колір є провідним у творчості К. Галчинського?...
Nigina11111
16.07.2022 07:42
Знаю это не по теме но Я потерял пульт от телевизора Samsung 5 Series. Я не могу найти кнопку ОК на телевизоре. Заранее...
rustam05mirzaev
28.07.2022 12:38
Мікроскопія якої рослини? Тема Флавоноїди...
OLZHAS1808
29.03.2022 18:07
французький мислитель Вольтер вважав: Упередження- дитя невігластва . як це розуміти. наведіть факти,що підтверджують вашу думку...
nik480
19.10.2022 06:54
Какой континент символизирует кольцо красного цвета в олимпийской эмблеме...
volegorex
11.03.2020 19:29
с менеджментом Завдання 2 Власник великої будівельної фірми з багатьма тисячами працівників та 50-ма будівельними майданчиками принципово залишає за собою право самому приймати рішення...
hyyeblan5577
13.03.2021 04:26
A. Биотоп1.организованная и функциональная единицаБ. Экосистема2.неживая средаВ. Биоценоз3.все популяции, которые одновременнонаходятся в одной областиответы внеси в таблицу:...
shevchenkok1
29.05.2022 12:12
Какие изделия можно изготовить с применением вышивки? (ТЕХНОЛОГИЯ 5 КЛАСС)...
dianakazaryan1
03.12.2022 04:13
ответить на во Выберите правильный вариант ответаДля восстановления нарушенных функций организма и социализации людей, имеющих такие нарушения,применяется физическая культура.АдаптивнаяЛечебнаяВыполните...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses Graph;
var
grDriver: integer; {драйвер}
grMode: integer; {графический режим}
grPath:string; {место расположения драйвера}
ErrCode:integer; {результат инициализации граф, режима}
begin
grDriver := VGA; { режим VGA}
grMode :=VGAHi; { разрешение 640x480}
grPath:=' '; {драйвер, файл EGAVGA.BGI, находится в текущем каталоге }
InitGraph(grDriver, grMode, grPath);
ErrCode := GraphResult;
if ErrCode <> grOk then
begin
writeln('Ошибка инициализации графического режима.');
writeln('для завершения работы программы нажмите ', '<Enter>');
readln;
Halt(l);
end;
{полотнище флага}
SetFillStyle(SolidFill,LightGray); {сплошная заливка серым цветом}
Ваг(80,80,200,135);
{ кольца}
SetColor(Green); (зеленое)
Circle(100,100,15);
SetColor(Black); (черное)
Circle(140,100,15);
SetColor(Red); (красное)
Circle(180,100,15);
SetColor(Yellow); (желтое)
Orel e( 120,115,15);
SetColor(Blue); (синее)
Orel e(l 60,115,15);
readln;
CloseGraph;
end.