Нарисуйте «замок графа Дракулы», в окнах которого мигает свет

@DeadMark · Регистрация: 30.03.2016

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

Нужно вот программку написать на АБС паскале (в крайнем случае на Turbo Pascal);
Задание выдали вот так "Нарисуйте «замок графа Дракулы», в окнах которого мигает свет."
Я тут сижу мучаюсь и лазяю на форумах и не могу добиться мигания в окнах и уже не знаю что сделать. Помогите мне, буду очень рад.
Есть еще одно задание по модулю Graph "Организуйте движение некоторого отрезка по горизонтали. Координаты начала и конца отрезка вводятся с клавиатуры.", но к нему я даже не приступал. Ну как сказать не приступал, просто пока нашел уже такую тему в 2011 Организуйте движение некоторого отрезка по горизонтали. Координаты начала и конца отрезка вводятся с клавиатуры.
а сам еще ничего не попробовал написать
Вот еще нашел к второй теме Организуйте движение некоторого отрезка по вертикали осталось подправить, разобраться в коде

Pascal

Program zad1_11;
uses graphabc;
var i,j:integer;a:string;
begin
SetWindowSize(500,500);
ClearWindow(clBlack);
SetPenColor(clGray);
setbrushcolor(clwhite);
Line (150,150,175,125);
Line (200,150,175,125);
Line (150,150,150,300);
Line (200,150,200,200);
Line (200,200,300,200);
Line (350,150,325,125);
Line (300,150,325,125);
Line (300,150,300,200);
Line (350,150,350,300);
Line (150,300,350,300);
SetBrushColor(clwhite);
Rectangle(165,230,185,250);
Rectangle(225,230,245,250);
Rectangle(255,230,275,250);
Rectangle(165,165,185,185);
Rectangle(315,230,335,250);
Rectangle(315,165,335,185);
for i:=1 to 1000 do begin
floodfill(165,230,clblack);
floodfill(225,230,clblack);
floodfill(256,231,clblack);
floodfill(165,165,clblack);
floodfill(315,230,clblack);
floodfill(315,165,clblack);
 
 
end;
end.

Добавлено через 16 минут
Вот я только до этого дошел, но это некрасивый код (я так считаю). Думаю можно ведь сделать немного иначе?
Я могу и сам эту программу написать, просто не успеваю с этим, нужно другой работой заняться, а я пока вот над этим сижу думаю

Добавлено через 15 секунд

Pascal

Program zad1_11;
uses graphabc;
var i,j:integer;a:string;
begin
SetWindowSize(500,500);
ClearWindow(clBlack);
SetPenColor(clGray);
setbrushcolor(clwhite);
Line (150,150,175,125);
Line (200,150,175,125);
Line (150,150,150,300);
Line (200,150,200,200);
Line (200,200,300,200);
Line (350,150,325,125);
Line (300,150,325,125);
Line (300,150,300,200);
Line (350,150,350,300);
Line (150,300,350,300);
SetBrushColor(clwhite);
Rectangle(165,230,185,250);
Rectangle(225,230,245,250);
Rectangle(255,230,275,250);
Rectangle(165,165,185,185);
Rectangle(315,230,335,250);
Rectangle(315,165,335,185);
while i<>1000 do begin
floodfill(166,231,clblack);floodfill(226,231,clblack);floodfill(256,231,clblack);floodfill(166,166,clblack);floodfill(316,231,clblack);floodfill(316,166,clblack);
floodfill(166,231,clwhite);floodfill(226,231,clwhite);floodfill(256,231,clwhite);floodfill(166,166,clwhite);floodfill(316,231,clwhite);floodfill(316,166,clred);
floodfill(166,231,clwhite);floodfill(226,231,clwhite);floodfill(256,231,clwhite);floodfill(166,166,clwhite);floodfill(316,231,clwhite);floodfill(316,166,clred);
floodfill(166,231,clwhite);floodfill(226,231,clwhite);floodfill(256,231,clwhite);floodfill(166,166,clwhite);floodfill(316,231,clwhite);floodfill(316,166,clred);
floodfill(166,231,clwhite);floodfill(226,231,clwhite);floodfill(256,231,clwhite);floodfill(166,166,clwhite);floodfill(316,231,clwhite);floodfill(316,166,clred);
floodfill(166,231,clwhite);floodfill(226,231,clwhite);floodfill(256,231,clwhite);floodfill(166,166,clwhite);floodfill(316,231,clwhite);floodfill(316,166,clred);
 
floodfill(166,231,clblack);floodfill(226,231,clblack);floodfill(256,231,clblack);floodfill(166,166,clblack);floodfill(316,231,clblack);floodfill(316,166,clblack);
i:=i+1;
 
end;
end.

Добавлено через 25 минут
Открыл сам тему. Дал задание. Сам решил задание

Помогите облегчить код первой задачи с замком.
Вот моя программа Организуйте движение некоторого отрезка по вертикали

Pascal

uses graphabc;
var x1,y1,x2,y2:integer;
begin
Readln(x1,y1,x2,y2);
repeat
ClearWindow;
line(x1,y1,x2,y2);
x1:=x1+2;
x2:=x2+2;
sleep(50);
until (x2=500);
 
end.

@ZX Spectrum-128 · 09.06.2016, 10:32

Постройте на экране "Замок"
В самом комплекте ТурбоГраф есть оригинал, с которого я корректировал программу.
http://www.uni-vologda.ac.ru/~c3c/tg/

Замок еще круче

@supmener · 20.04.2021, 19:50

А сохраненной страницы на описание ТурбоГраф не осталось на компе, а то ссылка не работает?

@ZX Spectrum-128 · 21.04.2021, 07:39

Сообщение от supmener

осталось

Ага.

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	09.06.2016, 10:32	2
	Постройте на экране "Замок" В самом комплекте ТурбоГраф есть оригинал, с которого я корректировал программу. http://www.uni-vologda.ac.ru/~c3c/tg/ Замок еще круче 0

@supmener -207 / 93 / 14 Регистрация: 26.06.2013 Сообщений: 4,604
	20.04.2021, 19:50	3
	А сохраненной страницы на описание ТурбоГраф не осталось на компе, а то ссылка не работает? 0

	21.04.2021, 07:39