Дано натуральное число n и вещественное число a. Вычислить an I. Многократное умножение числа само на себя. Uses CRT; const n = 5; Var a : Integer; Mul : Real; i : Integer; begin clrscr; WriteLn ('Enter a: '); ReadLn(a); Mul := 1; for i := 1 to N do begin Mul := Mul*a; {возводим в степень за счет многократного умножения} end; WriteLn( 'a^n = ', Mul:5:1); end. Результат работы программы II. Используя формулу an = e (n*ln(a)) Uses CRT; Var a : Real; n : Integer; begin Writeln('Enter a'); ReadLn(a); Writeln('Enter n'); ReadLn(n); Writeln(exp(ln(a)*n):6:2); ReadLn; end. Результат работы программы Enter a 10 Enter n 4 10000.00
Ключевые слова:
степень, возведение в степень
|
|||