(изменено)
Код к задаче написан на Pascal. Блок схему приложил вместе с кодом и выводом компилятора:
var x: integer;
f_x: real;
begin
write('Enter value of "x": x = ');
read(x);
f_x:= 0;
if (x <= 3) then
f_x:= x*x + 3*x + 90;
end;
if (x > 3) then
f_x:= (sin(x))/(x*x - 9);
writeln('f(x) = ',(f_x):0:2);
end.
(изменено)
Код к задаче написан на Pascal. Блок схему приложил вместе с кодом и выводом компилятора:
var x: integer;
f_x: real;
begin
write('Enter value of "x": x = ');
read(x);
f_x:= 0;
if (x <= 3) then
begin
f_x:= x*x + 3*x + 90;
end;
if (x > 3) then
begin
f_x:= (sin(x))/(x*x - 9);
end;
writeln('f(x) = ',(f_x):0:2);
end.