Разработка и реализация программ с линейной структурой, страница 4

uses crt;

var x,y:real;

begin

 clrscr;

 write('enter X of point A: '); readln(x);

 write('enter Y of point A: '); readln(y);

 if ((y>=x-4) and (x<=0) and(y>=0)) or ((y>=-2-x) and (x<=0) and (y<=0)) then write('Point A is belong')

 else write('Point A is not belong');

 readln;

end.                                    

 Результат   -1 1 Point A is belong

2.4) Функция задана графически. Написать программу вычисляющую значение абцисы, если известна ордината.

Блок-схема

y:=3;

y:=(3*x-9)/2;

y:=(6-2*x)/3;

y:=(6-2*x)/3;

y:=x+2;