Здравствуйте, помогите с написанием программы на паскаль
Разработка разветвляющихся программ с применением условного оператора
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
Ответы
Ответ дал:
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.
Вас заинтересует
4 месяца назад
4 месяца назад
4 месяца назад
4 месяца назад
2 года назад
7 лет назад