Составить программу на языке программирования Pascal и блок-схему для решения следующей задачи:
Вычислить расстояние между двумя точками с данными координатами x1, y1 и x2, y2.
Объявим переменные действительного типа x1, y1 и x2, y2 – для хранения координат точек и переменную r – для записи результата нахождения расстояния между этими точками.
Расстояние между точками r вычисляется по формуле:
Ввод переменных будет осуществляться с клавиатуры.
| Текст программы на языке Pascal
Uses crt; //Обращение к модулю Сrt библиотеки 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. // Конец раздела операторов
| |
Разработаем алгоритм программы в виде блок-схемы.