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

 
Giới thiệu quảng cáo PPC-PPA là gì?

Giới thiệu quảng cáo PPC-PPA là gì?

SEM là từ viết tắt của Search Engine Marketing, dịch và hiểu theo nghĩa tiếng Việt là phương pháp tiếp thị thông qua các công cụ tìm kiếm. SEM là một hình thức Internet Marketing và là một phương pháp marketing nhằm tăng sự hiện diện của bạn hay doanh nghiệp, tổ chức thông qua công cụ tìm kiếm.

Ngày 3 - Học về sự tiến hóa của Big Data

Ngày 3 - Học về sự tiến hóa của Big Data

Dữ liệu được lưu trong các tập tin văn bản thường không chứa cấu trúc (flat file). Không có khả năng truy xuất dữ liệu hiệu quả và việc tích hợp dữ liệu không thể thực hiện

Cách tạo một trang Calendars trong Drupal 7

Cách tạo một trang Calendars trong Drupal 7

We're going to show you how to create an event calendar in Drupal. This tutorial is ideal for people who want to show a monthly, weekly or daily list of upcoming events.

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

 

Diet con trung