Вычислить Значения Функции Паскаль. Срочно нужен ответ.
Вычислить Значения Функции Паскаль.
Срочно нужен ответ.
Гость
Ответ(ы) на вопрос:
Гостьprogram a1;
var x,f: real;
beginreadln (x);
if x<=0 then f:=x*x else f:=x/10;
writeln ('f=',f);
end.
Гость//прога на Pascal`e
var
x: real;
function f (a:real):real;
begin
if a<=0 then f:=sqr(a) else f:=a/10;
end;
begin
write ('Введите x: ');
readln (x);
write ('f(', x, ') = ', f(x) );
end.
Не нашли ответ?
Похожие вопросы