Bài 9. Làm việc với dãy số

Bài 9. LÀM VIỆC VỚI DÃY SỐ
1. Dãy số và biến mảng.
XÉT VÍ DỤ SAU
- Nhập và lưu điểm cho một học sinh
Write (‘Nhap diem= ‘);
Readln(diem_1);
- Nhập và lưu điểm cho 2 học sinh
Write (‘Diem hs 1= ‘);
Readln(diem_1);
Write (‘Diem hs 2= ‘);
Readln(diem_2);
Khai báo 1 biến như sau:
Var diem_1: real;
Khai báo 2 biến như sau:
Var diem_1, diem_2: real;
- Nhập và lưu điểm cho n học sinh thì sao?
Bảng ví dụ dãy số
2. Ví dụ về biến mảng
Var chieucao: array[1..50] of real;
Khao báo mảng tên chieucao gồm 50 phần tử với mỗi phần tử thuộc kiểu dữ liệu số thực.
Var cannang: array[1..20] of real;
Mảng tên cannang gồm 20 phần tử thuộc kiểu dữ liệu số thực.
Mảng oto gồm 100 phần tử thuộc kiểu dữ liệu số nguyên.
Var oto: array[1..100] of integer;
a. Khai báo biến mảng trong pascal
Tên mảng: array [ ..] of ;
Array, of là từ khóa của chương trình.
Tên mảng do người dùng đặt.
Chỉ số đầu phải <= chỉ số cuối.
Kiểu dữ liệu có thể là số nguyên hoặc số thực.
b. Ví dụ khai báo biến mảng
- Em hãy khai báo mảng diemtin gồm 40 phần tử thuộc kiểu dữ liệu số thực.
- Em hãy khai báo mảng mubaohiem gồm 200 phần tử.
c. Làm việc với các phần tử của mảng.
- Xét ví dụ: khai báo mảng diemtin gồm 10 phần tử. Nhập liệu cho diemtin biết phần tử đầu tiên và cuói cùng luôn mang giá trị bằng 5. Các phần tử còn lại có giá trị bất kì được nhập từ bàn phím.
Y/c hs viết chương trình khai báo biến và nhập liệu theo đúng yêu cầu.
(3 phút)
Program vidu;
Var diemtin: array [1..10] of real;
Begin
a[1]:=5; a[10]:=5;
for i:=2 to 9 do
write(‘diem =‘);
readln(diem);
For i:=1 to 10 do write(a[i]);
Readln
End.

Ta có thể sử dụng lệnh gán, lệnh readln để nhập giá trị cho mảng.