Ocena użytkownikóww: ***** / 7
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.
Euklides.adb:
--
-- www.algorytm.org
-- Algorytm Euklidesa
-- (c)2006 Tomasz Lubiński
--
with Text_IO;
use Text_IO;
procedure Euklides is
a, b, nwd_a, nwd_b: Integer;
begin
a := 153;
b := 1326;
nwd_a := a;
nwd_b := b;
while (nwd_a /= nwd_b) loop
if (nwd_a > nwd_b) then
nwd_a := nwd_a - nwd_b;
else
nwd_b := nwd_b - nwd_a;
end if;
end loop;
Put_Line("Największy wspólny dzielnik (NWD) " &
Integer'Image(a) & " oraz " & Integer'Image(b) &
" to: " & Integer'Image(nwd_b));
end;
