Программа возводит число 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. |
Я уже 3 года торгую фьючерсами на Bybit и приглашаю тебя присоединиться и получить до $30 000 бонусами плюс скидки на комиссии:
Зарегистрироваться на Bybit
Чем больше депозит – тем больше бонусов. Также моим рефералам доступны торговые боты для трейдинга по самым выгодным тарифам.