Реферат: Отчет по программированию

begin

clrscr;

write('x1 y1 ? ');

readln(x1,y1);

write('x2 y2 ? ');

readln(x2,y2);

l:=sqrt(sqr(x1-x2)+sqr(y1-y2));

writeln('l=',l:6:2);

readln;

end.

РЕЗУЛЬТАТЫ ИСПЫТАНИЙ

Приложение Б

(обязательное)

Рисунок Б.1

Рисунок Б.2