Это надо делать в Паскале! Хеееелп!!!

0 голосов

Это надо делать в Паскале!
Хеееелп!!!


image

спросил от (12 баллов) в категории Информатика
оставил комментарий от Начинающий (212 баллов)

Русунок к решению нужен или только чтобы выдавал ответ?

оставил комментарий от (12 баллов)

Только ответ

оставил комментарий от (12 баллов)

Бл, прям срочно помощь нужна

1 Ответ
0 голосов
ответил от (34 баллов)
function dl(x1,x2,y1,y2:integer):integer; begin dl:=trunc(sqrt(sqr(y2-y1)+sqr(x2-x1))); end; var p2,a,b,c,d,x1,x2,x3,x4,y1,y2,y3,y4:integer; poly1,poly2,s1,s2,s:real; begin readln(x1,y1); readln(x2,y2); readln(x3,y3); readln(x4,y4); a:=dl(x1,y1,x2,y2); b:=dl(x2,y2,x3,y3); c:=dl(x3,y3,x4,y4); d:=dl(x4,y4,x1,y1); poly1:=(a+b+c)/2; poly2:=(a+c+d)/2; S1:=sqrt(poly1*(poly1-a)*(poly1-b)*(poly1-c)); s2:=sqrt(poly2*(poly1-a)*(poly2-c)*(poly2-d)); s:=S1+s2; writeln(s:1:1); readln; end.
оставил комментарий от (34 баллов)

там txt с кодом

...