Пример линейной программы на языке программирования Pascal

Составить программу на языке программирования Pascal и блок-схему для решения следующей задачи:

Вычислить расстояние между двумя точками с данными координатами  x1, y1  и x2, y2

Объявим переменные действительного типа x1, y1  и x2, y2 - для хранения координат точек и переменную r - для записи результата нахождения расстояния между этими точками.

Расстояние между точками r вычисляется по формуле:

  

Ввод переменных будет осуществляться с клавиатуры

Блок-схема программы.

Разработаем алгоритм программы в  виде блок-схемы:

 

Текст программы  на языке Pascal

В среде программирования на языке Pascal, например,  Borland Pascal 7.0 вводим текст программы:

Uses crt;
Var x1,y1, x2,y2, r: Real;
Begin  // начало программы
Clrscr;  // очистка экрана
Write('x1=');  
ReadLn(x1);  // ввод х1
Write('x2=');   
ReadLn(x2);   // ввод х2
Write('y1=');
ReadLn(y1);  // ввод у1
Write('y2=');
ReadLn(y2);  // ввод у2
r:=sqrt(sqr(x2-x1)+sqr(y2-y1));   // вычисление расстояния между точками
WriteLn('r=',r:5:3);   // вывод результата
readkey;  // ожидание нажатия клавиши
end.  // конец программы