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

Question

Информатика

Евдокуша

9 марта, 11:47

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

+4

Ответы (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;