Question

как в паскале нарисовать дом(10,8) онвектор​

Answer 1

Відповідь:

program House;

uses Graph;

var gd, gm: Integer;

begin

gd := Detect;

InitGraph(gd, gm, '');

Rectangle(100, 100, 110, 108); // стены

Line(100, 100, 105, 95); // крыша

Line(110, 100, 105, 95); // крыша

Line(100, 108, 105, 113); // дверь

Rectangle(102, 102, 106, 108); // окно

Readln;

CloseGraph;

end.

Пояснення:

Answer 2

program draw_house;

uses Graph;

var

 gd, gm: integer;

begin

 gd := Detect;

 InitGraph(gd, gm, '');

 { draw the roof }

 Line(100, 100, 150, 50);

 Line(150, 50, 200, 100);

 Line(100, 100, 200, 100);

 { draw the walls }

 Rectangle(100, 100, 200, 200);

 { draw the door }

 Rectangle(130, 150, 170, 200);

 { draw the window }

 Rectangle(120, 120, 140, 140);

 Rectangle(160, 120, 180, 140);

 ReadLn;

 CloseGraph;

end.