Ответы
Ответ дал:
0
Відповідь:
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.
Пояснення:
Ответ дал:
0
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.
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
4 месяца назад
2 года назад
2 года назад
7 лет назад