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  
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 
Ướ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à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.



Ướ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ẩ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.



Ướ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à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



Ướ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ẩ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) 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)

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 | Báo cáo lạm dụng | Thảo luận mới nhất