TÌM ƯỚC CHUNG LỚN NHẤT PASCAL

  -  
*
đã trả lời17 mon 3, 2021bởi manh7a1 ● Ban quản lí TrịTiến sĩ(18.0k điểm)được bầu chọn là thắc mắc hay nhất2 tháng 4, 2021bởi longvu999

var x,y,UCLN,BCNN:integer;

begin

readln(x,y);BCNN:=x*y;

While xy bởi If x>y then x:=x-y else y:=y-x;UCLN:=x;BCNN:=BCNN div UCLN;

write(UCLN," ",BCNN);

end.

Bạn đang xem: Tìm ước chung lớn nhất pascal


*
đã trả lời17 tháng 3, 2021bởi chibao ● Ban quản ngại TrịCử nhân(2.2k điểm)

Có nhiều thuật toán để tìm ước phổ biến 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 diễn cách tư duy cho bài xích này

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

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

Thuật toán Euclid

Trong khi b không giống 0 thì:

tạm = b

b = a gian lận 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 kiếm ước phổ biến 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 singin 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ời85 lượt xem
ƯCLN cùng BCNN trong Pascal
Đề bài: Cho N cặp số nguyên dương a, b. Tính mong chung lớn số 1 và bội chung nhỏ tuổi nhất của mỗi cặp số đó. Yêu thương cầu: Input: Dòng 1 là số nguyên N (1 N dòng tiếp sau gồm 2 số nguyên a, b (1 Output: Gồm N ... Tương ứng. Ví dụ: Input output đầu ra 1 15 27 3 135 3 17 29 44 44 24 12 1 493 44 44 12 24
đã hỏi11 tháng 4, 2020trong Tin học tập lớp 8bởi MAN6002Cử nhân(2.0k điểm)
+1 thích
0 câu trả lời251 lượt xem
Viết công tác tìm ƯCLN cùng BCNN của 2 số nguyên dương a,b nhập từ bàn phím bằng Python
đã hỏi22 mon 4, 2021trong Tin học tập lớp 8bởi lamanhpc1Học sinh(55 điểm)
0 phiếu
1 trả lời54 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ỏi3 tháng 4trong Tin học lớp 8bởi Khách
+1 thích
1 trả lời80 lượt xem
Viết công tác nhập mảng số thực, search số thực lớn nhất và vị trí của những số thực đó.
Viết chương trình nhập mảng số thực, tìm kiếm số thực lớn số 1 và vị trí của các số thực đó.

Xem thêm: Top 7 Bài Hãy Kể Một Lần Em Trót Xem Nhật Kí Của Bạn (16 Mẫu)


đã hỏi8 mon 12, 2020trong Tin học tập lớp 8bởi trannhat900 ● Ban cai quản TrịPhó giáo sư(51.2k điểm)
0 phiếu
0 câu trả lời21 lượt xem
Viết lịch trình pascal in ra screen chu vi diện tích s hình tròn...
Viết công tác pascal in ra màn hình chu vi diện tích hình tròn với dộ dài nửa đường kính được nhập vào từ keyboard chu vi và mặc tích chỉ đem 2 số phần thập phân.
đã hỏi30 tháng 10trong Tin học tập lớp 8bởi Khách
+1 thích
1 trả lời726 lượt xem
Câu 2: Biểu thức khi viết vào Pascal sẽ sở hữu dạng:
Câu 2: Biểu thứckhi viết vào 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ỏi21 mon 11, 2020trong Tin học lớp 8bởi nguyendavit123 ● Ban quản ngại TrịTiến sĩ(10.5k điểm)
+1 thích
1 trả lời98 lượt xem
Viết chương trình Pascal
Viết công tác Pascal nhập tự bàn phím ba số thực a, b, c và bình chọn 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.

Xem thêm: Viết Đoạn Văn Ngắn Về Chủ Đề Học Tập Có Sử Dụng Câu Ghép, Viết Đoạn Văn 6


đã hỏi17 mon 3, 2020trong Tin học lớp 8bởi MAN6002Cử nhân(2.0k điểm)
+3 phiếu
2 câu trả lời391 lượt xem
Viết lịch 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 gồm bao nhiêu số chẵn trong dãy, in các số kia ra màn hình c) Đếm có bao nhiêu số lẻ vào dãy, in các số kia ra màn hình
đã hỏi15 mon 2, 2019trong Tin học tập lớp 8bởi LetramCử nhân(5.0k điểm)
+1 thích
2 câu trả lời152 lượt xem
viết công tác Pascal
viết một lịch trình pascal in ra màn hình dòng chữ : " chao cac ban " lm hộ nhé mik bắt buộc gấp tin học lớp 8 bài 4 
đã hỏi9 tháng 10, 2018trong Tin học lớp 8bởi Tuyên PhạmThần đồng(965 điểm)
0 phiếu
1 trả lời97 lượt xem
Pascal nè, giúp mình viết cách làm với. Chuẩn bị kt rồi!
1). Nhập số nguyên n tất cả 3 chữ số. Sau đó hãy hòn đảo ngược số n. Cuối cùng in ra kết quả. 2). Nhập số nguyên n gồm 4 chữ số. Tiếp nối tính tổng những 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, đối kháng vị của số n ( mỗi chữ tiên phong hàng đầu dòng). Các bạn viết giải mã ra giúp mình luôn nhé Thanks 
đã hỏi30 tháng 10, 2017trong Tin học lớp 8bởi Phạm Ngọc LAMThần đồng(577 điểm)

HOT 1 tiếng qua


Thành viên tích cực tháng 12/2022
Phần thưởng hằng tháng
Hạng 1: 200.000 đồngHạng 2: 100.000 đồngHạng 3: 50.000 đồngHạng 4-10: 20.000 đồngBảng xếp hạng cập nhật 30 phút một lần
Về ghsprocoach.vn
...