Pascal | Tìm USCLN(a, b) va BSCNN(a, b)

Pascal | Tìm USCLN(a, b) va BSCNN(a, b)

 Tìm USCLN(a, b) va BSCNN(a, b)

            Ví dụ: USCLN(18, 24) = 6              và        BSCNN(18, 24) = 72

Yêu cầu: Input:   a, b là 2 số tự nhiên.

   Output: USCLN và BSCNN của a và b

Một số lưu ý:

- Nếu i là ước số của a và b thì a và b đồng thời chia hết cho i

- Luôn luôn có tối thiểu một USCLN của a và b là 1.

- Nếu i là USCLN thì i là ước số nhỏ hơn cả a lẫn b và gần a, b nhất.

Như vậy, nếu sử dụng một vòng lặp để kiểm tra a,b có đồng thời chia hết cho i hay không thì i là USCLN khi:

+ i là USC (a, b cùng chia hết cho i) cuối cùng nếu i lặp từ 1 đến a (hoặc b).

+ i là USC (a, b cùng chia hết cho i) đầu tiên nếu lặp từ a (hoặc b) quay về 1.

- BSCNN(a, b) = a * b / (USCLN(a, b)

Hướng dẫn:

Bài toán được thực hiện qua 3 bước cụ thể như sau:

-         Thông báo nhập liệu, và nhập dữ liệu vào cho a và b

-         Tiến hành tính USCLN(a, b):

Sử dụng vòng lặp for, lặp từ a lùi về 1.

Kiểm tra nếu a, b đều chia hết cho i thì gọi lệnh break để dừng vòng lặp.

==> i là USC đầu tiên gần a, b nhất ==>USCLN

-         Xuất kết quả của USCLN(a, b) , BSCNN (a, b) ra màn hình.

Chương trình:

Program USCLN;

Use crt;

Var a , b :integer;                                               // Khai bao bien su dung

Begin

         Write(‘Nhap vao so a:’);          // Thong bao nhap lieu

          Readln(a);                               // Nhap gtri a (voi &a, la lay d/c bien a,)

          Write(‘Nhap vao so b:’);        // Thong bao nhap lieu

          Readln(b);                              // Nhap gtri b (voi &b, la lay d/c bien b,)

          For i:=a downto 1 do

                If  ((a mod i = 0) and (b mod i = 0)) then   // Kiem tra a, b co chia het

                        Break;

          Writeln(‘USCLN (‘,a,’,’,b,’):’, i);                // Xuat ket qua USCLN(a, b)

                      Writeln(‘BSCNN (‘,a,’,’,b,’):’, a*b div i); // Xuat ket qua USCLN(a, b)

          Readln;

End.
Bạn thấy bài viết này như thế nào?: 
No votes yet
Ảnh của Tommy Tran

Tommy Tran owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy
  • Phone/Zalo: (+84) 944 225 212
  • WhatsApp: (+84) 944 225 212
  • Line Messenger: (+84) 944 225 212
  • Email: asaleotestf@gmail.com
  • Telegram Messenger: https:/t.me/tommytran0401

Quảng cáo việc làm

 

Thích hợp các bạn nữ mảng thợ may làm việc tại nước NGA

Đơn hàng Tuyển dụng 100 Thợ may đi Nga(đợt 1 tháng 3.2021, đợt 2 tháng 5.2021). Lương thực lãnh 800 USD, bao ăn ở, vé máy bay và visa, phí xuất cảnh(1800 USD)trả khi đi làm có lương. Bạn có thể liên hệ CÔNG TY qua Phone/Zalo: (+84) 944 225 212. Công ty sẽ tư vấn cho bạn.

Xem chi tiết: >>> https://bit.ly/3o9NOfR

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Microsoft miễn phí WebMatrix và IIS Express 7.5

Microsoft miễn phí WebMatrix và IIS Express 7.5

Microsoft vừa phát hành miễn phí phiên bản chính thức của công cụ thiết kế, phát triển web Microsoft WebMatrix và máy chủ web Microsoft IIS Express 7.5.

INTEL ra mắt máy tính văn phòng ROSA INTEL NUC. Giá chỉ từ 5,6 triệu

INTEL ra mắt máy tính văn phòng ROSA INTEL NUC. Giá chỉ từ 5,6 triệu

TP. Hồ Chí Minh, ngày 7 tháng 3 năm 2016, Hôm nay, Intel Việt Nam, Viết Sơn cùng Microsoft chính thức ra mắt dòng sản phẩm máy tính nhỏ 

7 cách để lọc, phân loại và tìm kiếm email hiệu quả

7 cách để lọc, phân loại và tìm kiếm email hiệu quả

Một hòm thư lộn xộn, không được sắp xếp gọn gàng sẽ gây khó khăn cho người dùng khi tìm email cần thiết.