в системе программирования ABC Pascsl.

Question

в системе программирования ABC Pascsl.

Ирина Омелюх Знаток (274), закрыт 5 лет назад

Даны координаты точки А (х, у). Написать программу, которая определяет принадлежит ли эта точка фигуре ограниченной осью абсцисс и двумя прямыми:

Answer 1

Решение на Pascal ABC

var x, y: real;
begin
write ('введите координаты точки A(x,y):');
readln (x,y);
if (x> 5) or (x<-1.5) then writeln (' координата X вне диапазона');
if (x >= -1.5) and (x <= 0) then
if (2*x+3 >= y) and (y >= 0) then
writeln ('принадлежит ') else writeln ('не принадлежит ');
if (x > 0) and (x <= 5) then
if (-3/5*x+3 >= y) and (y >= 0) then
writeln ('принадлежит ') else writeln ('не принадлежит ');
end.