Составить визуальные разветвленные алгоритмы для следующих задач. Определить является ли...

Question

Составить визуальные разветвленные алгоритмы для следующих задач. Определить является ли точка с координатами X,Y точкой пересечения диагоналей квадрата со стороной R ,одна вершина которого расположена в начале координат.

Answer 1

program n1;
uses GraphABC;
var x1,y1,R:integer;
x,y:real;
begin
writeln('Введите размер стороны');
read(R);
x:=R/2;
y:=R/2;
setwindowsize(800,600);
setpenwidth(3);
rectangle(0,0,R,R);
line(0,0,R,R); line(0,R,R,0);
writeln('Введите координаты точки x и y');
read(x1,y1);
if (x1=x) and (y1=y) then
writeln('Является')
else writeln('Не является');
end.