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