Ocena użytkownikóww: ***** / 1
Nadesłany przez Michał Witaszek, 10 czerwca 2012 16:01
Kod przedstawiony poniżej przedstawia główną część rozwiązania problemu.
Pobierz pełne rozwiązanie.Jeżeli nie odpowiada Ci sposób formatowania kodu przez autora skorzystaj z pretty printer'a i dostosuj go automatycznie do siebie.
pow2.pas:
Program potegowanie;
{
Potegowanie z uwzglednieniem wykladnikow ujemnych
Michal Witaszek
dla algorytm.org
}
uses CRT;
var
a,b,wynik: real;
Begin
wynik:=1;
ReadLn(a);
ReadLn(b);
if b>0 then
begin
while b>0 do
begin
wynik:= wynik*a;
b:= b-1;
end;
end else if b<0 then
begin
begin
while b<0 do
begin
wynik:= wynik*a;
b:= b+1;
end;
wynik:= 1.0/wynik;
end;
WriteLn(wynik:0:2);
ReadLn;
End.
