Bài tập và thực hành 2

<span class='text_page_counter'>(1)</span>KIỂM TRA BÀI CŨ Hãy viết các đoạn chương trình thực hiện các thao tác sau: 1) Khai báo mảng một chiều A gồm 10 phần tử theo một trong hai cách (trực tiếp hoặc gián tiếp) 2) Nhập vào một dãy số nguyên gồm 10 phần tử 3) In dãy số nguyên gồm 10 phần tử theo chiều nhập và chiều ngược lại 4) Tính tổng các số chia hết cho 3 trong dãy gồm 10 phần tử.

<span class='text_page_counter'>(2)</span> BÀI TẬP. Giáo viên thực hiện: Nguyễn Thị Nhung Trường THPT Trần Phú.

<span class='text_page_counter'>(3)</span>  BÀI TOÁN TÍNH TỔNG THEO ĐIỀU KIỆN CHO TRƯỚC Bài 1: Nhập vào một dãy số nguyên gồm N phần tử A1, A2, …, AN. Hãy tính tổng các số chẵn và tổng các số lẻ trong dãy..  Xác định bài toán - Input: + Số nguyên dương N + Các số nguyên A1, A2, …,AN - Output: Tổng các số chẵn và tổng các số lẻ trong dãy.

<span class='text_page_counter'>(4)</span> Ý tưởng???.

<span class='text_page_counter'>(5)</span>  Ý tưởng: - Đầu tiên, khởi tạo giá trị Schan=0, Sle=0; - Lần lượt với I từ 1 đến N, nếu số hạng A i nào chia hết cho 2 thì cộng giá trị A i đó vào tổng Schan (Schan=Schan+Ai), ngược lại sẽ cộng Ai vào tổng Sle (Sle=Sle+Ai).

<span class='text_page_counter'>(6)</span>  Hoạt động nhóm: Cả lớp chia ra làm 2 nhóm thảo luận, sau đó mỗi nhóm lần lượt cử lên các đại diện lần lượt lên viết các đoạn chương trình sau:  Khai báo biến  Nhập vào mảng 1 chiều gồm N phần tử A1, A2, …, AN.  Tính tổng các số chẵn và tổng các số lẻ  In kết quả  Chú ý: Các học sinh lên lần lượt, không được lên đồng thời nhiều bạn một lúc. Nếu nhóm nào làm đúng và nhanh hơn thì được điểm cộng vào bài kiểm tra tiếp theo..

<span class='text_page_counter'>(7)</span>  Chương trình Program tongchan_tongle; uses crt; Khai báo Var A:array[1..250] of integer; i,n,Schan,Sle:integer; Begin clrscr; Write(' Nhap vao so phan tu cua mang n= '); readln(n); Nhập For i:=1 to n do mảng một Begin chiều write(' Nhap vao phan tu thu ',i,': '); readln(a[i]); End; TÍnh tổng chẵn Schan:=0; Sle:=0; For i:=1 to n do và tổng lẻ If (a[i] mod 2 = 0) then Schan:=Schan+a[i] Else Sle:=Sle+a[i]; Write(' Tong cac so chan la: ',Schan,' Tong cac so le la: ',Sle); In KQ Readln; End..

<span class='text_page_counter'>(8)</span>  BÀI TOÁN IN VÀ ĐẾM CÁC GIÁ TRỊ THEO ĐIỀU KIỆN CHO TRƯỚC. Bài 2:Nhập vào một dãy số nguyên gồm N phần tử A1, A2, …, AN. Hãy đếm xem trong dãy có bao nhiêu phần tử là số âm. Hãy in ra các số chia hết cho 2 và 5..  Xác định bài toán. - Input: + Số nguyên dương N + Các số nguyên A1, A2, …,AN - Output: + Các số chia hết cho 2 và 5 + Số lượng các phần tử là số âm.

<span class='text_page_counter'>(9)</span> Ý tưởng???.

<span class='text_page_counter'>(10)</span>  Ý tưởng: - Đầu tiên gán Dem = 0 - Lần lượt với I từ 1 đến N, nếu Ai nào nhỏ hơn 0 thì tăng Dem lên 1 đơn vị Dem=Dem+1 - Lần lượt với I từ 1 đến N, nếu Ai nào đồng thời chia hết cho 2 và 5 thì in ra màn hình giá trị Ai đó.

<span class='text_page_counter'>(11)</span>  Hoạt động nhóm: Cả lớp chia ra làm 4 nhóm, mỗi nhóm viết một phần sau:  Nhóm 1: Khai báo biến  Nhóm 2: Nhập vào mảng 1 chiều gồm N phần tử A1, A2, …, AN. Nhóm 3: Đếm số phần tử trong mảng là số âm Nhóm 4: In ra màn hình các số chia hết cho 2 và 5.

<span class='text_page_counter'>(12)</span>  Chương trình {Khai bao} Program In_so_chan; uses crt; Var A: array[1..250] of integer; i,n:integer; Begin clrscr; {Nhap mang 1 chieu} Write(' Nhap vao so phan tu cua mang n= '); readln(n);writeln; For i:=1 to n do Begin write(' Nhap vao phan tu thu ',i,': '); readln(a[i]); End;. {Dem cac so am} Dem:=0; For i:= 1 to n do If (a[i] <0) then Dem:=Dem+1; Writeln(‘Co ‘,dem,’ so am trong day’);. {In cac so chia het cho 2 va 5} For i:= 1to n do If (a[i] mod 2 = 0) and (a[i] mod 5=0) then write(a[i]:5); readln End..

<span class='text_page_counter'>(13)</span> CỦNG CỐ Cần nhớ kỹ các thao tác làm việc với mảng một chiều sau: 1. Khai báo mảng một chiều 2. Nhập mảng một chiều 3. Tính tổng các phần tử mảng theo điều kiện cho trước 4. In mảng một chiều theo điều kiện cho trước 5. Đếm số phần tử mảng theo điều kiện cho trước.

<span class='text_page_counter'>(14)</span> BÀI TẬP Bài 1: Nhập vào một dãy số nguyên gồm 10 phần tử A1, A2,…, AN. Hãy tìm GTNN trong dãy và chỉ số của nó. Bài 2: Nhập vào một dãy số nguyên gồm 10 phần tử A1, A2, …, AN. Hãy tính tổng các số âm và số dương trong dãy Bài 3: Nhập vào một dãy số nguyên gồm n phần tử A1, A2,…, AN. Hãy in ra các giá trị là âm chẵn trong dãy A theo chiều ngược lại. Bài 4: Nhập vào một dãy số nguyên gồm 100 phần tử A1, A2, …, A100 và từ khóa k (số nguyên). Hãy kiểm tra xem trong dãy có bao nhiêu phần tử có giá trị bằng k?.

<span class='text_page_counter'>(15)</span>

<span class='text_page_counter'>(16)</span>