Составить визуальные разветвленные алгоритмы для следующих задач. Определить является ли точка с координатами X,Y точкой пересечения диагоналей квадрата со стороной R ,одна вершина которого расположена в начале координат.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
