программа на pascalabc
program 29844007;
uses
graphabc;
var
xl1,yl1,xr1,yr1: integer; ///координаты первого прямоугольника
xl2,yl2,xr2,yr2: integer; ///координаты второго прямоугольника
xl0,yl0,xr0,yr0: integer; ///координаты результата
s: string; ///строка для вывода результатов;
begin
window.setsize(700,700);
writeln('первый прямоугольник: ');
writeln('введите x левого нижнего угла '); read(xl1);
writeln('введите y левого нижнего угла '); read(yl1);
writeln('введите x правого верхнего угла '); read(xr1);
writeln('введите y правого верхнего угла '); read(yr1);
writeln('второй прямоугольник: ');
writeln('введите x левого нижнего угла '); read(xl2);
writeln('введите y левого нижнего угла '); read(yl2);
writeln('введите x правого верхнего угла '); read(xr2);
writeln('введите y правого верхнего угла '); read(yr2);
if xl1< xl2 then xl0: =xl1 else xl0: =xl2;
if yl1< yl2 then yl0: =yl1 else yl0: =yl2;
if xr1< xr2 then xr0: =xr2 else xr0: =xr1;
if yr1< yr2 then yr0: =yr2 else yr0: =yr1;
/// выводим сначала результирующий прямоугольник синим цветом
brush.color : = clblue;
rectangle(xl0,700-yl0,xr0,700-yr0);
/// рисуем первый прямоугольник красным цветом
brush.color : = clred;
rectangle(xl1,700-yl1,xr1,700-yr1);
/// выводим второй прямоугольник зелёным
brush.color : = clgreen;
rectangle(xl2,700-yl2,xr2,700-yr2);
/// выводим кординаты
brush.color : = clwhite;
s: ='координаты левого нижнего угла: '+ inttostr(xl0)+' '+inttostr(yl0);
textout(0,0,s);
s: ='координаты правого верхнего угла: '+ inttostr(xr0)+' '+inttostr(yr0);
textout(0,20,s);
end.
пример вывода на прикреплённом рисунке.
Популярные вопросы