Power for integers , Pascal

Power for integers

function power(x,y:integer):real;
var counter:integer;
var result:real;
begin
    if y>0 then
        begin
            result:=1;
            for counter:=1 to y do
                begin
                    if (x>0) or (x<0) then
                        begin
                            result:=result*x;
                        end
                    else
                        begin
                            result:=0;
                        end;
                end; 
            power:=result;
            write(power);
        end
    else if y=0 then
        begin
            result:=1;
            power:=result;
            write(power);
        end
    else
        begin
            if x=0 then
                begin
                    write('ERROR');
                end
            else
                begin
                    result:=1;
                    for counter:=1 to abs(y) do
                        begin
                            result:=result*(1/x);
                        end;
                    power:=result;
                    write(power);
                end          
        end
end;
var x,y:integer;
begin
    readln(x);
    read(y);
    power(x,y);
end.


run \| edit \| history \| help	0

Please log in to post a comment.