Этапы решения задачи. 1. Математическая модель: расстояние на плоскости между двумя точками M1(x1,y1) и M2(x2,y2) вычисляется по формуле

1. Математическая модель: расстояние на плоскости между двумя точками M 1(x 1, y 1) и M 2(x 2, y 2) вычисляется по формуле

.

2. Для вычисления расстояния d между точками M 1(x 1, y 1) и M 2(x 2, y 2) определим в качестве входных данных значения координат .

3. Составляем блок-схему алгоритма.

4. Прежде чем приступить к программированию, выражение правой части уравнения представим в виде последовательности вычислительных операций, ограниченных скобками, с использованием формул преобразований и стандартных функций языка Pascal: .

5. Переводим блок-схему на язык Pascal.

program primer1;

var x1, x2, y1, y2: integer;

d: real;

begin

write('Введите координату x1= '); readln(x1);

write('Введите координату y1= '); readln(y1);

write('Введите координату x2= '); readln(x2);

write('Введите координату y2= '); readln(y2);

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

writeln('Расстояние между точками =', d);

end.