:: Quên mật khẩu ::
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

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

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

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

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


 

Ướ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 | Create a free blog