Есть координаты вершин треугольника. определить, где находится начало координат (внутри треугольника, снаружи или находится на одной из его сторон) для паскаля abc, подскажите самый простой способ кода..

213

290

Посмотреть ответы 2

Ответы на вопрос:

Maaaaagic

Информатика

4,5(46 оценок)

Type txy = record x, y: real end; function sqt(a, b, c: txy): real; begin sqt: =abs((a.x-b.x)*(c.y-b..y-b.y)*(c.x-b.x))/2; end; const eps=1e-4; o: txy = (x: 0; y: 0); var a, b, c: txy; s1, s2, s3: real; begin write('введите координаты вершин треугольника: '); readln(a.x,a.y,b.x,b.y,c.x,c.y); s1: =sqt(o,a,b); s2: =sqt(o,b,c); s3: =sqt(o,a,c); write('центр координат лежит '); if abs(s1)< eps then writeln('на стороне ab') else if abs(s2)< eps then writeln('на стороне bc') else if abs(s3)< eps then writeln('на стороне ac') else if abs(s1+s2+s3-sqt(a,b,c))< eps then writeln('внутри треугольника') else writeln('вне треугольника'); end.

Нм6шиш

Информатика

4,6(33 оценок)

Function pow(x: real; n: integer): real; begin if n=0 then pow: =1 else pow: =pow(x,n-1)*x end; var x,z: real; n,k: integer; begin writeln('введите x,n,z,k: '); read(x,n,z,k); writeln(pow(x,n)-pow(z,k)) end. пример введите x,n,z,k: 3.7 5 2.18 4 670.85426424