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

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ử
BÀI TẬP
Giáo viên thực hiện: Nguyễn Thị Nhung
Trường THPT Trần Phú
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
BÀI TOÁN TÍNH TỔNG THEO ĐIỀU KIỆN CHO TRƯỚC
Ý tưởng???
Ý 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 Ai nào chia hết cho 2 thì cộng giá trị Ai đó vào tổng Schan (Schan=Schan+Ai), ngược lại sẽ cộng Ai vào tổng Sle (Sle=Sle+Ai)
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.
Program tongchan_tongle;
uses crt;
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);
For i:=1 to n do
Begin
write(` Nhap vao phan tu thu `,i,`: `);
readln(a[i]);
End;
Schan:=0; Sle:=0;
For i:=1 to n do
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);
Readln;
End.
Chương trình
Khai báo
Nhập mảng một chiều
TÍnh tổng chẵn và tổng lẻ
In KQ
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
BÀI TOÁN IN VÀ ĐẾM CÁC GIÁ TRỊ THEO ĐIỀU KIỆN CHO TRƯỚC
Ý tưởng???
Ý 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 đó
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
{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;
Chương trình
{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.
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:
Khai báo mảng một chiều
Nhập mảng một chiều
Tính tổng các phần tử mảng theo điều kiện cho trước
In mảng một 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
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?

THE END