Bài tập về chương trình con C++

§         SoDu = số dư của N chia cho 2.

§         N = N chia cho 2.

§         Bổ sung chữ số SoDu vào số S thành một chữ số

o       Trả về kết quả cuối cùng của S.

-          Viết thân chöông trình chính với nội dung dùng để kiểm tra kết quả thực hiện của hàm.

o       Khai báo biến N, M

o       Thông báo nhập, nhập giá trị cho biến N

o       Gán giá trị M bằng kết quả trả về của hàm Dec2Bin[ N ]

o       In thông báo về kết quả số nhị phân chuyển đổi được [giá trị của M]

o       Gọi hàm readln trước khi kết thúc chöông trình

Chương trình:

Program Doi_Co_So;

Uses crt;

Var N:integer;

{ 1. Thu tuc chuyen so tu nhien n cho truoc sang ket qua tra ve he co so 2 }

Function Dec2Bin [  n:integer ]:integer;

Var S,So,Du:integer;

Begin

      S := 0; So := n ;

      While [ So > 0] do

      Begin

           Du := So mod 2 ;

           So := So div 2 ;

           S := S * 10 + Du;

      End;

      Dec2Bin:= S ;

End;

{ 2. Than chuong trinh chinh dap ung yeu cau bai toan }

BEGIN

      clrscr;

      write[ 'Nhap so N =' ]; readln[N ];

      writeln[' Dang nhi phan cua N la ', Dec2Bin[N] ];

      readln;

END.

Bài toán số 2.2: 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ài toán số 2.3: Viết hàm kiểm tra số N có phải là số nguyên tố hay không?

Hướng dẫn: Khai báo hàm kiểm tra số nguyên tố có:

Tên hàm: KiemtraSNT

Dữ liệu trả về: int, [ 0 nếu không phải là số nguyên tố, là 1 nếu là số nguyên tố ]

Tham số: tham trị là int N, số cần kiểm tra.

Xử lý kiểm tra: Dựa trên ví dụ đã có ở phần trước.

Nội dung hàm:

Function  KiemtraSNT[  N : Integer ] : Boolean;

Var flag : Boolean;

       i : Integer;

Begin

    flag := True;                                    { Khoi gan gia tri dung cho ktrSNT}

    For  i := 2 to  N-1 do           { Lap voi moi i co gia tri tu 2 den N-1}

            If [ N mod i = 0 ] then                        { Kiem tra xem N co’ chia het cho i hay khong}

                    flag:=false;                      { Neu dung thi khong con la so nguyen to nua}

    KiemtraSNT:=flag;

End;

Cải tiến, không sử dụng biến phụ:

Function KiemtraSN[  N : Integer ] : Integer;

Var i :integer;

Begin

    For  i := 2 to  N-1 do           { Lap voi moi i co gia tri tu 2 den N-1}

            If [ N mod i = 0 ] then                        { Kiem tra xem N co’ chia het cho i hay khong}

                    Writeln['N khongla SNT']      { Neu dung thi khong con la so nguyen to nua}

            Else

                    Writeln['N la SNT'];        { N la SNT}

End;

Bài toán số 2.4: Viết chương trình thực hiện lần lượt các công việc sau:

- Lập thủ tục nhập ba số thực dương a , b , c từ bàn phím .

- Lập thủ tục kiểm tra xem ba số trên có lập thành ba cạnh của tam giác hay không ?

- Viết hàm tính diện tích của tam giác .

-    Viết hoàn thiện chương trình chính.

Chương trình

Program Tam_Giac;

Uses crt;

Var a,b,c : Integer;

{ 1. Thu tuc nhap}

Procedure NhapABC [Var a, b, c : Integer];

Begin

    Write[ 'Nhap a:' ]; Readln[ a ];

    Write[ 'Nhap b:' ]; Readln[ b ];

    Write[ 'Nhap c:' ]; Readln[ c ];

End;

{ 2. Ham tinh dien tich}

Function Dientich[ a, b, c:Integer ] : Real;

Var dt,p : Real;

Begin

     p := [a+b+c]/2;

     dt := sqrt[p* [p-a]*[p-b]*[p-c]];

     Dientich := dt;

End;

{ 3. Thu tuc kiem tra va In kqua tinh dien tich [neu la tam giac] }

Procedure KiemTra_InDienTich [ a,b,c:Integer];

Begin

     If [[a+b>c] and [b+c>a] and [a+c>b]] then

         Writeln[' Ba canh tren tao thanh tam giac.dien tich', Dientich[a,b,c] ]

     Else

         Writeln['Ba canh tren khongtao thanh tam giac'];

End;

{ 3. Than chuong trinh chinh }

BEGIN

     NhapABC[a,b,c];

     KiemTra_InDienTich [a,b,c];

END.

Bài toán số 2.5: Viết chương trình hoàn chỉnh thực hiện phân tích ra N ra thành các thừa số nguyên tố.

            Ví dụ: N = 1260 = 2 . 2 . 3 . 3 . 5 . 7

Hướng dẫn:

-          Viết hàm nhập số N. Lưu ý, hàm nhập cần truyền tham số N theo dạng tham biến để lưu lại giá trị đã nhập vào.

-          Viết hàm phân tích số N ra các thừa số nguyên tố và in các thừa số đó ra màn hình với ý tưởng thuật toán:

o       Chia N cho số nguyên tố u [nhỏ nhất là 2].

o       Trong khi N còn chia hết cho u thì tiến hành phân tích N với u là thừa số. Giảm N đi u lần.

o       Nếu N không chia hết cho u, thi tăng u lên 1.

o       Quá trình lặp lại với

§         u từng bước tăng lên 1 nếu N không chia hết cho u.

§         N từng bước giảm xuống u lần nếu N chia hết cho u.

o       Quá trình lặp lại đến một mức u tăng lên và N giảm xuống để N = u, khi đó giá trị mới của N sẽ là 1.

Chương trình:

Program Phan_Tich_Thua_So;

Uses crt;

Var  N : integer;

{ 1. Thu tuc nhap so N. }

 Procedure NhapSoN[ var NN : Integer ];

 Begin

         NN := 0; {Gan khoi dau bang 0 de vao vong lap, vong lap dung khi nhap khac 0}

         While [ N = 0 ] do

         Begin

               Write[ 'Nhap N=' ]; Readln[NN ];

         End;

 End;

 {  2. Thu tuc phan tich N ra thanh cac thua so nguyen to }

 Procedure PhantichSoN [ Var  N1 : Integer ];

 Var u,dem:Integer;

 Begin

      If [ N1 > 1 ] Then

      Begin

               u := 2; dem := 0;

              While [ N1 > 1  ] do

                 If [ N1 mod u = 0 ] Then

                 Begin

                          dem:=dem+1;

                          Writeln[ u];

                          N1 := N1 div u;

                 End

                 Else

                       u:=u+1;

     End

     Else

          Writeln[' Khong the phan tich duoc' ];

 End;

{ 3. Than chuong trinh chinh  }

 BEGIN

       Clrscr;

       Writeln['Phan tich so N thanh tich cua cac so nguyen to :' ];

       NhapSoN[ N ];

       PhantichSoN[ N ];

       Writeln ['Nhan Enter de ket thuc ...' ];

       Readln;

END.