/x^3-3x+11 , x<=4
F(x)=|
\1/(x^3+13), x>4
Ручной ввод
program otto_fon_bismark;
uses crt;
var
x: integer;
y: real;
begin
clrscr;
writeln('Введите x');
readln(x);
If x <= 4 then
begin
y := exp(x * ln(3)) - 3 * x + 11;
writeln('Значение функции равно ', y);
end;
If x > 4 then
begin
y := 1 / (exp(x * ln(3)) + 13);
writeln('Значение функции равно ', y);
end;
readln;
end.
Ввод данных компьютером
program kopernik;
uses crt;
var
x: integer;
y: real;
begin
clrscr;
Randomize;
x := random(1000) - 1000;
writeln(x);
If x <= 4 then
begin
y := exp(x * ln(3)) - 3 * x + 11;
writeln('Значение функции равно ', y);
end;
If x > 4 then
begin
y := 1 / (exp(x * ln(3)) + 13);
writeln('Значение функции равно ', y);
end;
readln;
end.