Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
 Аватар для uvarovandrej
34 / 3 / 1
Регистрация: 26.11.2009
Сообщений: 129

Заполнение прямоугольников

13.04.2010, 15:43. Показов 1138. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Почему не заполняются фладфилом прямоугольники в чертеже(строка 22 и 24):
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
Program Nachertalka;
uses crt,graph;
const vys=150;
      dl=222;
      shyr=156;
var
dm,gm,i:integer;
bok:array [1..11] of pointtype;
verh:array [1..8] of pointtype;
begin
dm:=detect;
initgraph(dm,gm,'');
Setbkcolor(15);
setcolor(1);
{vid speredi}
Setlinestyle(0,1,3);
rectangle(10,10,dl+10,vys+10);
rectangle((dl div 2)-35,vys-20,(dl div 2)+55,vys+10);
line(10,vys-20,dl+10,vys-20);
setfillstyle(0,red);
rectangle(10,55,70,115);
{floodfill((10+70) div 2,(55+115) div 2,red);}
rectangle(dl-50,55,dl+10,115);
{floodfill((dl-50+dl+10) div 2,(55+115) div 2,6);}
circle((60 div 2)+10,115-30, 24);
circle((60 div 2)+(dl-50), 115-30,24);
setlinestyle(3,1,1);
setcolor(red);
line(70,55,dl-50,55);
line(70,115,dl-50,115);
line(70,115-(115-55) div 2,dl-50,115-(115-55) div 2);
setlinestyle(0,0,0);
setcolor(1);
line(15,115-(115-55) div 2,65,115-(115-55) div 2);
line(40,60,40,110);
line(dl-45,115-(115-55) div 2,dl+5,115-(115-55) div 2);
line(dl-20,60,dl-20,110);
{vid s boku}
setlinestyle(0,1,3);
bok[1].x:=dl+50; bok[1].y:=10;
bok[2].x:=dl+140; bok[2].y:=10;
bok[3].x:=dl+140; bok[3].y:=55;
bok[4].x:=dl+170; bok[4].y:=55;
bok[5].x:=dl+170; bok[5].y:=115;
bok[6].x:=dl+140; bok[6].y:=115;
bok[7].x:=dl+140; bok[7].y:=vys-20;
bok[8].x:=dl+200; bok[8].y:=vys-20;
bok[9].x:=dl+200; bok[9].y:=vys+10;
bok[10].x:=dl+50; bok[10].y:=vys+10;
bok[11].x:=dl+50; bok[11].y:=10;
Drawpoly(sizeof(bok) div sizeof(pointtype),bok);
circle((dl+140) div 2+140,(vys div 2)+10,30);
setlinestyle(0,1,1);
line((dl+140) div 2+140,(vys div 2)-20,(dl+140) div 2+140,(vys div 2)+40);
line((dl+140) div 2+110,(vys div 2)+10,(dl+140) div 2+170,(vys div 2)+10);
setlinestyle(3,1,1);
setcolor(2);
line(dl+170,85,dl+130,85);
line(dl+170,109,dl+120,109);
line(dl+170,61,dl+120,61);
setcolor(11);
line(dl+shyr+20,130,dl+shyr+20,160);
{vid sverhu}
setlinestyle(0,1,3);
setcolor(1);
rectangle(10,vys+40,dl+10,vys+130);
verh[1].x:=10;  verh[1].y:=vys+130;
verh[2].x:=10;  verh[2].y:=vys+196;
verh[3].x:=76;  verh[3].y:=vys+196;
verh[4].x:=76;  verh[4].y:=vys+166;
verh[5].x:=166; verh[5].y:=vys+166;
verh[6].x:=166; verh[6].y:=vys+196;
verh[7].x:=232; verh[7].y:=vys+196;
verh[8].x:=232; verh[8].y:=vys+90;
drawpoly(sizeof(verh) div sizeof(pointtype),verh);
rectangle(10,vys+130,70,vys+160);
rectangle(dl-50,vys+130,dl+10,vys+160);
setlinestyle(3,1,1);
setcolor(red);
line(10,vys+90,dl+10,vys+90);
line(10,vys+60,dl+10,vys+60);
line(10,vys+120,dl+10,vys+120);
setcolor(2);
line(16,vys+120,16,vys+160);
line(40,vys+120,40,vys+160);
line(64,vys+120,64,vys+160);
line(dl-44,vys+120,dl-44,vys+160);
line(dl+4,vys+120,dl+4,vys+160);
line(dl-20,vys+120,dl-20,vys+160);
readln;
end.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
13.04.2010, 15:43
Ответы с готовыми решениями:

Заполнение квадратами. Заполнение, начиная с X. Прогрессия X-D
Помогите пожалуйста 1.Напишите программу, которая заполняет массив квадратами натуральных чисел от 1 до N . Входные данные Входная...

Даны стороны трех прямоугольников Найти периметры и площади этих прямоугольников
1. S1=SSS(a1, b1); S2=SSS(a2, b2); S3=SSS(a3, b3); -------------------------------- int SSS(int a, int b) { return (a*b);...

Известны длины сторон двух прямоугольников. Вычислить площади прямоугольников и сравнить их. Определить, являются ли прямоугольники квадратами...
Привет , ребята нужна помощь Разместите на форме Элементы управления для решения задачи Известны длины сторон двух прямоугольников....

1
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
13.04.2010, 16:31
uvarovandrej, Если линии синие, то только синим цветом и закрасишь, fllodfill ищет границы заданного цвета, ты задаешь красный, а такого нет. Если хочешь красным, то внутри прямоугольника, на 1-2 пиксели меньшего размера нужно нарисовать красный прямоугольник и его закрашивать.

Добавлено через 32 минуты
А это вообще чушь.
setfillstyle(0,red); закраска цветом фона, указанный цвет вообще игнорируется.
Почитайте хоть это.
https://www.cyberforum.ru/atta... 1241779566
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
13.04.2010, 16:31
Помогаю со студенческими работами здесь

Объединение прямоугольников (количество объединенных прямоугольников минимально)
Добрый день. Прошу помощи в выполнении задачи. Дан список прямоугольников, которые задаются координатами верхней левой вершины и...

7. Пусть дано n прямоугольников, заданных координатами левой верхней и правой нижней вершины. Стороны прямоугольников параллельны осям координат. Опр
Пусть дано n прямоугольников, заданных координатами левой верхней и правой нижней вершины. Стороны прямоугольников параллельны осям...

Как сделать чтобы Заполнение одного значения формы вызывало заполнение множества других
Народ помогите чтобы при выставлении значения в ячейке формы КПКНазв (основана на табл.Договора) в форму проставлялись значения из таблицы...

Заполнение ТЧ одного документа ТЧ другого, заполнение тч из запроса
&НаСервере Процедура ЗаполнитьНаСервере() Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ ...

Заполнение документа из тч справочника, заполнение при изменении()
&НаСервере Процедура ПолучитьПродукты(Выборка) Выборка=Справочники.Блюда.Выбрать(); Пока Выборка.Следующий() Цикл НоваяСтрока =...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru