будет крыша, состоящая из двух линий (Процедура line). Первая точка левой линии совпадает с точкой левого верхнего угла нарисованного прямоугольника, а значит имеет такие же координаты. Показатель x второй точки линии совпадает с серединой прямоугольника. Так как прямоугольник имеет ширину 400 единиц, то его половина будет на расстоянии 200 единиц (400/2200), т. е. x200. Показатель y можно выбрать произвольным, главное чтобы он был меньше y (чем меньше, тем острее будет крыша).
Аналогичным образом получаем показатели второй линии.
Код программы :
uses graphabc;
var x, y:integer;
begin
x:200;
y:300;
rectangle (x,y,x400,y200);
line (x,y, x200,y-100);
line (x200,y-100, x400,y);
end.
Левое окно размещаем внутри прямоугольника дома произвольно исходя из его размеров 130x100.
Второе окно размещаем относительно оси симметрии дома (x200).
Получаем фрагмент:
uses graphabc;
var x, y:integer;
begin
x:200;
y:300;
rectangle (x,y,x400,y200);
line (x,y, x200,y-100);
line (x200,y-100, x400,y);
rectangle (x50,y20,x150,y150);
rectangle (x250,y20,x350,y150);
end.
Последней процедурой будет circle с показателями x на оси симметрии дома, и показателем y соответствующим середине высоты крыши. circle (x200,y-50,20);
Радиус можно задать произвольно, но с учётом того. Чтобы окружность не выходила за пределы крыши.
В итоге программа будет выглядеть так:
uses graphabc;
var x, y:integer;
begin
x:200;
y:300;
rectangle (x,y,x400,y200);
line (x,y, x200,y-100);
line (x200,y-100, x400,y);
rectangle (x50,y20,x150,y150);
rectangle (x250,y20,x350,y150);
circle (x200,y-50,20);
end.
4. Выполнение самостоятельной практической работы.
Страницы: << < 1 | 2 | 3 | 4 > >>