Admin
| | | |
Tổng số bài gửi : 730 Birthday : 08/02/1985 Cầm Tinh : Age : 39 Ngày nhập học : 17/09/2010
Đến từ : THPT Xuân Lộc Job/hobbies : Giáo Viên Tài Sản Cá Nhân :
| | | | |
| Tiêu đề: CTC- Tìm UCLN và rút gọn phân số (thực hành) Thu Mar 17, 2011 4:57 pm | |
| | | | | Đề bài: Nhập từ bàn phím 2 số nguyên a,b, hãy viết chương trình con để: a: Tìm UCLN(a,b); b: Rút gọn phân số a/b; Bài Giải: - Code:
-
program vidu; var a,b:integer; function ucln(x,y:integer):integer; var du:integer; begin while y<>0 do begin du:=x mod y; x:=y; y:=du; end; ucln:=x; end; procedure rutgon(var x,y:integer); var z:integer; begin z:=ucln(x,y); x:=x div z; y:=y div z; write('phan so rut gon la:',x,'/',y); end; begin write('nhap a,b:');readln(a,b); writeln('UCLN=',ucln(a,b)); rutgon(a,b); readln end.
| | | | | |
|