Примеры решений задач

Задание 1.

Составить программу на языке программирования 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.

Составить программу, вычисляющую значение переменной m при данных i, j, k: m = .

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

Program example_1;

Var i, j, k: Integer;

m: Real;

Дата добавления: 2014-12-10