4. составьте программу, которая рисует план
комнаты (рис. 3).​ pascal abc

Объяснение:

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

uses graphABC;

var d,i:integer;

begin

d:=20;

setwindowsize(44*d,34*d);

centerwindow;

setfontstyle(fsBold);

for i:=1 to 40 do

begin

if i mod 5=0 then

begin

setpencolor(clBlack);

textout(2*d+i*d-d,2*d-d,inttostr(i*d));

end

else setpencolor(clSilver);

line(2*d+i*d,2*d,2*d+i*d,2*d+30*d);

end;

textout(2*d,2*d-20,'0');

for i:=1 to 30 do

begin

if i mod 5=0 then

begin

setpencolor(clBlack);

textout(2*d-30,2*d+i*d-5,inttostr(i*d));

end

else setpencolor(clSilver);

line(2*d,2*d+i*d,2*d+40*d,2*d+i*d);

end;

setpenwidth(2);

setbrushstyle(bsClear);

setpenwidth(4);

rectangle(2*d,2*d,windowwidth-2*d,windowheight-2*d);

line(7*d,7*d,27*d,7*d);

line(32*d,7*d,37*d,7*d);

line(37*d,7*d,37*d,12*d);

line(37*d,17*d,37*d,27*d);

line(37*d,27*d,7*d,27*d);

line(7*d,27*d,7*d,7*d);

setpenwidth(8);

line(8*d,10*d,10*d,8*d);

setpenwidth(2);

moveto(14*d,7*d);

lineto(14*d,10*d);

lineto(10*d,10*d);

lineto(10*d,17*d);

lineto(7*d,17*d);

line(27*d,7*d,27*d,12*d);

arc(27*d,7*d,5*d,270,360);

line(32*d,12*d,37*d,12*d);

arc(37*d,12*d,5*d,180,270);

setbrushcolor(clBlack);

setbrushstyle(bsDiagCross);

rectangle(30*d,22*d,37*d,27*d);

setbrushstyle(bsSolid);

setbrushcolor(clBrown);

rectangle(16*d,7*d,22*d,9*d);

circle(12*d,12*d,d);

rectangle(7*d,20*d,22*d,27*d);

setbrushstyle(bsClear);

rectangle(8*d,21*d,11*d,26*d);

end.