Pascal - Procedury i funkcje

Potęgowanie liczb

Potęgowanie liczb
Pascal - Procedury i funkcje

Program: potęgujący liczby.

Podstawę jak i wykładnik podaje użytkownik – z zaprogramowanego zakresu.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program potegas;
uses crt;
var w,pod:integer;
    function potega:longint;
    var i:integer;
        wy:longint;
    begin
    potega:=1;
    wy:=1;
    for i:=1 to w do wy:=wy*pod;
    potega:=wy;
    end;
begin
clrscr;
repeat
write('Podaj podstawe potegi(wieksze od 0): ');
read(pod);
write('Podaj wykladnik potegi(0-30): ');
read(w);
until (pod>0) and (w>=0) and (w<=30);
Writeln('Potega wynosi :',potega);
readkey;
end.