Tiết 58_Bài tập

Nguyễn Thị Hồng Diễn
Chào mừng quý thầy cô
Đến dự giờ với lớp 8A
Giáo viên
Trường THCS Tân Thành
Tiết 58: BÀI TẬP
Tiết 58: BÀI TẬP
1. Khai báo biến mảng:
- Var, array, of:
- Tên mảng:
- Chỉ số đầu, chỉ số cuối:
- Kiểu dữ liệu
- Số phần tử của mảng:
- Tham chiếu tới các phần tử:
Var : array[ .. ] of ;
Là từ khóa
Do người lập trình đặt
Là 2 số nguyên, chỉ số đầu<=chỉ số cuối
Là kiểu của các phần tử, có thể là Integer hoặc Real
Chỉ số đầu – chỉ số cuối + 1
Tenmang[chỉ số]
Tiết 58: BÀI TẬP
1. Khai báo biến mảng:
* Áp dụng:
Câu 1: Chỉ ra chỗ sai trong các khai báo biến mảng sau và sửa lại cho đúng
b) Var diem toan: Array[3.. 5] of real;
c) Var X: Array[10 .. 1] of Integer;
d) Var Y: Array[4.5 .. 10] of Real;
a) Var a: Array[1 … 100] of Real;
a) Sửa … thành dấu ..
b) Bỏ dấu cách ở tên biến
c) Chỉ số cuối>=chỉ số đầu
d) Sửa 4.5 thành số nguyên 4
e) Var tuoi: Array[4 .. 50] of char;
f) Var tuoi: Array(2 .. 50) of Integer;
e) Thay char thành Integer hoặc Real
f) Chỉ số đặt trong cặp dấu [ ]
Tiết 58: BÀI TẬP
1. Khai báo biến mảng:
* Áp dụng:
Câu 2: Câu lệnh khai báo biến mảng sau đây máy tính có thực hiện được không? Vì sao?
Var N: integer;
A: Array[1 …N] of Real;
Máy tính không thực hiện được vì N là số chưa xác định
Const N=50;
Var A: Array[1 …N] of Real;
Máy tính thực hiện được vì N là một hằng số xác định
2. Nhập (gán), in giá trị các phần tử của mảng
Tiết 58: BÀI TẬP
For i := … to … do Readln(For j := … to … do Writeln(Nhập
In
2. Nhập (gán), in giá trị các phần tử của mảng
Tiết 58: BÀI TẬP
* Áp dụng:
Bài 1: Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím N số nguyên của một dãy số. N cũng được nhập từ bàn phím. Sau đó in giá trị của các phần tử ra màn hình
* Khai báo: - Khai báo biến N (số lượng phần tử)
- Khai báo mảng để lưu giá trị của N phần tử
- Khai báo biến đếm cho câu lệnh lặp
* Phần thân: - Nhập N
- Nhập giá trị cho N phần tử từ bàn phím
- In giá trị của N phần tử đó ra màn hình
Program Nhap_in_Mang;
Uses crt;
Var N, i, j: Integer;
A: array[1..100] of Integer;
Begin
clrscr;
writeln(‘Nhap N:’); Readln(N);
For i:= 1 to N do Readln(A[i]);
For j:=1 to N do Writeln(A[j]);
Readln
End.
Tiết 58: BÀI TẬP
3. Xử lí dữ liệu trong mảng
Tiết 58: BÀI TẬP
* Áp dụng:
Bài 2: Viết chương trình Pascal sử dụng biến mảng để tính tổng của N số nguyên được nhập từ bàn phím
* Khai báo: - Khai báo biến N (số lượng phần tử)
- Khai báo mảng để lưu giá trị của N phần tử
- Khai báo biến đếm cho câu lệnh lặp
- Khai báo biến tổng để lưu tổng giá trị của N phần tử
* Phần thân: - Nhập N
- Nhập giá trị cho N phần tử từ bàn phím
- Tính tổng
Program Tong_Mang;
Uses crt;
Var N, i, j: Integer;
A: array[1..100] of Integer;
S: longint;
Begin
clrscr;
writeln(‘Nhap N:’); Readln(N);
For i:= 1 to N do Readln(A[i]);
S:=0;
For j:=1 to N do S:=S + A[j];
Writeln(‘Tong cua mang A là: ’, S);
Readln
End.
Tiết 58: BÀI TẬP
Dặn dò
- Nắm vững cách khai báo và sử dụng biến mảng
- Xem lại các dạng bài tập đã làm
- Xem trước nội dung bài thực hành số 7 “Xử lí dãy số trong chương trình”