Вариант 3
Составьте программу рисования узора. Начальное положение Робота отмечено символом
6. Использовать линейный алгоритм
Робот движется коль стены от начального положения (0) до конца стены Стена
располагается по диагонали от правого верхнего к девому никнему углу поля,
Необходимо якрасить все внутренние углы стены, как показано на приѕtере Ромеры
стены могут быть произвольны.
Необходимо перевести Робота із начального положения (0точку А, закрашивая при
том указанные клетки пола. Размеры стен и расстояние между
произвольны СПОРЧНООО
// Внимание! Если программа не работает, обновите версию!
begin
var xa,ya,xb,yb,xc,yc:real;
Write('Введите координаты точки А: '); Read(xa,ya);
Write('Введите координаты точки B: '); Read(xb,yb);
Write('Введите координаты точки C: '); Read(xc,yc);
var xd:=(xb+xc)/2;
var yd:=(yb+yc)/2;
var ma:=sqrt(sqr(xd-xa)+sqr(yd-ya));
Writeln('ma=',ma:0:5);
var AB:=sqrt(sqr(xb-xa)+sqr(yb-ya));
var AC:=sqrt(sqr(xc-xa)+sqr(yc-ya));
var BC:=sqrt(sqr(xc-xb)+sqr(yc-yb));
var Wb:=sqrt(AB*BC*(sqr(AB+BC)-AC*AC))/(AB+BC);
Writeln('Wb=',Wb:0:5)
end.
Результат
Введите координаты точки А: 0 0
Введите координаты точки B: 2 1
Введите координаты точки C: -2 3
ma=2.00000
Wb=2.66667