Составьте программу, функция которой возводит число 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 |
program functions_3;
uses crt; var a: real; b: integer; function S(sa: real; sb: integer): real; var i: integer; x: real; begin x:=sa; if sb=0 then S:=1 else if sb<0 then begin for i:=2 to abs(sb) do sa:=sa*x; S:=1/sa; end else begin for i:=2 to sb do sa:=sa*x; S:=sa; end end; begin clrscr; write(‘A > ‘); read(a); write(‘B > ‘); read(b); write(a, ‘^’, b, ‘ = ‘, S(a, b)); readkey; end. |