Bài 11. Kiểu mảng

GIÁO VIÊN: L� M?NH H�NG
KÍNH CHÀO QUÝ THẦY, CÔ D?N D? TI?T H?C HƠM NAY!!!
2. Cho khai báo sau:
Type dayso = array [1..100] of Integer;
Cho biết ý nghĩa của khai báo trên?
 Tên kiểu mảng.
 Số phần tử.
 Kiểu phần tử.
1.Nêu các cách khai báo biến kiểu mảng một chiều?
1. Kiểu mảng một chiều:
a. Khai báo.
b.Một số ví dụ:
 Cách nhập dl kiểu mảng một chiều.
For i := 1 to N do
Begin
write(‘nhap phan tu thu ’ ,i, ’:’);
Readln(A[i]);
End;
 Cách xuất dl kiểu mảng một chiều.
For i:= 1 to N do Write(A[i]:5);
 Một số ví dụ:
VD2:: Tìm phần tử lớn nhất của dãy A gồm N số nguyên dương:
VD1: C.trình minh họa cho thủ tục nhập xuất dl:
 Xác định bài toán:
Input : Dãy A gồm N số nguyên dương:
A[1], A[2],...,A[N]
 Output: Chỉ số và giá trị của phần tử lớn nhất:
 Thuật toán:
Bước 1: Nhập N và dãy A[1], A[2],..., A[N];
Bước 2: Max := A[1]; i := 2;
Bước 3: Nếu i>N thì đưa ra giá trị Max rồi kết thúc;
Bước 4: Nếu A[i] > Max thì Max:= A[i];
 Chương trình:
ngược lại i:=i+1 rồi quay lại bước 3;
Program Tim_max;
Uses Crt;
Type Dayso = array[1..250] of integer;
Var n, i, max,csmax : integer; a: Dayso;
Begin
Clrscr;
Write(‘nhap so luong phan tu cua day so: ’); Readln(n);
For i:= 1 to n do
begin
write(‘phan tu thu ’,i, ‘ = ‘); Readln(a[i]);
End;
Max:= a[1]; csmax:=1;
For i:=2 to n do
If a[i] > max then
begin
Max:= a[i]; csmax:= i;
End;
Writeln(‘gia tri cua phan tu max: ’, max);
Writeln(‘chi so cua phan tu max :’, csmax);
readln
End.
 Khai báo trực tiếp:
Var :array[kiểu chỉ số] of;
 Khai báo gián tiếp:
=array[kiểu chỉ số]of;
Var :;
type
 Cách nhập dl kiểu mảng một chiều.
 KHAI BÁO
For i := 1 to N do
Begin
write(‘nhap phan tu thu ’ ,i, ’:’);
Readln(A[i]);
End.
 Cách xuất dl kiểu mảng một chiều.
For i:= 1 to N do Write(A[i]:5);
BÀI HỌC ĐẾN ĐÂY KẾT THÚC!!!
1. Có 2 cách khai báo
 Khai báo trực tiếp:
Var :array[kiểu chỉ số] of;
 Khai báo gián tiếp:
=array[kiểu chỉ số]of;
Var :;
type
2. Ý nghĩa của khai báo trên:
 Tên kiểu mảng: Dayso.
 Số phần tử: 100.
 Kiểu phần tử: Kiểu nguyên.
Program nhap_xuatdl;
Ues crt;
Type dayso = array[1..100] of integer;
Var A: dayso;
Begin
Clrscr;
Write(‘nhap so luong phan tu cua day so: ’);
For i:= 1 to n do
begin
write(‘phan tu thu ’,i, ‘ = ‘); Readln(a[i]);
End;
For i:= 1 to N do Write(A[i]:5);
Writeln(‘cac phan tu cua day la: ’);
readln
End.
Readln(n);
n,i:integer;