Пример выполнения лабораторной работы 2

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

Этапы решения задачи:

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

2. Алгоритм решения задачи приведен на рисунке Г.1.

Рисунок Г.1 – Блок-схема программы

3. Листинг программы на языке структурного программирования Паскаль.

program example1;

var x1, x2, y1, y2,d: real;

begin

writeln('Эта программа вычисляет расстояние между двумя точками на плоскости');

writeln('Введите координаты двух точек:');

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= ',d:4:2);

writeln('нажмите Enter для завершения работы программы');

readln;

end.

4. Результаты тестирования программы.