Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
SevenDays7
03.11.2021 05:11 •
Информатика
Равнобедренная трапеция задана координатами вершин. найти дли- ну высоты. для паскаля
Показать ответ
Ответ:
astratovamaria
20.06.2020 14:29
type koords = record
x,y:real;
end;
var ab,dc,dh,ad,h:real;
a,b,c,d:koords;
begin
writeln ('A:');
write ('X = ');
readln (a.x);
write ('Y = ');
readln (a.y);
writeln ('B:');
write ('X = ');
readln (b.x);
write ('Y = ');
readln (b.y);
writeln ('C:');
write ('X = ');
readln (c.x);
write ('Y = ');
readln (c.y);
writeln ('D:');
write ('X = ');
readln (d.x);
write ('Y = ');
readln (d.y);
ab:=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
dc:=sqrt(sqr(c.x-d.x)+sqr(c.y-d.y));
dh:=abs((dc-ab))/2;
ad:=sqrt(sqr(a.x-d.x)+sqr(a.y-d.y));
h:=sqrt(sqr(ad)-sqr(dh));
writeln ('H = ',h:0:4);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
YULIAJUICE
08.06.2023 18:04
Укажите соответствие: Компьютеры В каких годах создавались 1 поколение в 1960 годах 2 поколение в 1940 годах 3 поколение в 1970 годах 4 поколение в 1980 годах 5 поколение в 1950...
Violet17
13.11.2021 16:56
Задано натуральне число n. Вивести у рядок задану кількість символів * без проміжків. Вхідні дані:3 Вихідні дані*** На c++...
nastya2735
17.05.2022 10:29
Чим відрізняється тривимірне зображення на площині від двовимірного? *....
Nanaw45
12.11.2020 22:36
Гражданская война в Англии шла между кем...
Анжела1411
12.11.2020 22:36
Определите взаимосвязь между этими государствами . Тюркский Западно-Тюркский Тюргешский...
zukhra1234
12.11.2020 22:36
Перпендикуляр, который проведён из вершины прямоугольника к его диагонали, делит прямой угол в отношении 3к2...
Fedot4ik
12.11.2020 22:36
Какая из точек наиболее удалена от точки S(−2) ? Выберите правильный ответ: D(5) A(−1) E(1) B(0) C(3) ...
Дорамница
12.11.2020 22:36
«Қызыл кітап» деген не? Алғашқы «Қызыл кітап» қай жылышықты?«Қазақстанның Қызыл кітабы» қайжылы жазылды?«Қазақстанның Қызыл кітабында»қанша өсімдік тіркелген?«Қазақстанның Қызыл...
shatab228
24.10.2022 19:30
X÷29=134 решитт уравнение...
fnnifnnr
18.10.2020 00:00
Сравните значение суммы с нулем: 1) -775+800 4) -453+(-387)2) -775+775 5) -453+3873) 775+(-800) 6) -387+(-387)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
x,y:real;
end;
var ab,dc,dh,ad,h:real;
a,b,c,d:koords;
begin
writeln ('A:');
write ('X = ');
readln (a.x);
write ('Y = ');
readln (a.y);
writeln ('B:');
write ('X = ');
readln (b.x);
write ('Y = ');
readln (b.y);
writeln ('C:');
write ('X = ');
readln (c.x);
write ('Y = ');
readln (c.y);
writeln ('D:');
write ('X = ');
readln (d.x);
write ('Y = ');
readln (d.y);
ab:=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
dc:=sqrt(sqr(c.x-d.x)+sqr(c.y-d.y));
dh:=abs((dc-ab))/2;
ad:=sqrt(sqr(a.x-d.x)+sqr(a.y-d.y));
h:=sqrt(sqr(ad)-sqr(dh));
writeln ('H = ',h:0:4);
readln;
end.