Programy - Mocniny :)

Výpočet a výpis druhých a tretích mocnín čísel 1 až 10

Program napísaný v jazyk Pascal.

program MocninyOk;

var
i,x2,x3:integer;

begin
for i:=1 to 10 do begin
x2:=i*i;
x3:=i*i*i;
writeln (i,' ',x2,' ',x3);
end;
readln;
end.

Výpočet xⁿ

Program napísaný v jazyk Pascal.

program MocninaOk;

var
x,n,i,vysledok:integer;

begin
writeln ('Zadajte x,n');
readln (x,n);
vysledok:= 1;
for i:=1 to n do begin
vysledok:=x*vysledok;
end;
write (x,' na ',n);
writeln (' = ',vysledok);
readln;
end.

Výpočet xⁿ pomocou rekurzie

Program napísaný v jazyk Pascal.

program mocninapomocourekurzieOk;

var
c,d,vysledok:integer;

function Moc(a,n:integer): integer;
begin
if n=0 then Moc:=1
else Moc:=a*Moc(a,n-1);
end;

begin
writeln('Zadaj A,N a ja vypocitam N-tu mocninu cisla A.');
readln(c,d);
vysledok:=Moc(c,d);
writeln(vysledok);;
readln;
end.

Hodnotenie užitočnosti článku:

• ← Programy - Generovanie náhodných čísel :)
• Programy - Nájdenie maxima :) →