Приклад розгалуженої програми
Обчислити і надрукувати значення складеної функції у в деякій заданій користувачем точці х, якщо
Блок - схема програми:
Лістинг програми:
program Myfunction;
uses Crt;
var х, y: real;
begin // початок програми
clrscr; // очистка экрану
writeln (‘Введіть х:’);
readln (x);
if x < - 1 then y:=ln(abs(x)) else
if (x >= -1) and (x < 1) then y:=sin(x) else y:=cos(x);
writeln(‘x=’, x:5:2,’ y=’, y:5:2); // вивід результату
readkey; // очікування натиснення клавіші
end. // кінець програми
Щоб перевірити роботу програми потрібно задати X не менше трьох разів.
Результати роботи програми для кожного діапазону значень X:
Введіть x: Введіть x: Введіть x:
3 -2 0,5
x= 3.00 y=-0.99 х=-2.00 у=0.69 х= 0.50 у= 0.48
Викладач ____________