Найти значение функции : y= 3x^2-6x-7 "^" -степень.

Question

Найти значение функции : y= 3x^2-6x-7
"^" -степень.

Answer 1

//прога на Pascal`e
var
x : int64;
//
function f (x: int64):int64;
begin
f:=3*x*x-6*x-7;
end;
//
begin
write ('Введите значение X: ');
readln (x);
writeln ('y = ', f(x));
end.

Comments

//прога на Pascal`e
var
x : double;
//
function f (x1: double):double;
begin
f:=3*x1*x1-6*x1-7;
end;
//
begin
write ('Введите значение X: ');
readln (x);
writeln ('y = ', f(x));
end.

---

В принципе, можно было использовать перегрузку функций, ну и так сойдет...