Нужна завтра сдавать ! pascal abc даны два треугольника abc и def с координатами вершин (ax,ay), (bx,by), (cx,cy), (dx,dy), (ex,ey), (fx,fy). составьте алгоритм или программу, определяющую, какой из треугольников имеет большую площадь.
288
404
Ответы на вопрос:
Без проверки полагаем, что по заданным координатам точек можно построить треугольники. //pascalabc.net 3.0, сборка 1111 type point=record x,y: double end; function trianglesquare(a,b,c: point): double; begin result: =0.5*abs(a.x*(b.y-c.y)+b.x*(c.y-a.y)+c.x*(a.y-b.y)) end; procedure getpoint(c: char; var a: point); begin write('введите координаты точки ',c,': '); readln(a.x,a.y) end; var a: array['a'..'f'] of point; i: 'a'..'f'; s1,s2: double; begin for i: ='a' to 'f' do getpoint(i,a[i]); s1: =trianglesquare(a['a'],a['b'],a['c']); s2: =trianglesquare(a['d'],a['e'],a['f']); if s1> s2 then writeln('площадь первого треугольника больше') else if s2> s1 then writeln('площадь второго треугольника больше') else writeln('площади треугольников равны') end. тестовое решение: введите координаты точки a: -4 3.7 введите координаты точки b: -6.3 0 введите координаты точки c: 10.2 5.93 введите координаты точки d: 7.143 8.1 введите координаты точки e: -6 -3 введите координаты точки f: 7.4 -5.7 площадь второго треугольника больше
Var a: integer; begin read(a); if ((a> =2) and (a< =5)) or ((a> =-1) and (a< =1)) then writeln('yes') else writeln('no'); end. если число не целое, то вместо integer напиши real
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
DonP3dro18.09.2021 00:58
-
aikab0318.05.2023 16:37
-
Diana1727383929.01.2021 12:17
-
ninacat106.07.2021 10:00
-
Rosa0226.06.2020 04:24
-
Nastyabro111126.06.2021 09:45
-
Adelina17408.11.2022 00:16
-
Sanek27rus21.03.2023 00:56
-
podlubnijp08ieo23.07.2020 07:14
-
alla07329.04.2022 20:47
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.