Napisati program sa funkcijom za stepenovanje broja a na n-ti stepen.

Listing programa:

PROGRAM stept;
USES
  WinCrt;
VAR
 n,a: Integer;
 r : Real;
FUNCTION step(a,n:Integer):Real;
VAR
  i: Integer;
  p: Real;
BEGIN
  p := 1;
  FOR i:= 1 TO n DO
    p := p*a;
  step := p;
END;

BEGIN
  writeln ('stepen broja ');
  write('a n ');
  readln(a n);
  r := step (a, n);
  writeln('stepen = ', r );
END.

Index