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

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

Вычислить расстояние между двумя точками с данными координатами x₁, y₁ и x₂, y₂.

Объявим переменные действительного типа x₁, y₁ и x₂, y₂ – для хранения координат точек и переменную 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. // Конец раздела операторов

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

<2 3 456 7 8 >

Дата добавления: 2015-02-05; просмотров: 1436;