ITK35Zone


 
Trang ChínhTrang Chính  Đăng kýĐăng ký  Đă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.HCM
Hiệ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...

Share | 

 

 Ướ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 
Thu Dec 10, 2009 12:06 pm

avatar
UserRegulus™ Người này hiện đang:
Level: Tổng điều hành
Danh 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 do
if a>b then a:=a-b else b:=b-a  ;
write('Uoc chung lon nhat la ',a);
readln;
end.




[center]
&lt;font size=10&gt;Tin học là phải tin mới học&lt;/font size&gt;

Copy- Paste -&gt; Copy- Paste-Hiểu-Đánh giá-Phát triển Cải tiến.
&lt;br&gt;


Email: plkhanhhai1991@gmail.com
k35104017@student.hcmup.edu.vn


Thu Dec 10, 2009 5:47 pm

avatar
User—» Ñärµ «— Người này hiện đang:
Level: Thành Viên Chuẩn
Danh 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 a<>b do
if 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.



Thu Dec 10, 2009 6:33 pm

avatar
UserRegulus™ Người này hiện đang:
Level: Tổng điều hành
Danh 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:D
Bạ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=0
Vớ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




[center]
&lt;font size=10&gt;Tin học là phải tin mới học&lt;/font size&gt;

Copy- Paste -&gt; Copy- Paste-Hiểu-Đánh giá-Phát triển Cải tiến.
&lt;br&gt;


Email: plkhanhhai1991@gmail.com
k35104017@student.hcmup.edu.vn


Thu Dec 10, 2009 8:30 pm

avatar
User—» Ñärµ «— Người này hiện đang:
Level: Thành Viên Chuẩn
Danh 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




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)

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-
 
Free forum | © phpBB | Free forum support | Liên hệ | Report an abuse | Free blog