Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Tiên Tiên

Viết chương trình tối giản một phân số. Yêu cầu: có sử dụng chương trình con. 
Ví dụ: nhập vào 6/10. In ra màn hình 3/5.

Nguyễn Lê Phước Thịnh
2 tháng 5 2021 lúc 22:21

uses crt;

var a,b:integer;

{-----------------chuong-trinh-con-------------------}

function ucln(x,y:integer):integer;

var i,uc:integer;

begin

if x<y then 

begin

uc:=1;

for i:=1 to x do 

  if (x mod i=0) and (y mod i=0) then  

begin

if uc<i then uc:=i;

end;

end

else begin

uc:=1;

for i:=1 to y do 

  if (x mod i=0) and (y mod i=0) then  

begin

if uc<i then uc:=i;

end;

end;

ucln:=uc;

end;

{--------------------------chuong-trinh-chinh------------------------}

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

writeln(a,'/',b,'=',a div ucln(a,b),'/',b div ucln(a,b));

readln;

end.


Các câu hỏi tương tự
Tiên Tiên
Xem chi tiết
Nguyễn Văn Hùng
Xem chi tiết
Trần Văn Lượng
Xem chi tiết
Nguyễn Minh Thành
Xem chi tiết
mistud
Xem chi tiết
nhat hoang
Xem chi tiết
Lê Trung Nguyên
Xem chi tiết
Phan thị lê na
Xem chi tiết
Lương Ngọc Anh
Xem chi tiết