Нарисуйте олимпийский флаг - Pascal ABC

Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.94/34:

@Irina_Fadeeva 0 / 0 / 0 Регистрация: 15.05.2011 Сообщений: 19

	Нарисуйте олимпийский флаг 15.05.2011, 17:29. Показов 6487. Ответов 2 Метки нет (Все метки) Нарисуйте олимпийский флаг. ГРАФ 0

Лучшие ответы (1)

Сообщение: #1655124

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

15.05.2011, 17:29

Ответы с готовыми решениями:

Графика: олимпийский флаг
Нарисуйте олимпийский флаг. Программу надо написать в Pascal ABC. Опишите как можно подробнее))) Заранее спасибо)))

Нарисовать олимпийский флаг
нарисуйте пожалуйста олимпийский флаг. Pascal.

Нарисуйте олимпийский флаг
Нарисуйте цветной олимпийский флаг в Turbo Pascal.

Puporev

Почетный модератор

64314 / 47610 / 32743

Регистрация: 18.05.2008

Сообщений: 115,167

16.05.2011, 13:39

Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses graphABC;
var xc,yc,r,x,y:integer;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
r:=50;
clearwindow(clAqua);
setbrushstyle(bsSolid);
setbrushcolor(clWhite);
rectangle(xc-4*r,yc-3*r,xc+4*r,yc+2*r);
setpenwidth(5);
setbrushstyle(bsClear);
setpencolor(clBrown);
circle(xc,yc-r,r);
setpencolor(clBlue);
circle(xc-2*r,yc-r,r);
setpencolor(clRed);
circle(xc+2*r,yc-r,r);
setpencolor(clYellow);
circle(xc-r,yc,r);
setpencolor(clGreen);
circle(xc+r,yc,r);
end.

@Irina_Fadeeva 0 / 0 / 0 Регистрация: 15.05.2011 Сообщений: 19
	17.05.2011, 19:11 [ТС]
	+1 спасибо 0

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

17.05.2011, 19:11

Помогаю со студенческими работами здесь

Напишите программу, отображающую цветное кольцо. Используя ее как подпрограмму, нарисуйте олимпийский флаг
Напишите программу, отображающую цветное кольцо. Используя ее в качестве подпрограммы, нарисуйте олимпийский флаг. Добавлено через 2...

Олимпийский флаг, почему не рисуется?
Нужно, чтобы выводился олимпийский флаг, а выводится пустая форма. Почему так? Код: unit Unit35; {$mode objfpc}{$H+} ...

Создать программу, рисующую олимпийский флаг
Создать программку ОЛИМПИЙСКИЙ ФЛАГ заранее спасибо! {Если можно отправьте программу через архиватор!!!} Четыре дубля данной темы...

По левому шелчку мыши нарисовать олимпийский флаг, а по правому щелчку - красный шар
Всем привет сейчас сижу на экзамене нужна ваша помощь. Дали задание "Создать программу, которая по левому щелчку мыши рисует на поверхности...

Почему если флаг состояния потока eof поднят, то флаг good опущен?
Почему если флаг состояния потока eof поднят, то флаг good опущен? Это нонсенс, друзья. Здесь прочтём, что флаг goodbit потока...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

Наверх