почему неправильный ответ програмы?

@Lagolass · Регистрация: 02.06.2012

Author24 — интернет-сервис помощи студентам

вот код програмы который решает школьную задачу - принадлежит ли точка треугольнику с задаными коордатами.
Так вот проблема в том что ответ всегда один и тот же внезависимости принадлежит точка треугольнику или нет

Pascal

program obolonka;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var s,x1,y1,x2,y2,x3,y3,x,y,a1,b1,c1,s1,cx,bx,ax,s2,s3,st:real;
procedure line(xp,yp,xk,yk:real; var l:real);
begin
l:=sqrt(sqr(xk-xp)+sqr(yk-yp));
end;
procedure pl(a,b,c:real; var s:real);
var p:real;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
 
begin
writeln('Vvedit koord. vershin trikytnika');
readln(x1,y1,x2,y2,x3,y3);
writeln('Vvedit koord. tochki');
readln(x,y);
line(x1,y1,x2,y2,a1); line(x1,y1,x,y,cx); line(x2,y2,x,y,ax);
pl(a1,cx,ax,s1);    writeln(s1:0:2);
line(x2,y2,x3,y3,b1);  line(x3,y3,x,y,bx);
pl(ax,b1,bx,s2);    writeln(s2:0:2);
line(x3,y3,x1,y1,c1);
pl(bx,c1,cx,s3);    writeln(s3:0:2);
pl(a1,b1,c1,st);writeln(st:0:2);
 
s:=s1+s2+s3;  writeln(s:0:2);
if s1+s2+s3=st then writeln('nalegit') else writeln('ne nalegit');
readln;

https://www.cyberforum.ru/atta... 1416505727

@Lagolass · 20.11.2014, 20:55 **[ТС]**

куча writeln'нов добавлено спецом для проверки получаемых значений

@bormant · 20.11.2014, 21:07

Сравнивать действительные числа на равенство -- слишком плохая идея, вместо этого используйте условие: модуль разности сравниваемых чисел меньше заведомо малого числа, например, 1e-6:

Pascal

1
2
3

const eps=1e-6;
...
  WriteLn(abs(s-st)<eps);

или так:

Pascal

const
  eps=1e-6;
  NY: array [Boolean] of String[15] = ('Не принадлежит','Принадлежит');
...
  WriteLn(NY[abs(s-st)<eps]);

@Lagolass · 20.11.2014, 21:22 **[ТС]**

спасибо понял в чем проблема, я нашол еще один вариант решения - округлить получаемые значения ф-ей round(), тогда ответ что надо

@bormant · 20.11.2014, 21:44

Lagolass,
Round -- слишком грубо. А если треугольник (0,0), (0,0.5), (0.5,0) и точка (0.25,0.25)? И в таком же роде.

@Lagolass 2 / 2 / 0 Регистрация: 02.06.2012 Сообщений: 60
	20.11.2014, 20:55 [ТС]	2
	куча writeln'нов добавлено спецом для проверки получаемых значений 0

@Lagolass 2 / 2 / 0 Регистрация: 02.06.2012 Сообщений: 60
	20.11.2014, 21:22 [ТС]	4
	спасибо понял в чем проблема, я нашол еще один вариант решения - округлить получаемые значения ф-ей round(), тогда ответ что надо 0

@bormant Модератор 7768 / 4598 / 2823 Регистрация: 22.11.2013 Сообщений: 13,079 Записей в блоге: 1
	20.11.2014, 21:44	5
	Lagolass, Round -- слишком грубо. А если треугольник (0,0), (0,0.5), (0.5,0) и точка (0.25,0.25)? И в таком же роде. 0