algorytm.org

Implementacja w Ada



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?

Silnia - Implementacja w Ada
Ocena użytkownikóww: *****  / 5
SłabyŚwietny
Nadesłany przez Tomasz Lubiński, 26 lipca 2005 01:00
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.

Silnia.adb:
--
-- www.algorytm.org
-- silnia
-- (c)2006 Tomasz Lubinski
--
 
with Text_IO;
use Text_IO;

procedure Silnia is

   function power(i: Integer) return Integer is
   begin
      if i<1 then
        return 1;
      end if;
      return i * power(i-1);
   end;
   
   n  : Integer;

begin

   n := 10;
   Put_Line(Integer'Image(n) & "! = " & Integer'Image(power(n)));
   
end;
Dodaj komentarz