Viết CT Tìm ƯCLN (Uớc Chung Lớn Nhất) GCD Bằng Pascal - Selfomy

Chào mừng bạn đến với Selfomy Hỏi Đáp, hãy Hỏi bài tập hoặc Tham gia ngay Đăng nhập

• Selfomy Đăng nhập

• Thưởng điểm
• Câu hỏi
• Hot!
• Chưa trả lời
• Chủ đề
• Đặt câu hỏi
• Lý thuyết

Đặt câu hỏi Viết CT tìm ƯCLN (Uớc chung lớn nhất) GCD bằng Pascal

• Selfomy Hỏi Đáp
• Học tập
• Tin học
• Tin học lớp 8
• Viết CT tìm ƯCLN (Uớc chung lớn nhất)...

0 phiếu 2.8k lượt xem đã hỏi 18 tháng 3, 2021 trong Tin học lớp 8 bởi longvu999 Thần đồng (1.0k điểm) Viết CT tìm ƯCLN (Uớc chung lớn nhất) GCD bằng Pascal

Hãy đăng nhập hoặc đăng ký để thêm bình luận.

Hãy đăng nhập hoặc đăng ký để trả lời câu hỏi này.

2 Trả lời

0 phiếu đã trả lời 18 tháng 3, 2021 bởi manh7a1 Tiến sĩ (18.9k điểm) được bầu chọn là câu hỏi hay nhất 2 tháng 4, 2021 bởi longvu999 Hay nhất

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.

Hãy đăng nhập hoặc đăng ký để thêm bình luận.

0 phiếu đã trả lời 18 tháng 3, 2021 bởi chibao Cử nhân (1.9k điểm)

Có nhiều thuật toán để tìm ước chung lớn nhất (hay GCD), nhưng đơn giản nhất đó chính là thuật toán Euclid. Sau đây mình sẽ trình bày cách tư duy cho bài này

B1: Xác định đầu vào (input) là hai số a,b nguyên dương

B2: Viết thuật toán để có được đầu ra như đề bài yêu cầu là ƯCLN

Thuật toán Euclid

Trong khi b khác 0 thì:

tạm = b

b = a mod b

a = tạm

kết quả sẽ là a

B3: Xuất kết quả (output) là ƯCLN

Đây là mã nguồn chương trình tìm ước chung lớn nhất bằng Pascal

uses crt;

var tam, a, b: integer;

begin

clrscr;

writeln("Nhap vao so a: ");

readln(a);

writeln("Nhap vao so b: ");

readln(b):

while a <> b do

begin

tam = b;

b = a mod b;

a = tam;

end;

writeln("UCLN la: ", a);

readln;

end.

Hãy đăng nhập hoặc đăng ký để thêm bình luận.

Các câu hỏi liên quan

0 phiếu 0 câu trả lời 326 lượt xem ƯCLN và BCNN trong Pascal Đề bài: Cho N cặp số nguyên dương a, b. Tính ước chung lớn nhất và bội chung nhỏ nhất của mỗi cặp số đó. Yêu cầu: Input: Dòng 1 là số nguyên N (1<= N <= 200).</span>            N dòng tiếp theo gồm 2 số nguyên a, b (1<= a, b <= 10^5).</span> Output: Gồm N ... tương ứng. Ví dụ: Input Output 1 15 27 3 135 3 17 29 44 44 24 12 1 493 44 44 12 24 [Mình sẽ tick cho người làm nhanh - đúng đầu tiên nha!] đã hỏi 11 tháng 4, 2020 trong Tin học lớp 8 bởi MAN6002 Cử nhân (2.3k điểm)

• turbo-pascal
• tin-học-8
• làm-nhanh-đúng-đầu-tiên-mình-tick-nha

+1 thích 0 câu trả lời 452 lượt xem Viết chương trình tìm ƯCLN và BCNN của 2 số nguyên dương a,b nhập từ bàn phím bằng Python đã hỏi 22 tháng 4, 2021 trong Tin học lớp 8 bởi lamanhpc1 Học sinh (300 điểm)

• python
• viết-chương-trình

0 phiếu 1 trả lời 224 lượt xem tính bằng chương trình pascal băng for.... to.. do S=√1+2+3+...+n S=1-2+3-4.....+(-1)^n-1* n S= 1/2+2/3+3/4......+n/n+2 đã hỏi 3 tháng 4, 2022 trong Tin học lớp 8 bởi Khách

• tin-hoc-8
• bài-khó

+1 thích 1 trả lời 233 lượt xem Viết chương trình nhập mảng số thực, tìm số thực lớn nhất và vị trí của các số thực đó. Viết chương trình nhập mảng số thực, tìm số thực lớn nhất và vị trí của các số thực đó. đã hỏi 9 tháng 12, 2020 trong Tin học lớp 8 bởi trannhat900 Phó giáo sư (52.9k điểm)

• trannhat900

0 phiếu 0 câu trả lời 171 lượt xem Viết chương trình pascal in ra màn hình chu vi diện tích hình tròn... Viết chương trình pascal in ra màn hình chu vi diện tích hình tròn với dộ dài bán kính được nhập vào từ bàn phím chu vi và diện tích chỉ lấy 2 số phần thập phân. đã hỏi 30 tháng 10, 2022 trong Tin học lớp 8 bởi Khách +1 thích 1 trả lời 922 lượt xem Câu 2: Biểu thức khi viết trong Pascal sẽ có dạng: Câu 2: Biểu thứckhi viết trong Pascal sẽ có dạng: A. 1/b – x/(b+1)*a+2 B. 1/b – x/b+1*(a+2) C. 1/b – x/(b+1)*(a+2) D. 1/b – x/(b+1)(a+2) đã hỏi 21 tháng 11, 2020 trong Tin học lớp 8 bởi nguyendavit123 Tiến sĩ (12.5k điểm) +1 thích 1 trả lời 252 lượt xem Viết chương trình Pascal Viết chương trình Pascal nhập từ bàn phím ba số thực a, b, c và kiểm tra xem nó có phải là ba cạnh của 1 tam giác vuông/ tù/ nhọn không. Gợi ý: Sử dụng bình phương 1 cạnh so sánh với tổng bình phương 2 cạnh còn lại. đã hỏi 17 tháng 3, 2020 trong Tin học lớp 8 bởi MAN6002 Cử nhân (2.3k điểm)

• tin-hoc-8

+3 phiếu 2 câu trả lời 492 lượt xem Viết chương trình Pascal Viết chương trình nhập n số nguyên a) In các số đó ra màn hình b) Đếm có bao nhiêu số chẵn trong dãy, in các số đó ra màn hình   c) Đếm có bao nhiêu số lẻ trong dãy, in các số đó ra màn hình đã hỏi 15 tháng 2, 2019 trong Tin học lớp 8 bởi Letram Cử nhân (5.0k điểm)

• tin-hoc-8

+1 thích 2 câu trả lời 264 lượt xem viết chương trình Pascal viết một chương trình pascal in ra màn hình dòng chữ : " chao cac ban "  lm hộ nhé mik cần gấp  tin học lớp 8 bài 4  đã hỏi 10 tháng 10, 2018 trong Tin học lớp 8 bởi Tuyên Phạm Thần đồng (968 điểm) 0 phiếu 1 trả lời 190 lượt xem Pascal nè, giúp mình viết công thức với. Sắp kt rồi! 1). Nhập số nguyên n có 3 chữ số. Sau đó hãy đảo ngược số n. Cuối cùng in ra kết quả. 2).  Nhập số nguyên n có 4 chữ số. Sau đó tính tổng các chữ số của số n. Cuối cùng in ra kết quả. 3).  Nhập số nguyên n có 5 chữ số. Hãy in ra chữ số hàng chục ngàn, ngàn, trăm, chục, đơn vị của số n ( mỗi chữ số 1 dòng).    Các bạn viết lời giải ra giúp mình luôn nhé Thanks  đã hỏi 31 tháng 10, 2017 trong Tin học lớp 8 bởi Phạm Ngọc LAM Thần đồng (577 điểm)

HOT 1 giờ qua

Thành viên tích cực tháng 02/2026

1. trannhat900

   52948 Điểm

2. phamngoctienpy1987844

   50728 Điểm

3. vxh2k9850

   35980 Điểm

4. Nqoc_baka

   34614 Điểm

Phần thưởng hằng tháng Hạng 1: 200.000 đồng Hạng 2: 100.000 đồng Hạng 3: 50.000 đồng Hạng 4: 20.000 đồng Phần thưởng bao gồm: mã giảm giá Shopee, Nhà Sách Phương Nam, thẻ cào cùng nhiều phần quà hấp dẫn khác sẽ dành cho những bạn tích cực nhất của tháng. Xem tại đâyBảng xếp hạng cập nhật 30 phút một lần

• Gửi phản hồi
• Hỗ trợ
• Quy định
• Chuyên mục
• Huy hiệu
• Trang thành viên: Biến Áp Cách Ly

Nhãn hiệu, logo © 2026 Selfomy Về Selfomy ...