Поделитесь своими знаниями, ответьте на вопрос:
. На бесконечном поле имеется стена, длины отрезков стены неизвестны. Стена состоит из одного вертикального и трёх горизонтальных отрезков (отрезки стены расположены буквой «Е» Все отрезки неизвестной длины. Робот находится в клетке, расположенной непосредственно над верхней стеной. На рисунке указан один из возможных расположения стен и Робота (Робот обозначен буквой «»). Напишите для Робота алгоритм, закрашивающий все клетки, расположенные справа у вертикальной стены в верхней части буквы «Е». Робот должен закрасить только клетки, удовлетворяющие данному условию. Например, для приведённого справа рисунка Робот должен закрасить следующие клетки (см. рисунок). Конечное расположение Робота может быть произвольным. При исполнении алгоритма Робот не должен разрушиться. Алгоритм должен решать задачу для произвольного размера поля и любого допустимого расположения стен ссылка на задание ниже https://f1.school.mosreg.ru/get.aspx/52/1f26810c2fd74932afab16d26ae59e1e.pdf ТОМУ КТО ПРАВИЛЬНО И БЫСТРО РЕШИТ НАКИНУ
pascalabc:
program f0rwardirop;
var r, x,y: real;
b: boolean;
begin
writeln('* alphaeus is *');
write('ok, введите r ='); readln(r);
write('теперь введите х ='); readln(x);
write('и, наконец, введите y ='); readln(y);
if x> =0 then
if (x*x+y*y < = r*r) then b: = true else b: =false
else
if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;
if b then writeln('точка (',x,',',y,') принадлежит закрашенной области')
else writeln('точка (',x,',',y,') не принадлежит закрашенной области');
end.