Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
KARKARACH
27.05.2022 15:21 •
Информатика
Даны координаты противопложных вершин прямоугольника х1 у1 х2 у2 стороны прямоугольника парралельны осям координата координат* составьте программу вычесления периметра и площади прямоугольника
Показать ответ
Ответ:
HvashevskiiDenis2006
05.10.2020 09:07
На паскале :
var x1,x2,x3,y1,y2,y3,ax,bx,ay,by,a,b,p,s:integer;
begin
readln(x1); readln(y1); readln(x2); readln(y2);
x3:=x1; y3:=y2; //координаты 3 точки
ax:=x1-x3; ay:=y1-y3; bx:=x2-x3; by:=y2-y3; //координаты направляющих векторов
a:=sqrt(sqr(ax)+sqr(ay)); //длинна вектора
b:=sqrt(sqr(bx)+sqr(by)); //длинна вектора
p:=2*(a+b); //периметр
s:=a*b; //площадь
writeln(p);
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ЯнаКорягина
13.04.2022 14:36
Сообщение по информатике на тему файл и файловая система...
sochiru2014
09.02.2022 20:36
2. решите . сообщение, записанное с некоторого алфавита, занимает 2 страницы по 50 строк. в каждой строке записано по 20 символов. сколько символов в используемом...
SoMood
02.01.2023 05:55
Изображение представлено в векторном формате,при этом его информационный объём составляет 2048 байт. пользователь увеличил изображение в 2 раза по ширине и в 2 раза...
darka448Darina
09.04.2021 23:07
Навигациялық есептеулер сызғышы. Көмек, өтінемін...
дильназСпецназ
06.05.2022 06:22
Тұлғаларды тиісті сипаттамамен сәйкестендір. 6 сынып Информатика...
Ctatuetca
04.02.2020 20:18
5. Из чего состоит системная шина? 6. Почему идея использования общей памяти называется «принципом фон Неймана»? 5. Жүйелік шинаның құрамы қандай? 6. Ортақ жадты...
Lana8254
04.06.2021 23:32
Догадайтесь, о каком носителе информации идёт речь. УПАРСПИ...
опшпищи
25.01.2023 20:04
1. Выполните целочисленные вычисления: a) 9**2 = б) 32 % 3 = в) 18 // 5,0 = г) 0 // 10 = 2. Запишите на языке Python программу, которая для произвольного натурального...
Odessey20011
25.01.2023 20:04
Дополните предложение: С междустрочного интервала задаётся расстояние между... . * 1. строками абзаца. 2.абзацами сверху и снизу. 3.абзацем и краями рабочей области....
кисикмиксер
06.02.2023 09:48
Определите IP адрес 3.15 4.176 3 .64...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x1,x2,x3,y1,y2,y3,ax,bx,ay,by,a,b,p,s:integer;
begin
readln(x1); readln(y1); readln(x2); readln(y2);
x3:=x1; y3:=y2; //координаты 3 точки
ax:=x1-x3; ay:=y1-y3; bx:=x2-x3; by:=y2-y3; //координаты направляющих векторов
a:=sqrt(sqr(ax)+sqr(ay)); //длинна вектора
b:=sqrt(sqr(bx)+sqr(by)); //длинна вектора
p:=2*(a+b); //периметр
s:=a*b; //площадь
writeln(p);
writeln(s);
end.