Pascal Cơ Bản

blogger-disqus-facebook

• Kho bài giảng Online
• Kiểm tra trực tuyến

Nơi chia sẻ thông tin của Hội đồng bộ môn Tin học tỉnh An Giang

• Hoạt động HĐBM
• _Các kỳ thi
• __Tin học trẻ
• __Học sinh giỏi THCS
• __Học sinh giỏi THPT
• __Nghề phổ thông
• __Thống nhất NNLT các kỳ thi
• _Hình ảnh
• _Biểu mẫu
• _Kế hoạch
• _Thông báo
• _Chuyên đề
• _Phần mềm dạy học
• _Đề thi Tin học
• _Văn bản mới
• _Tra cứu Văn bản
• __Cần quan tâm
• __Theo chuyên môn
• Thủ thuật - tiện ích
• _Ứng dụng hay
• _Thủ thuật tin học
• Tài liệu
• _Soạn - Giảng
• _Tài liệu chuyên môn
• _Bồi dưỡng HSG
• _Code Pascal
• _Tập hợp giáo án
• _Tập hơp đề thi
• _Sách - Tài liệu hay
• _Ôn thi TS 10
• _Ôn thi THPT
• Học Online
• _Blogspot
• _Lập trình Web
• _Lập trình Pascal/C
• _Lập trình IOS
• _Lập trình Android
• _Quản trị mạng
• _Tin học văn phòng
• _Học tiếng Anh
• Học trên TIVI
• _Hà Nội
• __Lớp 4
• ___Tiếng Việt
• ___Toán
• ___Tiếng Anh
• __Lớp 5
• ___Tiếng Việt
• ___Toán
• ___Tiếng Anh
• __Lớp 6
• ___Ngữ văn
• ___Toán
• __Lớp 7
• ___Ngữ văn
• ___Toán
• __Lớp 8
• ___Ngữ văn
• ___Toán
• __Lớp 9
• ___Ngữ văn
• ___Toán
• __Lớp 11
• ___Toán
• ___Vật lý
• ___Hóa học
• __Lớp 12 - Môn KHTN
• ___Toán
• ___Vật lý
• ___Hóa học
• ___Môn Sinh
• __Lớp 12 - Môn KHXH
• ___Ngữ văn
• ___Lịch sử
• ___Địa lý
• ___Môn GDCD
• __Lớp 12 - Tiếng Anh
• _VTV7
• __Lớp 1
• ___Tiếng Việt
• ___Tiếng Anh
• __Lớp 2
• ___Tiếng Anh
• _HTV Key
• __Lớp 1
• ___Tiếng Việt
• __Lớp 2
• ___Tiếng Việt
• ___Toán
• __Lớp 5
• ___Tiếng Việt
• ___Tiếng Anh
• ___Toán
• __Lớp 9
• ___Ngữ văn
• ___Toán
• ___Tiếng Anh
• __Lớp 12
• ___Toán
• ___Vật lý
• ___Hóa học
• ___Sinh học
• ___Ngữ văn
• ___Tiếng Anh
• _ATV
• __Tiểu học
• __THCS | THPT
• E-LEARNING
• Liên hệ
• _Thành viên HĐBM
• _Đơn vị tài trợ

Home / Unlabelled / Pascal cơ bản Pascal cơ bản tháng 5 05, 2022 0 Câu lệnh vòng lặpĐề bài: Tìm ước chung lớn nhất và bội chung nhỏ nhất của hai số a và b được nhập từ bàn phím.Ví dụ: Nhập a= 6 và b=9 Kết quả UCLN = 3 và BCNN = 18 Ý 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 tìm được UCLN. - Lấy tích của 2 số chia cho UCLN tìm được BCNN. Thuật toán tìm Bội chung nhỏ nhất và Ước chung lớn nhất 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.Chương trìnhVar 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.Chương trìnhVar x,y,UCLN,BCNN,r:integer;Beginreadln(x,y); BCNN:=x*y; r:= y mod x;While r <> 0 doBegin r:= x MOD y;x:= y;y:= r; 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: {Chương trình con}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;{Chương trình chính} 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. Chủ đề:

Không có nhận xét nào

Đăng ký: Đăng Nhận xét ( Atom ) 💬 🤖 Chat với Trợ lý ảo vui tính Gửi 🪙 Hôm nay bạn thế nào - mời bạn nhấn vào đây 💡 Mẹo hay: Bạn có thể tạo mã QR trực tuyến ngay tại trang hdbmtinhocag!

Tạo QR-CODE miễn phí

Mời bạn nhập đường dẫn website, số điện thoại hay thông tin cần tạo Tạo QR

Google Alert - Công nghệ thông tin

Đang tải...

Categories

Phổ biến

• Điểm thi tuyển sinh vào lớp 10 các trường trong tỉnh An Giang Đang cập nhật dữ kiệu được sắp xếp từ cao đến thấp Hướng dẫn tải bảng điểm Nhấn vào tên các đơn vị để tải về bảng điểm ...
• Giáo án môn Tin học từ lớp 6 đến lớp 12 (đầy đủ) - Giáo án môn Tin học lớp 6 (sách mới) -  Download - Giáo án môn Tin học lớp 7 (sách mới) -  Download - Giáo án môn Tin học lớp 8 HK ...
• Thi thử nghề phổ thông - Tin học văn phòng ProProfs Quiz- Thi nghề phổ thông - Tin học văn phòng loading...

Mới đăng

3/recent-posts

Bình luận

Chưa có bình luận

Chủ đề

• Biểu mẫu (19)
• Blogspot (6)
• Đề thi (59)
• Địa lý (4)
• Elearning (9)
• GDCD (4)
• Giáo án (21)
• Giáo viên (33)
• Hình ảnh (18)
• Hóa học (4)
• Học Online (39)
• Học TV (255)
• https://bit.ly/2WZ70Q7 (147)
• Lập trình phổ thông (13)
• Lập trình WEB (9)
• Lịch sử (4)
• Lớp 1 (6)
• Lớp 10 (2)
• Lớp 11 (4)
• Lớp 12 (27)
• Lớp 2 (7)
• Lớp 3 (4)
• Lớp 4 (8)
• Lớp 5 (8)
• Lớp 6 (3)
• Lớp 7 (3)
• Lớp 8 (3)
• Lớp 9 (6)
• LT di động android (4)
• LT di động IOS (2)
• Manabie (4)
• Menu (12)
• Modun 4 (13)
• Ngữ Văn (9)
• Ôn thi THPT (9)
• Ôn thi tuyển sinh 10 (7)
• Phần mềm hay (54)
• Quản trị mạng (3)
• Sách - Tài liệu (60)
• Sinh học (4)
• Tài liệu chuyên môn (84)
• Thông báo (398)
• Tiện ích dành cho bạn (72)
• Tiếng Anh (10)
• Tiếng Việt (12)
• Tin tức (130)
• Toán (17)
• Văn bản mới (116)
• Văn bản phát hành (14)
• Vật lý (5)

Tổng số lượt xem

Thành viên có mặt

Bản quyền thuộc về Hội đồng bộ môn Tin học | Hình ảnh chủ đề của simonox. Được tạo bởi Blogger.