LUYỆN TẬP MẢNG MỘT CHIỀU

98 cHƯƠNG lUYệN TậP MảNG chiều ARRAY A - Tóm tắt lý thuyết I / Định nghĩa : Mảng tập hợp phần tử kiểu Kiểu phần tử nh kiểu biến (trừ kiểu File ) II/ Cách khai báo mảng chiều : Có hai cách khai báo : Cách : TYPE Tên_Kiểu_Mảng = ARRAY[chỉ_số_đầu chỉ_số_cuối] of Kiểu_Phần_tử ; VAR Tên_biến_Mảng : Tên_Kiểu_Mảng ; Cách : VAR Tên_biến_Mảng : ARRAY[chỉ_số_đầu chỉ_số_cuối] of Kiểu_Phần_tử ; Lu ý : Khi truyền liệu kiểu mảng vào chơng trình bắt buộc phải dùng cách III / Cách khai báo mảng chiều : Tơng tự có cách khai báo : Cách : TYPE Tên_Kiểu_Mảng = ARRAY[m1 m2,n1 n2] of Kiểu_Phần_tử ; VAR Tên_biến_Mảng : Tên_Kiểu_Mảng ; Cách : VAR Tên_biến_Mảng : ARRAY[m1 m2,n1 n2] of Kiểu_Phần_tử ; Lu ý : m1 số dòng đầu m2 số dòng cuối n1 số cột đầu n2 số cột cuối IV / Cách truy nhập Mảng : Kí hiệu mảng chiều có N phần tử A(N) Kí hiệu phần tử thứ i ( [...]... mod 3 = 0 then Begin Inc(L,2); For j:=L downto i+3 do A[j] := A[j-2]; A[i] := 0; A[i+1] := 0; A[i+2] := 0; Inc(i,3); End Else Inc(i); End; BEGIN Nhap;Hien(N); Xuly;Hien(L); END Bài 5: { Phơng pháp dùng mảng vòng } Uses Crt; Const Max = 1000; Type Mang = Array[1 Max] of Integer; Tài liệu 10 Chuyên Tin Lê Quí Đôn 112 Var A : Mang; N,i,L,P: Integer; Xoa : Array[1 Max] of Boolean; Procedure Nhap; Var i:... Procedure Xuly; Var i,con,dem : Integer; Begin i := P; FillChar(Xoa,Sizeof(Xoa),False); Xoa[p] := True; Write(A[p]:2); Con := N-1; dem := 0; While con>1 do Begin Inc(i); If i=N+1 then i := 1; { Kỹ thuật xử lý mảng vòng } If not xoa[i] then Begin Inc(dem); If dem mod 4 = 0 then Begin Xoa[i] := True; Write(A[i]:2); Dec(con); End; End; End End; Procedure Hien2; Var i : Integer; Begin For i:=1 to N do ... 'D' : Textcolor(12); 'V' : Textcolor(14); End; Tài liệu 10 Chuyên Tin Lê Quí Đôn 118 Write(A[i]:2); End; Textcolor(15); End; Procedure Lam; Var D,C : word; { 2 biến định vị } i,j : word; { 2 biến duyệt mảng } Begin D := 0; C := N+1; i := 1; j := N; dem := 0; While (i < C) do Case A[i] of 'X' : While A[i]='X' do Begin Inc(i); Inc(D); End; 'V' : Begin While A[j]='V' do Begin Dec(C);Dec(j);End; A[i] :=... A[i] := tu/mau-1; End; End; Procedure Hien; Var i : Integer; Begin For i:=1 to N do Write(A[i]:8:1); End; Procedure Tim; _ TDH 11/12/2015 11/12/2015 129 Var i,j,d,c : Integer;{ i biến duyệt mảng , vai trò lính dò dẫm tìm vị trí cho j và c } LuuT,Tong : Real; { d, j và c là các biến định vị làm nhiệm vụ giữ chốt } Begin d:=1; c:=1; Tong := A[1]; LuuT := Tong; For i:=2 to N do Begin If Tong>0