Создать программу "Концентрические круги" из К кругов

13.09.2006, 12:49. Показов 4670. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Все привет. Застряла на одной прграмке, вроде легкая, а что-то не справлюсь. :oops:

Создать программу "Концентрические круги" из К кругов. Радиус круга
уменьшается с шагом 5. Рисование одного круга оформить в виде процедуры,
где координаты центра, радиус, цвет и стиль заполнения - входные параметры.

Delphi
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
uses crt, Graph, Graph0;
var x, y, r:integer;
i, cv, st, K:byte;
procedure krug(x, y:integer;K, st, cv:byte);
begin
init('c:\tp70\bgi');
r:=80;
setcolor(cv);
circle(x, y, r);
setfillstyle(st, cv);
floodfill(x, y, cv);
end;
begin
clrscr;
textcolor(13);
writeln('    Программа рисования кругов ;;;');
writeln;
writeln('Каким цветом будут круги?');
writeln('1, 9-синий, 2, 10-зеленый, 3, 11-голубой, 4, 12-красный, 5, 13-малиновый, '); write('7, 8-серый, 6-коричневый, 14-желтый, 15-белый: = ');
readln(cv);
Writeln('Как он будет заштрихован:  ');
writeln('1-сплошная, 2-горизонтально, 3, 6-наклонно, 4, 5-утолшенными линиями'); write('7, 8, 9-крестиками, 10, 11-точками: = ');
readln(st);
write('Введите координату X (640): =  ');
readln(x);
write('Введите координату Y (480): =  ');
readln(y);
krug(x, y, K, st, cv);
readln;
CloseGraph 
end.

Как бы ее модифицировать, чтоб она рисовала столько кругов, сколько введешь? :?

ЗЫ от Цербер. Просьба о модификации готовой программы просить здесь, а то тоже многовато тем разведется.

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

13.09.2006, 12:49

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

Концентрические круги
Напишите функцию circles(d, t), которая строит 2 концентрические окружности с толщиной линии t и интервалом d в виде текстовой графики. ...

Задано координаты радиусов кругов. Вывести круги на экран. Все цепи, с этих кругов - выделить отдельным цветом
Здравствуйте, заранее прошу прощения за уйму кода и вопросов, но мне очень нужна сторонняя помощь, которую, на данный момент, мне может...

Написать программу, которая рисует круги меньшего размера внутри кругов и с разным цветом
Здравствуйте, хочу написать программу, которая рисует круги меньшего размера внутри кругов и с разным цветом, но программа не выводит...

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

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

13.09.2006, 12:49

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

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

создать программу которая создает движущиеся круги
нужно создать программу которая создает движущиеся круги и удаляет их по желанию.вот прога.http://ifolder.ru/26381786 не могу найти...

Определить, есть ли среди этих кругов круги троек, которые одновременно пересекаются
Некоторый файл kolo.dat содержит строки троек действительных чисел х, y, r, где (x, y) - координаты центра некоторого круга, r - радиус...

Создать програму с рисованием кругов, данные берутся из файла .txt, и прямоугольников, рисуются относительно кругов
Добрый вечер! Ребята, помогите решить задачу: В файле задано координаты центров и радиусы кругов. Вывести на экран круги. Вокруг каждой...

Подпрограмма. Рекурсия: Написать программу,которая рисует круг из кругов которые состоят из кругов
Начал изучать процедуру!вот есть процедура,только как её вставить программу? procedure krug(xc,yc,r:real); var a,xm,ym,rm:real; ...

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

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

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

Наверх