Khác biệt giữa bản sửa đổi của “Giải thuật Euclid”
Nội dung được xóa Nội dung được thêm vào
Không có tóm lược sửa đổi |
|||
Dòng 19:
== Mã giải ==
<syntaxhighlight lang="pascal">
Var a,b:integer;
Function UCLN(x,y:integer):integer;
Hàng 29 ⟶ 30:
readln
end.
</syntaxhighlight>
=== Chương trình con (thủ tục) dùng vòng lặp ===
<syntaxhighlight lang="pascal">
procedure USCLN(a, b : positive integers);
Hàng 43 ⟶ 45:
end;{x là ước số chung cần tìm}
End;
</syntaxhighlight>
=== Chương trình con (hàm) dùng vòng lặp ===
<syntaxhighlight lang="pascal">
function UCLN(a, b : integer): integer;
Hàng 57 ⟶ 61:
UCLN := a;
End;
</syntaxhighlight>
== Xem thêm ==
| |||