Đang tải... (xem toàn văn)
Nhập dữ liệu cho a, biết rằng 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.[r]
(1)Bài 9: LÀM VIỆC VỚI DÃY SỐ
(2)XÉT VÍ DỤ SAU - Nhập lưu điểm cho
một học sinh Write (‘Nhap diem= ‘);Readln(diem_1); - Nhập 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 biến sau:
Var diem_1: real;
Khai báo biến sau:
Var diem_1, diem_2: real;
- Nhập lưu điểm cho
(3)Bảng ví dụ dãy số
Tên
biến Diem_1 Diem_2 Diem_3 … Diem_n
Giá Trị 8 9 2 … 5
(4)2 Ví dụ khai báo biến mảng
Var chieucao: array[1 50] of real;
Mảng tên
chieucao gồm 50 phần tử với mỗi phần tử thuộc kiểu 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 liệu số thực.
Mảng oto gồm 100 phần tử thuộc kiểu liệu số nguyên.
Var oto: array[1 100] of integer;
Tên mảng Từ khóa Chỉ số đầu
(5)a Khai báo biến mảng pascal
Var <tên mảng> : array [<chỉ số đầu> <chỉ số
cuối>] of <kiểu liệu>;
- Array, of: từ khóa chương trình.
- Tên mảng: người dùng tự đặt.
- Chỉ số đầu số cuối phải số nguyên
thoả mãn (chỉ số đầu <= số cuối)
- Kiểu liệu kiểu số (integer, real, byte,
(6)b Ví dụ khai báo biến mảng
- Em khai báo mảng diemtin gồm 40 phần tử thuộc kiểu liệu số thực.
- Em khai báo mảng mubaohiem gồm 200 phần tử, thuộc kiểu liệu số nguyên
Var diemtin: array[1 40] of real;
(7)c Đưa liệu vào mảng
Ta đưa liệu từ ngồi (bàn phím) vào mảng lệnh Read Readln sau:
(8)Ví dụ: Cho mảng 10 phần tử nhập vào mảng số nguyên từ bàn phím
Var
a: array [1 10] of integer; i: integer;
Begin
For i:=1 to 10 do Begin
(9)d Đưa liệu từ mảng hình Ta đưa liệu từ mảng hình lệnh Write Writeln sau:
(10)Var
a: array [1 10] of integer; i: integer;
Begin
For i:=1 to 10 do Begin
write (‘nhap phan tu thu’,i,’=‘); readln(a[i]);
End;
writeln (‘cac so vua nhap la:’);
For i:=1 to 10 do
write(a[i]:5); Readln;
End.
Ví dụ: Cho mảng 10 phần tử nhập vào mảng số nguyên từ bàn phím, sau cho hình
Câu lệnh nhập liệu
vào mảng
Câu lệnh đưa liệu
(11)e Lấy liệu từ mảng để xử lí:
Ví dụ: Viết chương trình nhập 10 số nguyên từ bàn phím sau tính tổng số đó.
Var
a: array [1 10] of integer; i,s: integer;
Begin
For i:=1 to 10 do Begin
write (‘nhap phan tu thu’,i,’=‘); readln(a[i]);
End;
For i:=1 to 10 s:= s +a[i]; writeln(‘Tong cac so la:’,s);
Readln;
End.
Câu lệnh nhập liệu
vào mảng
Câu lệnh tính tổng các số
(12)- Xét ví dụ: Khai báo mảng a gồm 10 phần tử
Nhập dữ liệu cho a, biết rằng phần tử đầu tiên cuối mang giá trị Các phần tử cịn lại có giá trị nhập từ bàn phím Sau in 10 phần tử đó, phần tử nằm dịng
Y/c: Viết chương trình khai báo biến nhập dữ liệu theo yêu cầu.
(13)Program vidu; Var
a: array [1 10] of real; i: integer;
Begin
a[1]:=5; a[10]:=5; for i:=2 to do
begin
write(‘nhap a[‘,i,’]=‘); readln(a[i]);
end;
for i:=1 to 10 writeln(a[i]); Readln;
End.
Khai báo biến
Sử dụng lệnh gán, để gán giá trị 5 cho phần tử đầu cuối.
Sử dụng lệnh lặp for to để nhập dữ liệu cho phần tử
còn lại (2 9).
(14)(15)Bài 1: Viết chương trình nhập 10 số nguyên in số nguyên dương hình
Var
a: array [1 10] of integer; i: integer;
Begin
For i:=1 to 10 do Begin
write (‘nhap phan tu thu’,i,’=‘); readln(a[i]);
End;
For i:=1 to 10
if a[i] > then writeln(a[i]); Readln;
(16)Bài 2: Viết chương trình nhập 10 số nguyên in số chẵn hình
Var
a: array [1 10] of integer; i: integer;
Begin
For i:=1 to 10 do Begin
write (‘nhap phan tu thu’,i,’=‘); readln(a[i]);
End;
For i:=1 to 10
if a[i] mod = then writeln(a[i]); Readln;