Program na výpočet najväčšieho spoločného deliteľa. Pre výpočet je použitý Euklidov algoritmus.
Delphi & Pascal (česká wiki)
Kategória: Zadania Pascal
Autor: Juraj Pupák
Program: Algoritm.pas
Súbor exe: Algoritm.exe
Súbor ubuntu: Algoritm
Autor: Juraj Pupák
Program: Algoritm.pas
Súbor exe: Algoritm.exe
Súbor ubuntu: Algoritm
Program na výpočet najväčšieho spoločného deliteľa. Pre výpočet je použitý Euklidov algoritmus.
{ ALGORITM.PAS } { Program na vypocet najvacsieho spolocneho delitela. } { Pre vypocet je pouzity Euklidov algoritmus. } { } { Author: Juraj Pupak } { Date : 27.10.2006 http://www.trsek.com } program EuklidovAlgoritmus; uses crt; var number_1,number_2,temp : integer; begin clrscr; writeln('Program na vypocet najvacsieho spolocneho delitela'); writeln('Pre vypocet je pouzity Euklidov algoritmus'); writeln('--------------------------------------------------'); writeln('Zadaj prve cislo'); readln(number_1); writeln('Zadaj druhe cislo'); readln(number_2); clrscr; Repeat IF number_1 < number_2 THEN begin temp := number_1; number_1 := number_2; number_2 := temp; end; number_1 := number_1 mod number_2; Until number_1 = 0; writeln(number_2); readln; end.