Matematické Fórum

AHOJ, POTŘEBUJU PROSÍM VYSVĚTLIT ŘÁDEK VYZNAČENÝ TUČNĚ. NEVÍM, CO PŘEDSTAVUJE TO I A P A CO TEN ZÁPIS ZNAMENÁ. DĚKUJU.

program mocnina;

var

X,V,A,M : real;

N,P : word;

procedure mocnina;

var

I : integer;

begin

M:=1;
for I:=1 to P do M:=M*A;

end;

begin
writeln('Vzpocitam mocninu cisla. Yadejte cislo a ymacnete ENTER.');
read(X);
writeln('Yadejte exponent mocninz a ymacknete ENTER.');
read(N);
A:=X;
P:=N;
mocnina;
V:=M;
writeln('Vysledek je:',X,'^',N,'=',V);

end.