functie.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 10 行

program functie;
var f,x:real;
begin
write('x= ');
readln(x);
if x<=10 then f:=x*x+x-2
         else if x<=20 then f:=1/x
                        else f:=(x-1)/(x+1);
writeln('f(x)= ',f:4:2);
end.