Разработка и реализация программ с линейной структурой, страница 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

y:=3;

 
Блок-схема: решение: x>5

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

 

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

 
Блок-схема: решение: (x>=3)and(x<=5)Блок-схема: решение: (x>0)and(x<3)

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

 
Блок-схема: решение: (x>=-4)and(x<=0)

y:=x+2;

 
Блок-схема: решение: x<-4Блок-схема: данные: ХБлок-схема: знак завершения: Начало