Пример линейной программы на языке программирования 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
Write('Введите x1=');
ReadLn(x1);
Write('Введите x2=');
ReadLn(x2);
Write('Введите y1=');
ReadLn(y1);
Write('Введите y2=');
ReadLn(y2);
r:=sqrt(sqr(x2-x1)+sqr(y2-y1));
WriteLn('Раcстояние между этими двумя точками r=',r:5:3);
readln;
end.
Нажимаем клавиши CTRL+F9 для компиляции и запуска на выполнение программы. Получаем результат:
Домашнее задание.
Разобрать пример программы. Составить программу на языке программирования Pascal и блок-схему для решения следующей задачи:Дан треугольник со сторонами a, b, c. Найти площадь треугольника по формуле Герона.
