Специфікація програми має такий вигляд:

Назва завдання: чисельна функція Назва програми: Lab 1 Система програмування: Turbo Pascal 7.0 Системні вимоги: IBM PC/AT 286 і вище

Вхідні дані

На вхід програма приймає 3 параметри:

x, a, b – параметри функції (дійсні числа)

Значення числа x, повинні належати діапазону [0..999].

Якщо числа, що подаються на вхід програми, виходять за межі вказаних діапазонів, тоді повинно видаватися повідомлення про помилку.

Вихідні дані

Вихідними даними програми є обчислене значення функції y (дійсне число).

Результат обчислення виводиться на консоль.

Для x

Для а

1.  x < 0 (помилкове)

2.  x > 999 (помилкове)

3.  x – не число (помилкове)

4.  0  x  999 (коректне)

5.  a < 1 (помилкове)

6.  a > 100 (помилкове)

7.   a – не число (помилкове)

8.   1  a  100 (коректне)

program lab;

var

x,a,b:integer;

y:real;

begin

write ('vvedit x,a,b:');

read(x,a,b);

readln;

if x>0

then

y:=(x-sqrt(a))/(b*sin(x))

else

y:=(ln(abs(2-x))*exp(x))/(a*x);

writeln ('otvet:',y:5:2);

readln;

end.