Pascal | Viết các hàm USCLN(a, b) và BSCNN(a, b)

Pascal | Viết các hàm USCLN(a, b) và BSCNN(a, b)

Viết các hàm USCLN(a, b) và BSCNN(a, b).

Hướng dẫn: Khai báo hàm USCLN có:

Tên hàm: USCLN

Kiểu dữ liệu trả về: integer

Tham số: 2 tham trị là int a, int b

Giá trị trả về: chính là giá trị ước số chung lớn nhất của a và b.

Xử lý tìm USCLN, BSCNN: Dựa trên ví dụ đã có ở phần trước.

Nội dung hàm:

Function  USCLN(  a,  b : Integer) : Integer;

Var Sodu:integer;

Begin

     While (b <> 0) do

            Begin

                        Sodu:= a mod b;

                        a := b;

                        b := Sodu;

            End;

      USCLN := a;

End;

{Tuong tu ham BSCNN(a, b : Integer)}

Function  BSCNN(  a, b : Integer) : Integer;

Var k :integer;

Begin

     For  k := a  to  a*b do                    { Lap voi moi i co gia tri tu a den 1}

         If ((k mod a = 0) and ( k mod b = 0)) then  { Kiem tra a, b cung chia het cho k? }

                  Break;                                { break de thoat, luu giu lai gia tri cua k.}

     BSCNN:= k;

End;
Bạn thấy bài viết này như thế nào?: 
Average: 8 (4 votes)
Ảnh của Tommy Tran

Tommy 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

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

 
Tool tăng tốc DNS, cải thiện 40% tốc độ duyệt web

Tool tăng tốc DNS, cải thiện 40% tốc độ duyệt web

Nhóm nghiên cứu thuộc trường đại học Northwestern University giới thiệu công cụ giúp giải quyết điểm yếu của các dịch vụ DNS công cộng.

Hướng dẫn Index trong SQL Server

Nếu bạn hỏi bất kỳ ai đã có kinh nghiệm làm việc với SQL Server, làm thế nào để Tuning để các ứng dụng kết nối đến database chạy nhanh hơn

Nhà máy linh kiện MTXT Apple MacBook Trung Quốc vẫn đóng cửa

Nhà máy linh kiện MTXT Apple MacBook Trung Quốc vẫn đóng cửa

Nhà chức trách Trung Quốc tiếp tục kiểm tra nhà máy sản xuất vỏ nhôm cho MTXT MacBook của Apple sau phàn nàn của cư dân về mùi hôi phát ra từ nơi sản xuất này.

Công ty diệt chuột T&C

 

Diet con trung