Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
vamagic2001
14.08.2020 12:37 •
Информатика
Решите в паскале)) даны координаты вершин прямоугольника а(x1, y1), b(x2,y2), c(x3,y3), d(x4,y4). вычислите периметр и площадь прямоугольника.
Показать ответ
Ответ:
ggezzzz
02.07.2020 23:57
Var x1,x2,x3,x4,y1,y2,y3,y4:integer;
AB,BC,p,s:real;
begin
read(x1,y1,x2,y2,x3,y3,x4,y4);
AB:=sqrt(sqr(x1-x2)+sqr(y1-y2));
BC:=sqrt(sqr(x2-x3)+sqr(y2-y3));
p:=2*(ab+bc);
s:=ab*bc;
write('p=',p,' s=',s);
end.
0,0
(0 оценок)
Ответ:
891447819danilDanil
02.07.2020 23:57
program umn;
var X1,Y1,x2,y2,x3,y3,x4,y4, P,S,l1,l2:real;
begin
write('Введите координаты вершин треугольника ( A, B, C, D): '); read(X1,Y1,x2,y2,x3,y3,x4,y4);
l1 := Sqrt(sqr(x2 - x1) + Sqr(y2-y1));
l2 := Sqrt(sqr(x3 - x2) + Sqr(y3-y2));
S := l1 * l2;
P := 2 * (l1+l2);
write(S:3:2,' ',P:3:2);
end.
Если есть вопросы задавайте.
0,0
(0 оценок)
Популярные вопросы: Информатика
Nonder
11.09.2020 17:11
Вэлектронной таблице значение формулы =сумм(в2: в4) равно 6. чему равно значение формулы =срзнач(в2: в5), если значение ячейки в5 равно 14?...
dobylarsen
26.04.2023 12:09
Блок-сызба Псевдобкод-сызба Python программалау тілінде-сызба Срлчноо...
denisdudkin739
18.11.2020 16:59
Дано дійсні позитивні числа a, b, с, d. З ясувати, чи можна прямокутник зі сторонами а, Ь вмістити всередині прямокутника зі сторонами c, d так, щоб кожна зі сторін одного...
dianaism38
18.03.2020 12:57
Построение таблиц истинности для логических выражений Для логического выражения можно построить таблицу истинности, показывающую, какие значения принимает выражение при...
212629
08.12.2021 15:03
Ноутбук служил где то 2-3 года и потом сломался где то год назад. Перестал включаться и западает гнездо зарядки. Когда он на зарядке Горит кнопка питания а когда без только...
strimersakarinа
08.04.2023 23:16
1. Запишіть у зошит, що включає предметна область досліджень: а) рівня забрудненості води в Днепре...
лолkjk
10.02.2023 08:27
Можно оба если не видите 4 тогда только3...
Liana03102000
18.05.2021 17:26
PYTHON | В Австралии обитает очень позитивное и миролюбивое животное - квокка. С клавиатуры вводится 4 целых числа - показателя хорошего настроения четырех разных квокк....
dmitriy14nagiev
24.05.2021 21:30
Коли доцільно використовувати функцію округлення та операції цілочисельного ділення або знаходження остачі від ділення...
svetacok
23.09.2021 14:04
C++ Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8, или сообщает, что таких...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
AB,BC,p,s:real;
begin
read(x1,y1,x2,y2,x3,y3,x4,y4);
AB:=sqrt(sqr(x1-x2)+sqr(y1-y2));
BC:=sqrt(sqr(x2-x3)+sqr(y2-y3));
p:=2*(ab+bc);
s:=ab*bc;
write('p=',p,' s=',s);
end.
var X1,Y1,x2,y2,x3,y3,x4,y4, P,S,l1,l2:real;
begin
write('Введите координаты вершин треугольника ( A, B, C, D): '); read(X1,Y1,x2,y2,x3,y3,x4,y4);
l1 := Sqrt(sqr(x2 - x1) + Sqr(y2-y1));
l2 := Sqrt(sqr(x3 - x2) + Sqr(y3-y2));
S := l1 * l2;
P := 2 * (l1+l2);
write(S:3:2,' ',P:3:2);
end.
Если есть вопросы задавайте.