Ước Chung Lớn Nhất Của 2 Số (BT Pascal)

Trang chủ » Cách Tìm Bcnn Và Ucln Trong Pascal » Ước Chung Lớn Nhất Của 2 Số (BT Pascal)

Có thể bạn quan tâm

ITK35Zone
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
ITK35Zone
Trang ChínhTrang Chính Latest imagesLatest images Đăng kýĐăng ký Đăng NhậpĐăng Nhập
Chào mừng các bạn đã đến với diễn đàn ITK35Zone - Lớp CNTT K35 Trường Đại học Sư phạm TP.HCMHiện diễn đàn đang bị lỗi kĩ thuật, mong mọi người thông cảm. BQT sẽ cố gắng khắc phục trong thời gian sớm nhất...
Bài Viết Mới
Mẹo sử dụng hiệu quả pin smartphoneCó bạn nào muốn đi theo chuyên ngành mạng?Maple 13 Full (Thực hành lập trình tính toán)vi sao suka lai yeu nobita ?Hỏi về chương trình học CNTT của ĐHSPTạo Portable chuyên nghiệp = Thinstall 3.332 và ThinApp 4.0.3.3313BÁN Ổ CỨNG SAMSUNG SATA 2 160GB HANG FPT[PTTKHT3] Đề đồ án giữa kìtao tang dang nhap co gioi han so ky tu passwordXeBus[.Tk]
Bài viết trong ngàyCác bài viết trong thángThống kê tổng thểTopic sôi nổi nhấtTopic xem nhiều nhấtThành viên có nhiều chủ đề nhấtThành viên post bài nhiều nhất trong 1 tuầnThành viên post bài nhiều nhất trong thángTop posterSố topic trong tháng
ITK35Zone :: Học tập :: Lưu trữ (năm 1) :: Tin học đại cươngShare |
Ước chung lớn nhất của 2 số (BT Pascal)Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down
Ước chung lớn nhất của 2 số (BT Pascal) EmptyThu Dec 10, 2009 12:06 pm
Regulus™
UserRegulus™ Người này hiện đang:Level: Tổng điều hànhDanh vọng:758
Tổng điều hành
 Regulus™
Tổng điều hành

http://itk35.tk 		Giới tính : Nam Đến từ : ... Join : 06/11/2009 Bài gửi : 758 HUMOR : Nghe nhạc.. Computer Thú cưng.:

Bài gửiTiêu đề: Ước chung lớn nhất của 2 số (BT Pascal)
Code: uses crt;var a,b:integer;begin clrscr;write('Nhap a=');readln(a);write('Nhap b=');readln(b);while a<>b doif a>b then a:=a-b else b:=b-a ;write('Uoc chung lon nhat la ',a);readln;end.

Ước chung lớn nhất của 2 số (BT Pascal) EmptyThu Dec 10, 2009 5:47 pm
—» Ñärµ «—
User—» Ñärµ «— Người này hiện đang:Level: Thành Viên ChuẩnDanh vọng:47
Thành Viên Chuẩn
 —» Ñärµ «—
Thành Viên Chuẩn

 Join : 11/11/2009 Bài gửi : 47

Bài gửiTiêu đề: Re: Ước chung lớn nhất của 2 số (BT Pascal)
uses crt; var a,b:integer;begin clrscr;write('Nhap a= ');readln(a);write('Nhap b= ');readln(b);while ab doif a>b then a:=a mod b else b:=b mod a ;write('Uoc chung lon nhat la ',a);readln;end.nhìn hok thấy nhưng trên nguyên tắc thì ct này nhanh hơn.

Ước chung lớn nhất của 2 số (BT Pascal) Empty
UserSponsored content Người này hiện đang:Level: Danh vọng:
 Sponsored content

Bài gửiTiêu đề: Re: Ước chung lớn nhất của 2 số (BT Pascal)

Ước chung lớn nhất của 2 số (BT Pascal) EmptyThu Dec 10, 2009 6:33 pm
Regulus™
UserRegulus™ Người này hiện đang:Level: Tổng điều hànhDanh vọng:758
Tổng điều hành
 Regulus™
Tổng điều hành

http://itk35.tk 		Giới tính : Nam Đến từ : ... Join : 06/11/2009 Bài gửi : 758 HUMOR : Nghe nhạc.. Computer Thú cưng.:

Bài gửiTiêu đề: Re: Ước chung lớn nhất của 2 số (BT Pascal)
Naru đã viết: if a>b then a:=a mod b else b:=b mod a ; Nhanh hơn nỗi ji trong khi kết quả ra sai Very Happy:DBạn thử ví dụ số 4 và 2 đi nếu theo chương trình của bạn là ra UCLN =0 đó vì 4 mod 2=0Với lại phép cộng , trừ , nhân, chia bao h cũng chạy nhanh hơn phép chia lấy phần dư Very Happy

Ước chung lớn nhất của 2 số (BT Pascal) EmptyThu Dec 10, 2009 8:30 pm
—» Ñärµ «—
User—» Ñärµ «— Người này hiện đang:Level: Thành Viên ChuẩnDanh vọng:47
Thành Viên Chuẩn
 —» Ñärµ «—
Thành Viên Chuẩn

 Join : 11/11/2009 Bài gửi : 47

Bài gửiTiêu đề: Re: Ước chung lớn nhất của 2 số (BT Pascal)
sr ^^!tại làm piếng tính lấy pài của pạn sửa một chút! quên sửa khúc sau!if a=0 then ucln = b else ucln =a;thử biết liền :d

Ước chung lớn nhất của 2 số (BT Pascal) Empty
UserSponsored content Người này hiện đang:Level: Danh vọng:
 Sponsored content

Bài gửiTiêu đề: Re: Ước chung lớn nhất của 2 số (BT Pascal)

Ước chung lớn nhất của 2 số (BT Pascal) - http://www.suctresupham.forumotion.com/t905-topic Đây là một bài viết hay mà mình muốn gửi đến các bạn. Hãy ủng hộ cho 4rum chúng tôi nhé ^^!!!
Ước chung lớn nhất của 2 số (BT Pascal)Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang
Trang 1 trong tổng số 1 trang
Permissions in this forum:Bạn không có quyền trả lời bài viết
ITK35Zone :: Học tập :: Lưu trữ (năm 1) :: Tin học đại cương-

Từ khóa » Cách Tìm Bcnn Và Ucln Trong Pascal