MẢNG MỘT CHIỀU (T2)

GIÁO VIÊN: LÝ MẠNH HÙNG KÍNH CHÀO QUÝ THẦY, CÔ ĐẾ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: 250 ≤ N  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 <tên biến mảng>:array[kiểu chỉ số] of<kiểu phần tử>;  Khai báo gián tiếp: <tên kiểu mảng>=array[kiểu chỉ số]of<kiểu phần tử>; Var <tên biến mảng>:<tên kiểu mảng>; 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 <tên biến mảng>:array[kiểu chỉ số] of<kiểu phần tử>;  Khai báo gián tiếp: <tên kiểu mảng>=array[kiểu chỉ số]of<kiểu phần tử>; Var <tên biến mảng>:<tên kiểu mảng>; 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; . 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ụ:. 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:=