www.TrSek.com/sr/beginner/danciwo/euklidus - Euklidov algoritmus slúži na najdenie najmenšieho spoločného deliteľa dvoch čísel pomocou odčitovania

Programy
Programy zos Pascalu (54)
Zadaňa zos Pascalu (212)
Vydumaňec Zadani
Programy zos Pascalu (KMP) (142)
Programy zos C, C++ (8)
Nahodny program

Pascal - po kusoch
Hraňe (20)
Zadaňa (212)
Uchaľe (27)
Krešľeňe (31)
Matematika (105)
Geometrija (23)
Slova (40)
Projekty (23)
Pridaňa (34)

Papíre
Papíre zos Pascalu (na ľehko)
Papire zos programovaňa (18)
Linky na interňetu
FAQ – takoj tipy (4)

Hutoreňa
Scahňi
Dodaj daľši program
Numera staršich HDD

Kontakty
Tvoja Reklama
Pošľi meil
Daco o mňe - Muj popis
Knižka nafštef
ICQ 207919468 ICQ

Kategorija: Uchaľe

Zrobil: Danciwo
Program: Euklidus.pas
Subor exe: Euklidus.exe

Euklidov algoritmus slúži na najdenie najmenšieho spoločného deliteľa dvoch čísel pomocou odčitovania.

Kuklo še: 1064x

{ EUKLIDUS.PAS                                Copyright (c) Danciwo }
{ Euklidov algortimus sluzi na najdenie NSD (najmensi spolocny      }
{ delitel) dvoch N cisel iba pomocou odcitovania.                   }
{                                                                   }
{ Author: Danciwo                                                   }
{ Date  : 15.02.2008                           http://www.trsek.com }
 
program euklid_NSD;
var x,y:integer;
 
begin
 writeln('Euklidov algortimus na najdenie NSD (najmensi spolocny delitel) dvoch cisel');
 writeln('Zadaj x,y');
 readln(x,y);
 
 repeat
   if x>y then x:= x-y;
   if y>x then y:= y-x;
 until x=y;
 
 writeln('NSD= ',x);
 readln;
end.

[Naj beži] [Ulož] [Ciskaj] [Naj idze meilom]

Keľo nafštef: 875763
Mena jest: Prokop
Dneška jest: 04.07.2008, 23:19
Kalkulator naj.sk:

Ftip:
Otcovia hovoria najvacsie voloviny
- Mas pravo na svoj nazor, no radsej ho zmen!
- Mozes sa bicyklovat na ceste, ak slubis, ze ta nezrazi auto.
- Naco by ti bolo zviera? Mas sestricku.
- Je najvyssi cas, aby si sa naucil, ako sa umyva auto.
- Neboj sa. To je len krv.
- Vyberanie mandli neboli. Nie az tak velmi.
- Pozri, tvoja zlata rybka dostala nohy. Prave vbieha do macky.
- Ak nevynesies smeti, utopim ti macku!
- Co je cudne na tom, ked dam macke meno Gulliver? Zvykne si.
- Nie, na tetin pohreb si nesmies vziat walkman!
- Neviem, ktory z vas to urobil, aby som nikomu neukrivdil, potrestam vas vsetkych!
- ...a ked rezes, tak si radsej odrez len prst, akoby si si mal odrezat celu ruku.