- Cái đặt được thuật toán của một số bài toán đơn giản với kiểu dữ liệu mảng một chiều
b) Chỉnh sửa chương trình trên để đưa ra chỉ số của phần tử có cùng giá trị lớn nhất?
số của phần tử có cùng giá trị lớn nhất?
Program TimMax;
Var A: Array[1..100] of Integer; Csmax, n, i, Max: Integer;
Begin
Writeln(‘ Nhap so phan tu cua mang’); Readln(n); For i:=1 to n do Begin Write(‘A[‘,i,’]= ‘); Readln(A[i]); End; Max:=A[1]; For i:=1 to n do If Max < A[i] then
Begin
Max:= A[i]; Csmax:=i; End;
GV:Viết vị trí của phần tử lớn nhất?
HS:Trả lời câu hỏi Writeln(‘ Tai vi tri: ‘,Csmax); Readln;
End.
3. Củng cố, luyện tập:
- Nhắc nhở lại kiến thức cơ bản của bài học về khai báo mảng một chiều, mảng hai chiều và cách tham chiếu đến các phần tử của mảng một chiều và mảng 2 chiều.
Luyện tập: Cho mảng A gồm N phần tử Hãy khai báo mảng A theo cách trực tiếp và gián tiếp? 4. Hướng dẫn hs tự học ở nhà: - Về nhà học bài và làm bài tập ở nhà. --- Ngày giảng: Tiết theo PPCT: 25 BÀI TẬP THỰC HÀNH 4 I. MỤC TIÊU 1. Kiến thức:
- Hiểu khái niệm mảng một chiều và mảng hai chiều - Hiểu cách khai báo và truy cập đến phần tử của mảng 2. Kỹ năng
- Cài đặt được thuật toán của một số bài toán đơn giản với kiểu dữ liệu mảng một chiều .
- Thực hiện được khai báo mảng, truy cập, tính toán các phần tử của mảng
II.CHUẨN BỊ CỦA GV VÀ HS:
1. Chuẩn bị của GV:
Giáo án, phấn, bảng, phòng thực hành 2. Chuẩn bị của HS:
Sách giáo khoa, vở ghi,…
III.TIẾN TRÌNH DẠY HỌC
1. Kiểm tra bài cũ:
Câu hỏi: Hãy trình bày cách khai báo mảng một chiều và mảng 1, tham chiếu? 2. Bài mới:
Hoạt động của GV và HS Nội dung chính
GV:Cần khái báo những biến nào? HS: Ta cần khai báo những biến sau:
GV:Cách nhập dữ liệu cho từng phần tử của mảng hai chiều?
HS:Writeln(‘ Nhap so phan tu cua mang’); Readln(n); For i:=1 to n do Begin Write(‘A[‘,i,’]= ‘); Readln(A[i]); Bài 1: Tạo mảng A gồm n số (n<=100) số
nguyên, sắp xếp lại dãy theo chiều tăng dần
Program Sapxeptang;
Var A: Array[1..100] of Integer; n, i, tg: Integer;
Begin
Writeln(‘ Nhap so phan tu cua mang’); Readln(n); For i:=1 to n do Begin Write(‘A[‘,i,’]= ‘); Readln(A[i]); End; Giáo án Tin học 11 43
GV:Cách tráo đổi các phần tử trong mảng một chiều?
HS: Thực hiện
GV:Cách viết giá trị các phần tử của mảng một chiều?
HS: Trả lời câu hỏi
GV: Ta sử dụng biến đếm để làm gì? HS: Để đếm số lần hoán đổi trong thuật toán
GV: Lệnh nhập vào mảng một chiều? HS: Writeln (‘Nhap so phan tu cua mang’); Readln(n); For i:=1 to n do Begin Write(‘A[‘,i,’]= ‘); Readln(A[i]);
GV: Câu lệnh For i:=1 to n do có ý nghĩa gì?
HS: Duyệt từ phần tử đầu tiên đến phần tử cuối cùng
GV: Lệnh Write(A[i],’ ‘); có ý nghĩa gì? HS: Trả lời câu hỏi
Gv:Cần khai báo những biến nào? HS: Trả lời câu hỏi và thực hiện
For i:=1 to n do For j:=i+1 to n do If A[i] >A[j] then
Begin
Tg:=A[i]; A[i]:=A[j]; A[j]:=tg;
End;
Writeln(‘Mang da duoc sap xep la:’); For i:=1 to n do
Write(A[i],’ ‘); Readln;
End.