algorytm.org

Implementacja w Delphi/Pascal

Baza Wiedzy
wersja offline serwisu przeznaczona na urządzenia z systemem Android
Darowizny
darowiznaWspomóż rozwój serwisu
Nagłówki RSS
Artykuły
Implementacje
Komentarze
Forum
Bookmarki






Sonda
Implementacji w jakim języku programowania poszukujesz?

Potęgowanie z uwzględnieniem wykładników ujemnych - Implementacja w Delphi/Pascal
Ocena użytkownikóww: *****  / 1
SłabyŚwietny
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.
Dodaj komentarz