Информатика, опубликовано 24.03.2019 15:10
(через pascal подпрограммы) два треугольника заданы координатами вершин. определить, площадь какого из них больше (использовать функцию нахождения площади треугольника).
Ответ оставил: Гость
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. проверять существуют ли такие треугольники не нужно, т.к. они уже заданы и нам нужно определить площадь большего.
Ответ оставил: Гость
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01