Ответы на вопрос:
// pascalabc.net 3.0, сборка 1066 type point=record x,y: double; end; procedure getpoint(c: char; var m: point); begin write('введите координаты точки ',c,': '); read(m.x,m.y) end; function l(a,b: point): double; begin result: =sqrt(sqr(b.x-a.x)+sqr(b.y-a.y)) end; function s(a,b,c: point): double; var p,la,lb,lc: double; begin la: =l(a,b); lb: =l(b,c); lc: =l(c,a); if (la+lb> lc) and (la+lc> lb) and (lb+lc> la) then begin p: =0.5*(la+lb+lc); result: =sqrt(p*(p-la)*(p-lb)*(p-lc)) end else result: =0 end; var a,b,c,d: point; s1,s2: double; begin getpoint('a',a); getpoint('b',b); getpoint('c',c); getpoint('d',d); s1: =s(a,b,c); if s1=0 then write('по точкам а,в,с нельзя построить треугольник') else begin s2: =s(c,d,a); if s2=0 then write('по точкам c,d,a нельзя построить треугольник') else writeln('площадь четырехугольника равна ',s1+s2) end end. тестовое решение: введите координаты точки a: -5 -7 введите координаты точки b: -2 4 введите координаты точки c: 5 9 введите координаты точки d: 9 -3 площадь четырехугольника равна 123
Популярно: Информатика
-
luciatarasova11.01.2021 23:45
-
shram07026.10.2022 19:09
-
thevenyaname03.11.2022 20:12
-
Черноболь66630.07.2020 14:31
-
королева572027.03.2021 07:11
-
aydanxudieva1414.02.2023 19:01
-
uhudongoair22.03.2023 18:52
-
vicroriaalakoz318.10.2022 23:37
-
Sniper00990204.03.2020 06:33
-
НаsтяПоможет77712.11.2020 18:31