Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
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.
floor and ceiling
Pascal Epsilon
Letícia
Project Euler 18 - Maximum path sum
Бассейн-5
Calculatrice 1.0
Apaja
test09
calculating PI
Helpme
Please log in to post a comment.