Есть ответ 👍

Даны два прямоугольника, стороны которых параллельны или перпендикулярны осям координат. известны координаты левого нижнего угла каждого из них и длины их сторон. один из прямоугольников назовем первым, другой — вторым. найти координаты левого нижнего и правого верхнего углов минимального прямоугольника, содержащего указанные прямоугольники.

170
469
Посмотреть ответы 2

Ответы на вопрос:

terrabyte
4,7(72 оценок)

программа на 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.

пример вывода на прикреплённом рисунке.


Считается, что слова отделяются друг от друга пробелом. var s: string; p: integer; begin writeln('введите строку: '); readln(s); s: =s+' '; p: =pos(' ',s); while p> 0 do   begin   if pos('ов ',s)=p-2 then writeln(copy(s,1,p-1));   delete(s,1,p);   p: =pos(' ',s);   end; end. пример: введите строку: пример кров слово шов олово ров кров шов ров

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS