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 [r]
(1)KIỂM TRA BÀI CŨ Hãy viết các đoạn chương trình thực các thao tác sau: 1) Khai báo mảng chiều A gồm 10 phần tử theo hai cách (trực tiếp gián tiếp) 2) Nhập vào 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 dãy gồm 10 phần tử (2) BÀI TẬP Giáo viên thực hiện: Nguyễn Thị Nhung Trường THPT Trần Phú (3) BÀI TOÁN TÍNH TỔNG THEO ĐIỀU KIỆN CHO TRƯỚC Bài 1: Nhập vào 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ẻ 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ẻ dãy (4) Ý tưởng??? (5) Ý tưởng: - Đầu tiên, khởi tạo giá trị Schan=0, Sle=0; - Lần lượt với I từ đến N, số hạng A i nào chia hết cho thì cộng giá trị A i đó vào tổng Schan (Schan=Schan+Ai), ngược lại cộng Ai vào tổng Sle (Sle=Sle+Ai) (6) Hoạt động nhóm: Cả lớp chia làm nhóm thảo luận, sau đó nhóm cử lên các đại diện lên viết các đoạn chương trình sau: Khai báo biến Nhập vào mảng 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 Chú ý: Các học sinh lên lần lượt, không lên đồng thời nhiều bạn lúc Nếu nhóm nào làm đúng và nhanh thì điểm cộng vào bài kiểm tra (7) 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 mảng 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 và tổng lẻ If (a[i] mod = 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 (8) 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 dãy số nguyên gồm N phần tử A1, A2, …, AN Hãy đếm xem dãy có bao nhiêu phần tử là số âm Hãy in các số chia hết cho và 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 và + Số lượng các phần tử là số âm (9) Ý tưởng??? (10) Ý tưởng: - Đầu tiên gán Dem = - Lần lượt với I từ đến N, Ai nào nhỏ thì tăng Dem lên đơn vị Dem=Dem+1 - Lần lượt với I từ đến N, Ai nào đồng thời chia hết cho và thì in màn hình giá trị Ai đó (11) Hoạt động nhóm: Cả lớp chia làm nhóm, nhóm viết phần sau: Nhóm 1: Khai báo biến Nhóm 2: Nhập vào mảng chiều gồm N phần tử A1, A2, …, AN Nhóm 3: Đếm số phần tử mảng là số âm Nhóm 4: In màn hình các số chia hết cho và (12) 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 chieu} Write(' Nhap vao so phan tu cua mang n= '); readln(n);writeln; For i:=1 to n Begin write(' Nhap vao phan tu thu ',i,': '); readln(a[i]); End; {Dem cac so am} Dem:=0; For i:= to n If (a[i] <0) then Dem:=Dem+1; Writeln(‘Co ‘,dem,’ so am day’); {In cac so chia het cho va 5} For i:= 1to n If (a[i] mod = 0) and (a[i] mod 5=0) then write(a[i]:5); readln End (13) CỦNG CỐ Cần nhớ kỹ các thao tác làm việc với mảng chiều sau: Khai báo mảng chiều Nhập mảng chiều Tính tổng các phần tử mảng theo điều kiện cho trước In mảng chiều theo điều kiện cho trước Đếm số phần tử mảng theo điều kiện cho trước (14) BÀI TẬP Bài 1: Nhập vào dãy số nguyên gồm 10 phần tử A1, A2,…, AN Hãy tìm GTNN dãy và số nó Bài 2: Nhập vào 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 dãy Bài 3: Nhập vào dãy số nguyên gồm n phần tử A1, A2,…, AN Hãy in các giá trị là âm chẵn dãy A theo chiều ngược lại Bài 4: Nhập vào 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 dãy có bao nhiêu phần tử có giá trị k? (15) (16)