Bài tập : Viết chương trình nhập vào hai số nguyên dương a, b bất kỳ, hiển thị ước chung lớn nhất của hai số và bội chung nhỏ nhất của hai số đó
Bài giải :
Chi tiết :
Đầu tiên lấy các biến gồm : a, b, uc, bc kiểu integer. Sau đó yêu cầu người dùng nhập vào giá trị a và b còn giá trị uc và bc là thứ cần tìm.
Phần chính, thực hiện tính UC và BC. Ta có đoạn code tính UC và BC dưới đây, So sánh nếu a lớn hơn b thì mới thực hiện tính, sau đó in ra màn hình
Nhìn đoạn mã trên thì bạn cũng đã hiểu cách tính rồi đúng không !. Chúc các bạn thành công !
Bài giải :
Mã:
Program UC_BC;
Uses crt;
Var a, b, uc, bc: integer;
BEGIN
Clrscr;
Writeln(‘nhap so thu nhat ’); readln(a);
Writeln(‘nhap so thu hai ’); readln(b);
While (a<>b) do
Begin
If a>b then a:=a-b else b:=b-a;
End;
uc:=a; bc:=(a*b)/uc;
Writeln(‘uoc chung lon nhat cua ‘,a,’ va ’,b,’ la ‘,uc);
Writeln(‘boi chung nho nhat cua ‘,a,’va ’,b,’ la ‘,bc);
Readln
END.Đầu tiên lấy các biến gồm : a, b, uc, bc kiểu integer. Sau đó yêu cầu người dùng nhập vào giá trị a và b còn giá trị uc và bc là thứ cần tìm.
Phần chính, thực hiện tính UC và BC. Ta có đoạn code tính UC và BC dưới đây, So sánh nếu a lớn hơn b thì mới thực hiện tính, sau đó in ra màn hình
Mã:
While (a<>b) do
Begin
If a>b then a:=a-b else b:=b-a;
End;
uc:=a; bc:=(a*b)/uc;Nhìn đoạn mã trên thì bạn cũng đã hiểu cách tính rồi đúng không !. Chúc các bạn thành công !
- Chủ đề
- bai tap pascal pascal pascal co ban
