?? t10.p
字號:
program expon2(output);var pi, spi: real;function power(x: real; y: integer): real; var z: real; begin z := 1; while y>0 do begin while not odd(y) do begin y := y div 2; x := sqr(x); end; y := y-1; z := x*z; end; power := z; end;begin pi := 3.14159; writeln(2.0, 7, power(2.0, 7)); spi := power(pi, 2); writeln(pi, 2, spi); writeln(spi, 2, power(spi, 2)); writeln(pi, 4, power(pi, 4));end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -