Приклад лінійної програми
Обчислити відстань між двома точками з даними координатами x1, y1 і x2, y2.
Оголосимо змінні дійсного типу x1, y1 і x2, y2 – для зберігання координат точок і змінну r – для запису результату знаходження відстані між цими точками .
Відстань між
точками r
обчислюється за формулою:
Блок - схема програми:
Лістинг програми:
PROGRAM PRUKLAD1;
Uses crt;
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. // кінець програми
Натискаємо клавіші CTRL+F9 для компіляції і запуску на виконання програми. Отримаємо результат:
Викладач ____________