Составить программу в Pascal ABC.
cos^2x-5
A= _______
√x^2+3
Ответы на вопрос
Ответил Студэнt
0
//прога на Pascal`e
var
x: real;
function f (a:real):real;
begin
f:= (sqr(cos(a)) - 5) / (abs(a) + 3);
end;
begin
write ('Введите x: ');
readln (x);
write ('A = ', f(x));
end.
var
x: real;
function f (a:real):real;
begin
f:= (sqr(cos(a)) - 5) / (abs(a) + 3);
end;
begin
write ('Введите x: ');
readln (x);
write ('A = ', f(x));
end.
Новые вопросы