Tìm ước Chung Lớn Nhất Và Bội Chung Nhỏ Nhất Pascal - Cùng Sẻ Chia .

Đăng nhập / Đăng ký

• Trang chủ
• Thành viên
• GIẢI TOÁN THCS
• Trợ giúp
• Liên kết web
• Liên hệ
• HỌC TRỰC TUYẾN
• WEB
• My Blogs

• SỐ HỌC
• ĐẠI SỐ
• HÌNH HỌC

• WIN XP

• Thư viện trực tuyến VIOLET
• Cô Kim Dung
• Thầy Đức Nhơn
• C Tươi NG
• C Thu Hoài

• HOC360
• HOC MÃI
• CHĂM HỌC

• ÔGL
• Thầy Đào Văn Tiến
• Lê Trung Kiên
• LÊ VY
• Em Nghị
• Văn Thế
• Ngọc Nam

Đăng nhập

Tên truy nhập Mật khẩu Ghi nhớ   Quên mật khẩu ĐK thành viên

LANGUAGE TRANSLATION

12 AEMN

NHÀ MÌNH ONLINE !

Tiến Quốc	Tố Uyên
Thuý Hằng	Linh Sương
Vũ Mai	Nguyễn Duyên
Chi Uyên	Minh Anh
Châu Tuấn	Thành Nhân
Chí Thành	Đức Thiệu

QT của thầy Văn Ngãi

Thông tin

• Giới thiệu bản thân
• Thành tích
• Lưu giữ kỉ niệm
• Hình ảnh hoạt động
• Soạn bài trực tuyến
• Chia sẻ kinh nghiệm
• Liên kết web

• Khí công
• Báo Suckhoedoisong
• Ykhoanet
• Trường Thạch Lạc
• Tao blog

danh mục nội dung web mmtt

Các ý kiến mới nhất

o dau ra n>= 10 vậy thầy ...

Lâu rồi mới ghé thăm chủ nhà đây. Còn nhớ...

Nhớ Thúy Hằng lắm . Em khỏe không? ...

8m-m^2-n^2+10n-42 = -(m^2-8m+16) - (n^2-10n+25)...

lâu quá rồi TTT Hằng ơi khong thấy lên web....

Chúc em cùng gia đình một mùa Noel an lành...

Mời cô qua sông Lam sang Nghệ An chơi...

Ui, bữa ni lại gặp dc THẦN Y ! Ok!...

Lâu rồi Ko gặp dc O Hà Tĩnh nè: gọi...

Ngô úy chúc cô ngày 20/11 ấm áp, hạnh phúc....

ĐÓN CHÀO NGÀY NHÀ GIÁO VIỆT NAM, CHÚC CÔ THÚY...

...

Rất vui được làm quen với Thúy Hằng. Luôn có...

Chúc mừng sinh nhật ( trễ) hai mẹ con Thúy...

Thống kê

2482703 truy cập (chi tiết) 46 trong hôm nay

4727168 lượt xem 66 trong hôm nay

452 thành viên

GD

XIN KÍNH CHÀO

1 khách và 0 thành viên

l kết web thành viên

Đỗ Đức Thiệu Nguyễn Thị Tươi Đinh Hữu Trường Lê Thị Phương Mai Phùng Thi Thu Liễu Ngô Thị Hồng Thanh Đỗ Thị Hoa Lữ Hồng Ân Đào Thị Nhung Lê Thị Xuân Huyền Lương Thị Tửu Lê Thị Việt Hằng Nga Trịnh Thu Hằng Bình Nguyên Trần Minh Hiền Nguyễn Thị Thu Diễm Tôn Nữ Bích Vân Nguyễn Thị P. Lan Nguyễn Mến Nguyễn Trừ Tâm Nguyễn Đức Nhơn Nguyễn Thị Sang Trường Thạch Lạc Trần Quốc Thường Nguyễn Quang Loan Chu Văn Quý Nguyễn Trọng Khoái Tố Uyên Trần Xuân Hồng Nguyễn Thiện Trúc Đỗ Thanh Dương Trần Thị Thanh Dung Nguyễn Diễm My Vũ Thị Mai Nguyễn ThịDuyên

111

Gốc > TRI THỨC CUỘC SỐNG - CHIA SẺ KINH NGHIỆM > HỌC TIN HỌC > TURBO PASCAL >

Tạo bài viết mới Tìm ước chung lớn nhất và bội chung nhỏ nhất pascal

Ý tưởng: Lấy số lớn hơn trong 2 số trừ đi nhau. Lặp lại thao tác đến khi nào 2 số bằng nhau -> UCLN. Lấy tích của 2 số chia cho UCLN -> BCNN.

Thuật toán tìm Bội chung nhỏ nhất và Ước chung lớn của 2 số trong Pascal:

Cách 1: Dưới đây là thuật toán tìm UCLN bằng cách trừ đi nhau, được trình bày trong SGK tin học 10. var x,y,UCLN,BCNN:integer; begin readln(x,y); BCNN:=x*y; While x<>y do If x>y then x:=x-y else y:=y-x; UCLN:=x; BCNN:=BCNN div UCLN; write(UCLN,' ',BCNN); end. Cách 2: Thuật toán Euclide: Ngoài cách tìm UCLN như trên. Các bạn có thể sử dụng cách chia lấy dư (mod), chương trình sẽ tối ưu do phải thực hiện ít phép tính hơn. Ý tưởng: UCLN của 2 số x, y cũng là UCLN của 2 số y và x mod y, vậy ta sẽ đổi x là y, y là x mod y cho đến khi y bằng 0. Khi đó UCLN là x. var x,y,UCLN,BCNN,t:integer; begin readln(x,y); BCNN:=x*y; t:= y mod x; While t <> 0 do Begin t:= x MOD y; x:= y; y:= t; End; ucln:=x; BCNN:=BCNN div UCLN; write(UCLN,' ',BCNN); end. Cách 3: Tìm UCLN bằng cách dùng đệ quy: Đệ quy được hiểu đơn giản là sự gọi nhiều lần chương trình con trong chương trình. Thực sự, đối với bài toán đơn giản, không ai sử dụng đệ quy vì sẽ làm phức tạp vấn đề và làm chương trình trở nên rắc rối, phải thực hiện nhiều phép tính hơn. Tuy nhiên, nếu bắt buộc phải dùng đệ quy, các bạn có thể tham khảo cách làm dưới đây: function ucln(x,y:integer):integer; begin if x = y then ucln:=x else if x > y then ucln:=ucln(x mod y,y) else ucln:=ucln(x, y mod x); end; var x,y:integer; begin readln(x,y); write('Ước chung lớn nhất là: ', UCLN(x,y), ' Bội chung nhỏ nhất là: ', (x*y) div UCLN(x,y)); end. codepascal.blogspo Nhắn tin cho tác giả Trần Thị Thúy Hằng @ 01:32 14/12/2012 Số lượt xem: 17684 Số lượt thích: 0 người   ↓ ↓ Gửi ý kiến

• Tìm các số tổng các các ước của số này bằng số kia và ngược lại (14/12/12)
• Bài tập đơn giản cho Câu lệnh vòng lặp trong Pascal (for, while, repeat) (14/12/12)
• Turbo Pascal 7.0 with DOSBox - Turbo Pascal cho win 7 (14/12/12)
• Kiểm tra số chính phương trong mảng 1 chiều (14/12/12)
• Dữ liệu kiểu bản ghi: BẢN GHI CÓ CẤU TRÚC THAY ĐỔI (09/08/12)

Bản quyền thuộc về Trần Thị Thúy Hằng * Website được thừa kế từ Violet.vn, người quản trị: Trần Thị Thúy Hằng