Thuat toan tim UCLNGui em Thu
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (17.68 KB, 1 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
<b>Thuật toán tìm UCLN</b>
Bài toán: Tìm ƯCLN của hai số tự nhiên a và b
<b>Giải</b>
Program UCLN;
Uses CRT;
Var a, b, r, temp: byte;
Begin
Clrscr;
Write('Moi ban nhap hai so a, b: ');readln(a,b);
if (a = 0) and (b = 0) then
Begin
Write(' Moi ban nhap lai');
Exit;
End;
if (a = 0) then
Begin
Write(' UCLN lµ ',b);
Exit;
End;
if (b = 0) then
Begin
Write(' UCLN lµ ',b);
Exit;
End;
if (a<b) then
Begin
temp:=a;
a:= b;
b:=temp;
end;
r: = a mod b;
While r <> 0 do
Begin
a:= b;
b:=r;
r: = a mod b;
end;
Write(' UCLN = ',b);
Readln;
</div>
<!--links-->
