Giáo án Tin Học lớp 11: BÀI TẬP VÀ THỰC HÀNH MẢNG

I. Mục đích yêu cầu: * Học sinh hiểu được: - Kiểu dữ liệu mảng và cách khai báo mảng: một chiều và hai chiều. * Học sinh nắm được: - Cách khai báo (hay định nghĩa) kiểu dữ liệu mảng một chiều và hai chiều. - Nhập dữ liệu mảng. Đưa ra màn hình chỉ số và giá trị của mảng. - Duyệt qua từng phần tử của mảng. II. Chuẩn bị của giáo viên và học sinh: 1. Giáo viên: SGK, SGV, giáo án, giáo án điện tử, đèn chiếu, phòng máy, một số chương trình mẫu...
Nội dung trích xuất từ tài liệu:
Giáo án Tin Học lớp 11: BÀI TẬP VÀ THỰC HÀNH MẢNG BÀI TẬP VÀ THỰC HÀNH MẢNGI. Mục đích yêu cầu: * Học sinh hiểu được: - Kiểu dữ liệu mảng và cách khai báo mảng: một chiều và hai chiều. * Học sinh nắm được: - Cách khai báo (hay định nghĩa) kiểu dữ liệu mảng một chiều và haichiều. - Nhập dữ liệu mảng. Đưa ra màn hình chỉ số và giá trị của mảng. - Duyệt qua từng phần tử của mảng.II. Chuẩn bị của giáo viên và học sinh: 1. Giáo viên: SGK, SGV, giáo án, giáo án điện tử, đèn chiếu, phòngmáy, một số chương trình mẫu khổ lớn. 2. Học sinh: Xem kỹ bài thực hành trong SGK. Tìm hiểu kỹ từngdòng lệnh.III. Nội dung: Hoạt động của thầy và trò Nội dung bài giảngGV: Các em hãy đọc đề và gõ Bài thực hành 3chương trình trong SGK trang77-78 vào máy. 1) Bài 1 Cho mảng A gồm n số nguyên (n ≤ 100), mỗi số theo trị tuyệt đối khôngGV: Myarray là tên kiểu dữ liệu vượt quá 300. Tính tổng các phần tửhay tên biến. của mảng là bội số của một sốHS: Trả lời nguyên dương k cho trước.GV: Vai trò của nmax và n? Có a) Gõ nội dung chương trình:thể thay nmax bằng n trong khai Program sum1;báo kiểu mảng được không? Vì Uses crt;sao? Const nmax = 100;HS:... Type MyArray = Array[1..nmax] Of Integer; Var A : MyArray; s,n,i,k: integer; BeginGV: Nhập số phần tử của mảng? Clrscr; Randomize;HS: Nhập n Write(Nhap n = ); Readln(n);GV: Những dòng lệnh nào nhằm {Tạo ngẫu nhiên mảng gồm n sốtạo ra mảng A? nguyên}GV:Lệnh A[i]:= Random(301)- For i:=1 To n Do A[i]:=Random(301); dùng để làm gì? Random(301)-Random(301); {Duyệt qua từng phần tử của mảng:GV: Câu lệnh FOR-DO cuối xuất chỉ số và giá trị}cùng thực hiện nhiệm vụ gì? Giải For i:=1 To n Do Writeln( A[,i,] =thích? ,A[i]:5); Write(NHap k :); Readlk(k);GV: Câu lệnh s:=s+A[i]; được s:=0;thực hiện bao nhiêu lần? For i:=1 to n Do If A[i] Mod k = 0 Then s:=s+A[i]; Writeln(Tong can tinh la : ,s); Readln End.Nên cho học sinh lưu lại chương b) Hãy thay các câu lệnh sau vào vịtrình này. Sau đó dùng Save as để trí cần thiết để sửa đổi chương trìnhlưa lại với tên khác để dùng cho trên nhằm để tính và đưa ra số lượng số dương và số âm trong mảng.câu b. posi,neg: integer; posi:=0; neg:=0; If A[i] > 0 Then Posi:=posi+1 Else If A[i] < 0 Then Neg:=neg+1; Writeln(posi:4, neg:4); Chương trình trên được viết lại như sau:Program sum1;Uses crt;Const nmax = 100;Type MyArray = Array[1..nmax] OfInteger;Var A : MyArray; s,n,i,k,posi,neg: integer;BeginClrscr; Randomize;Write(Nhap n = );Readln(n);{Tạo ngẫu nhiên mảng gồm n sốnguyên}For i:=1 To n Do A[i]:=Random(301)-Random(301);{Duyệt qua từng phần tử của mảng:xuất chỉ số và giá trị}For i:=1 To n Do Writeln( A[,i,] =,A[i]:5);Write(NHap k :); Readlk(k);{s:=0;}posi:=0; neg:=0;For i:=1 to n DoIf A[i] > 0 Then Posi:=posi+1 Else If A[i] < 0 ThenNeg:=neg+1;Writeln(posi:4, neg:4); {If A[i] Mod k = 0 Thens:=s+A[i];Writeln(Tong can tinh la : ,s);}Readln End. Bài 2 Chương trình tính và đưa ra màn hình bảng cộng 1 2 3 4 5 6 7 8 9 2 4 5 6 7 8 9 10 11 3 5 6 7 8 9 10 11 12 4 6 7 8 9 10 11 12 13 5 7 8 9 10 11 12 13 14 6 8 9 10 11 12 13 14 15 7 9 10 11 12 13 14 15 16 8 10 11 12 13 14 15 16 17 9 11 12 13 14 15 16 17 18 ...