Question

Здравствуйте, помогите с написанием программы на паскаль
Разработка разветвляющихся программ с применением условного оператора
z=ax^2+(a+1)x+1,если x<2@tg^2 (a+x)-b в остальных случаях)
Исходные данные:
a=38 b=0.21
результат при заданном значении:x=1.5 z=145
x=2.5 z=-0.084

Answer 1

var

a, b, x, z: real;

begin

a := 38;

b := 0.21;

readln(x);

if x < 2 then

z := a * x * x + (a + 1) * x + 1

else

z := tg(x) * tg(x) * (a + x) - b;

writeln(z:0:3);

end.