Пример. Определить расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1) и M2(x2,y2).
Решение. Математическая модель: расстояние на плоскости между двумя точками M1(x1,y1) и M2(x2,y2) высчитывается по формуле:
Составим блок-схему алгоритма, а затем уточним содержимое блоков "Вычисление расстояния" и "Вывод расстояния":
Дальнейшая детализация не требуется. Переводим блок-схему на язык Паскаль, доработав программу, чтобы улучшить ее интерфейс:
program example1;var x1, x2, y1, y2: Integer; 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:6:2); Writeln('нажмите Enter для завершения работы программы'); Readln; end.
Варианты заданий
Задание 1. Даны x, y. Составить программу вычисления значения выражения:
a)
b)
c)
d)
Задание 2.Составить программу для решения следующей задачи:
a) Дана длина ребра куба. Найти объем куба и площадь его боковой поверхности.
b) Известна длина окружности. Найти площадь круга, ограниченного этой окружностью.
c) Вычислить высоту треугольника, опущенную на сторону а, по известным значениям длин его сторон a, b, c.
d) По данным сторонам прямоугольника вычислить его периметр, площадь и длину диагонали.
Задание 3. Вывести значение true, если приведенное высказывание для предложенных исходных данных является истинным, и значение false в противном случае (все числа, для которых не указано иное, являются действительными):
a) данное число x принадлежит отрезку [-a, a];
b) данное число x не принадлежит интервалу (a, b);
c) данное целое число x является нечетным;
d) данное число x является корнем уравнения: ax2+bx+c=0;