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?

Wyznaczanie lat przestępnych - Implementacja w Ada
Ocena użytkownikóww: *****  / 1
SłabyŚwietny
Nadesłany przez Tomasz Lubiński, 19 lutego 2008 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.

lp.adb:
--
-- Obliczanie lat przestepnych
-- www.algorytm.org
-- (c) 2008 Tomasz Lubiński
--

with Text_IO;
use Text_IO;

procedure lp is

   function przestepny(rok: Integer) return Boolean is
   begin
      return (((rok mod 4 = 0) and (rok mod 100 /= 0)) or (rok mod 400 = 0));
   end;
     
   rok : Integer;
   
begin

   rok := 2008;

   if przestepny(rok) = True then
      Put_Line("Rok " & Integer'Image(rok) & " jest przestepny.");
   else
      Put_Line("Rok " & Integer'Image(rok) & " nie jest przestepny.");
   end if;

end;
Dodaj komentarz