Как нарисовать домик забором на паскале АВС

Question

Информатика

Тая

1 октября, 07:46

Как нарисовать домик забором на паскале АВС

+1

Ответы (1)

Знаете ответ на вопрос?

Богдана · Answer 1

Uses Crt, GraphABC; var i, n, q, c:integer; beginhidecursor; Writeln ('Введите количество досок N:') ; Read (n) ; clearwindow; For I:=1 to n dobeginc: = clyellow; SetPenColor (c) ; SetPenWidth (2) ; q:=40*i; MoveTo (100+q, 340) ; LineTo (100+q, 130) ; LineTo (120+q, 100) ; LineTo (140+q, 130) ; LineTo (140+q, 340) ; LineTo (100+q, 340) ; floodfill (100+q+10,200, c) ; end;