Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Yuumiko54
24.11.2021 08:51 •
Информатика
(через pascal подпрограммы) два треугольника заданы координатами вершин. определить, площадь какого из них больше (использовать функцию нахождения площади треугольника).
Показать ответ
Ответ:
egorovaesya
19.08.2020 18:16
Function Square(x1, y1, x2, y2, x3, y3: real): real;
begin
Square := abs((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)) / 2;
end;
var
x1, y1, x2, y2, x3, y3, s1, s2: real;
begin
write('Задайте первый треугольник(x1,y1,x2,y2,x3,y3): ');
readln(x1, y1, x2, y2, x3, y3);
s1 := Square(x1, y1, x2, y2, x3, y3);
write('Задайте второй треугольник(x1,y1,x2,y2,x3,y3): ');
readln(x1, y1, x2, y2, x3, y3);
s2 := Square(x1, y1, x2, y2, x3, y3);
if s1 > s2 then writeln('Площадь первого треугольника больше')
else if s1 < s2 then writeln('Площадь второго треугольника больше')
else writeln('Площади треугольников равны');
end.
p.s. проверять существуют ли такие треугольники не нужно, т.к. они уже заданы и нам нужно определить площадь большего.
0,0
(0 оценок)
Популярные вопросы: Информатика
Alex71532
17.11.2020 08:55
Кодирование текста осуществляется перестановкой букв в каждом слове по одному и тому же правилу. восстановите кодированую информацию и сформулируйте правила перестановки....
мозк2
18.02.2021 19:13
Вычеркивание. пользователь вводит целое трехзначное число. программа сообщает какую цифру в нём вычеркнуть чтобы оставшееся двузначное число было максимально возможным....
bogdanlinchenk
25.05.2021 20:50
Разброс. в отделе работает 4 сотрудника пользователь вводит заработную плату каждого, программа вычисляет , на сколько заработная плата самого высокооплачиваемого...
pinashinaanna27
29.03.2022 13:01
Запишите на языке паскаль программу, которая для произвольного натурального двузначного числа определяет число, образованное перестановкой цифр исходного числа....
lev93
05.08.2022 12:50
Составьте программу на паскале(с циклических алгоритмов (простых и вложенных),используя операции целочисленной арифметики): найти все натуральные числа, не превосходящие...
supervalad
27.06.2022 05:56
Определи прием комического, посредством которого Н.В. Гоголь выражает свое сатирическое отношение к любовной интриге в комедии «Ревизор». пародированиериторические...
DrNick
30.07.2020 18:20
Обчисліть об єм правильної чотирикутної призми, ребро основи якої 5см, а висота дорівнює периметру основи. Как решить?...
arinahomich05
15.04.2022 12:34
(0,5-0,1) * 0,2 * 10 * сos45 2 надо!...
соныч
25.10.2020 08:50
решить Задача номер 4.34...
Oven463
13.05.2023 13:47
Compare your school with Tobilay s and Gareth s schools.Copy and complete the chart....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
Square := abs((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)) / 2;
end;
var
x1, y1, x2, y2, x3, y3, s1, s2: real;
begin
write('Задайте первый треугольник(x1,y1,x2,y2,x3,y3): ');
readln(x1, y1, x2, y2, x3, y3);
s1 := Square(x1, y1, x2, y2, x3, y3);
write('Задайте второй треугольник(x1,y1,x2,y2,x3,y3): ');
readln(x1, y1, x2, y2, x3, y3);
s2 := Square(x1, y1, x2, y2, x3, y3);
if s1 > s2 then writeln('Площадь первого треугольника больше')
else if s1 < s2 then writeln('Площадь второго треугольника больше')
else writeln('Площади треугольников равны');
end.
p.s. проверять существуют ли такие треугольники не нужно, т.к. они уже заданы и нам нужно определить площадь большего.