Программа возводит число a в степень b, где a – любое число, а b – любое целое число.
Решение:
|
1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
program procedures_6;
uses crt; var a, rez: real; b: integer; procedure power(pa: real; pb:integer; var prez: real); var p: real; i: integer; begin p:=pa; if pb>0 then for i:=pb downto 2 do begin pa:=pa*p; prez:=pa; end else for i:=abs(pb) downto 2 do begin pa:=pa*p; prez:=1.00/pa; end; end; begin clrscr; write(‘Число > ‘); read(a); write(‘Степень > ‘); read(b); if b=1 then write(a, ‘^’,b, ‘=’, a) else if b=0 then write(a, ‘^’,b, ‘=1’) else begin power(a, b, rez); write(a, ‘^’,b, ‘=’,rez); end; readkey; end. |