2. где-то в поле робота находится вертикальная стена, размеры которой неизвестны, робот из верхнего левого угла полядолжен дойти до стены и закрасить все клетки вокруг нее. пример результата работы программы показан на рисунке.​

предположим что отрезок будет равен x см тогда зная координату точки можно узнать будет ли точка принадлежать отрезку надо просто длинна отрезка минус значение координаты

program zadacha;

var x1,y1,x2,y2,x3,y3,a,b: real;

begin

writeln('введите координаты x1,y1');

readln(x1,y1);

writeln('введите координаты x2,y2');

readln(x2,y2);

writeln('введите координаты x3,y3');

readln(x3,y3);

a: =(y1-y2)/(x1-x2);

b: =((y1+y2)-a*(x1+x2))/2;

if (y3 = a*x3+b) and (x3 > x1) and (x3 < x2) or (y3 = a*x3+b) and (x2 > x1) and (x3 < x1)

then writeln('точка принадлежит отрезку')else writeln('точка не принадлежит отрезку')

end.

жили были клавиатура,мышь,и компьютер.жили они хорошо, пока не возник у них спор: кто из них самый главный! каждый начал доказывать, что именно он главный! первой отозвалась мышка: «я сама маленькая, значит я главнее! »

потом сказала клавиатура: «я самая главная, потому что я знаю множество языков! »

тут возмутился компьютер : «я среди вас самый главный! все, кто работает с монитором , смотрит только на меня, я всем нужен! »

они так спорили, пока не решили, что без них невозможно работать. на том и решили и после этого уже больше не ссорились, а жили долго и счастливо.