IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Николай Кузанский, Парадигма Н.Кузанского
сообщение
Сообщение #1


меркантильный
***

Группа: Пользователи
Сообщений: 161
Пол: Мужской

Репутация: -  6  +


Николай Кузанский, 16в. придумал фигуру из двух треугольников,
напоминающую Звезду Давида, назвал её "Парадигмой" (парадигма-греч.модель).
Вот отрисовка:

program KyzanskiyModel;
uses crt,graph;
var Gd, Gm: Integer;
begin
clrscr;
Gd := Detect;
InitGraph(Gd, Gm, ' ');
Setcolor(15); setlinestyle(0,0,3);
Line(220,140,420,140);Line(220,140,320,340);Line(420,140,320,340);
Line(220,340,420,340);Line(220,340,320,140);Line(420,340,320,140);
Line(320,140,320,340);{-эта линия не обязательно-}
readln;
end.


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

program KyzanskiyModel2;
uses crt,graph;
var Gd, Gm, t: Integer;
begin
clrscr;
Gd := Detect; t:=0;
InitGraph(Gd, Gm, ' ');
repeat
Setcolor(15); setlinestyle(0,0,3);
Line(320+t,140,320-t,140);Line(320+t,140,320,340);Line(320-t,140,320,340);
Line(220+t,340,420-t,340);Line(220+t,340,320,140);Line(420-t,340,320,140);
Line(320,140,320,340); Delay(2000);
Setcolor(0); setlinestyle(0,0,3);
Line(320+t,140,320-t,140);Line(320+t,140,320,340);Line(320-t,140,320,340);
Line(220+t,340,420-t,340);Line(220+t,340,320,140);Line(420-t,340,320,140);
Line(320,140,320,340);
t:=t+1;
until (keypressed) or (t>100);
readln;
end.


Помогите:
1. Как сделать, чтобы после окончания работы программы,
оставался верхний треугольник? (Его в конце зарисовывает тоже).
2. Как сделать заливку
а) одному треугольнику
б) двум, но разным цветом?



--------------------
Смысл откроется тебе. Красками играя
Жизнь предстанет как поток без конца и края.


В этом мире порой разбиваютсямечты
Но чтобы он стал другой Вдруг в него приходишь ТЫ...

После странствий и скитаний настают другие времена.
Старая волна уходит и приходит новая волна.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 6)
сообщение
Сообщение #2


меркантильный
***

Группа: Пользователи
Сообщений: 161
Пол: Мужской

Репутация: -  6  +


Ну, первый пункт сам сделал:

program KyzanskiyModel;
uses crt,graph;
Label 1;
var Gd, Gm, t: Integer;
begin
clrscr;
Gd := Detect; t:=0;
InitGraph(Gd, Gm, ' ');
repeat
t:=t+1;
Setcolor(15); setlinestyle(0,0,3);
Line(320+t,140,320-t,140);Line(320+t,140,320,340);Line(320-t,140,320,340);
Line(220+t,340,420-t,340);Line(220+t,340,320,140);Line(420-t,340,320,140);
Line(320,140,320,340); Delay(2000);
if t>=100 then goto 1;
Setcolor(0); setlinestyle(0,0,3);
Line(320+t,140,319-t,140);Line(320+t,140,320,340);Line(320-t,140,320,340);
Line(220+t,340,420-t,340);Line(220+t,340,320,140);Line(420-t,340,320,140);
Line(320,140,320,340);
until keypressed;
1:readln;
end.

Но вопросы остаются:
1. Можно то же сделать, но без метки?
2. Как сделать заливку?


--------------------
Смысл откроется тебе. Красками играя
Жизнь предстанет как поток без конца и края.


В этом мире порой разбиваютсямечты
Но чтобы он стал другой Вдруг в него приходишь ТЫ...

После странствий и скитаний настают другие времена.
Старая волна уходит и приходит новая волна.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


 if t>=100 then break;

может, так?

заливка...
FloodFill(x,y,color)

х,у - точка внутри замкнутой области
color - цвет границ области


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


меркантильный
***

Группа: Пользователи
Сообщений: 161
Пол: Мужской

Репутация: -  6  +


Работает.
За Николая Кузанского- +1. cool.gif


--------------------
Смысл откроется тебе. Красками играя
Жизнь предстанет как поток без конца и края.


В этом мире порой разбиваютсямечты
Но чтобы он стал другой Вдруг в него приходишь ТЫ...

После странствий и скитаний настают другие времена.
Старая волна уходит и приходит новая волна.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


меркантильный
***

Группа: Пользователи
Сообщений: 161
Пол: Мужской

Репутация: -  6  +


Но еще один маленький вопрос-
(наверно, я не до конца разобрался)
почему FloodFill
заливает только белым цветом?


--------------------
Смысл откроется тебе. Красками играя
Жизнь предстанет как поток без конца и края.


В этом мире порой разбиваютсямечты
Но чтобы он стал другой Вдруг в него приходишь ТЫ...

После странствий и скитаний настают другие времена.
Старая волна уходит и приходит новая волна.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






А ты перед FloodFill устанавливал цвет заливки через SetFillStyle ?

Если нет, то само собой, что белым - ведь белый цвет заливки установлен по умолчанию...

Хочешь залить, к примеру, красным - делай:
SetFillStyle(SolidFill, Red);
FloodFill(...);
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


меркантильный
***

Группа: Пользователи
Сообщений: 161
Пол: Мужской

Репутация: -  6  +


Еще раз всем спасибо!
ВСЁ работает!
Противоположности переходят друг в друга, как и думал Н.Кузанский cool.gif .

program KyzanskiyModel;
uses crt,graph;
const c=15;
var Gd, Gm, t: Integer;
begin
clrscr;
Gd := Detect; t:=0;
InitGraph(Gd, Gm, ' ');SetFillStyle(SolidFill, с);
repeat
t:=t+1;
Setcolor(с); setlinestyle(0,0,3);
Line(320+t,140,320-t,140);Line(320+t,140,320,340);Line(320-t,140,320,340);
Line(220+t,340,420-t,340);Line(220+t,340,320,140);Line(420-t,340,320,140);
Line(320,140,320,340); Delay(2000);
if t>=100 then break;
Setcolor(3); setlinestyle(0,0,3);
Line(320+t,140,320-t,140);Line(320+t,140,320,340);Line(320-t,140,320,340);
Line(220+t,340,420-t,340);Line(220+t,340,320,140);Line(420-t,340,320,140);
Line(320,140,320,340);
until keypressed;
FloodFill(310,240,с); FloodFill(330,240,с);
readln;
end.

Запускайте и смотрите на экран!
Кстати, может изменение цвета
подчинить какому-то алгоритму blum.gif ?
Но это уже другая задача.
Тему можно закрывать...
(Примечание Иногда странно себя ведет из-за
константы с. Тогда удалите её и впишите номер цвета вручную
SetFillStyle(SolidFill, 15); вместо SetFillStyle(SolidFill, с); также везде.)

Сообщение отредактировано: Чужак -


--------------------
Смысл откроется тебе. Красками играя
Жизнь предстанет как поток без конца и края.


В этом мире порой разбиваютсямечты
Но чтобы он стал другой Вдруг в него приходишь ТЫ...

После странствий и скитаний настают другие времена.
Старая волна уходит и приходит новая волна.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 21:31
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name