KseniyaTyan2018

26.11.2021 11:56

Информатика

Есть ответ 👍

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

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.

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

kalinkamalinka369

Информатика

4,7(21 оценок)

Считается, что слова отделяются друг от друга пробелом. 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

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

Задай свой вопрос

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

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

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

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

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

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

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