Точка лежащая в или вне треуголинка

[Дмитрий Огнев]

вбиваешь координаты (x;y) и программа выдает попал (true) /не попал(false) в треугольник, но проблема с точками, которые чуть выше гипотенузы, программа эти точки видит, как попавшие. Как исправить этот недочет?

program qq;
var
x,y:integer;
f,f1,f2:boolean;
begin
f:=false;
f1:=false;
readln(x,y);
f1:=(x<=8)and(x>=2)and(y<=(2*x-19)/3)and(y>=1);
f:=f1;
if f = true
then writeln('yes')else writeln('no');
readln;
end.

[Аватар]

2*x-19 не уравнение той гипотенузы

[Дмитрий Огнев]

Спасибо за помощь

[Serge_Bliznykov]

а 8 всё-таки ОШИБКА! Ну, точнее, чертёж ошибочный: нижний катет должен быть на одну клеточку длиннее

[Аватар]

а 8 всё-таки ОШИБКА!

Почему? Там просто условие должно быть y<=(19-2*x)/3. ТС знаки местами поменял

[Serge_Bliznykov]

Сообщение от Аватар

Почему? Там просто условие должно быть y<=(19-2*x)/3. ТС знаки местами поменял

по рисунку видно, что одна клеточка - равна 1 (единице)
просто пронумеруйте клеточки после 2 (3, 4. ...)
видно же, что длина горизонтального катета равна 5 клеточек (по рисунку).
А, судя по всему, она должна быть 6 (от 2 до 8 - если восемь - это не ошибка).
Рисунок явно ошибочный.
Но это на формулах это никак не скажется.