Với mảng một chiều ta quan tâm đến: Show + Tên kiểu mảng một chiều. + Số lượng phần tử trong mảng. + Kiểu dữ liệu của phần tử. + Cách khai báo biến mảng. + Cách tham chiếu đến phần tử.
+ 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: Type <tênkiểumả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>; Trong đó : + Kiểu chỉ số thường là đoạn số nguyên liên tục có dạng n1..n2, với n1 là chỉ số đầu và n2 là chỉ số cuối (n1≤n2). Nên đánh chỉ số từ 1; + Kiểu phần tử là kiểu dữ liệu của các phần tử mảng. + Tham chiếu đến phần tử mảng ta viết : <tên biến mảng>[chỉ số] Tham chiếu đến phần tử thứ 20 trong mảng A ta viết A[20]. 2. Các thao tác với kiểu mảng một chiều.
write(‘Nhap so phan tu cua mang: ’); readln(n); write(‘Nhap gia tri cho tung phan tu: ’); for i:=1 to n do begin write(‘Phan tu thu ’ , i , ‘ la: ’); {write(‘A[‘,I,’]=’);} readln(A[i]); end;
writeln(‘Mang vua nhap la: ’); for i:=1 to n do write(A[i]:4); 3. Ví dụ về mảng một chiều Bài 1: Nhập vào một dãy số nguyên, tìm số nhỏ nhất trong dãy? Ý tưởng: Min:=A[1]; Duyệt từ đầu dãy đến cuối dãy, so sánh các phần tử với Min, nếu A[i]<min thì min:=A[i]; Giải quyết bài toán: Var A:array[1..200] of integer; I, n: byte; min:integer; Begin write(‘Nhap so phan tu cua mang: ’); readln(n); write(‘Nhap gia tri cho tung phan tu: ’); for i:=1 to n do begin write(‘Phan tu thu ’ , i , ‘ la: ’); {write(‘A[‘,I,’]=’);} readln(A[i]); end; min:=A[1]; For i:=2 to n do if A[i]<min then min:=A[i]; write(‘So nho nhat trong mang :’,min); readln; END. Bài 1: Nhập vào một dãy số nguyên, sắp xếp dãy thành dãy không giảm (tăng dần) theo phương pháp nổi bọt (Bubble sort) Ý tưởng: Để sắp dãy có n phần tử, thực hiện qua n-1 lượt. Ở mỗi lượt, duyệt từ đầu dãy đến cuối dãy (cần xét ở lượt đó), cứ so sánh 2 phần tử kề nhau, nếu phần tử đứng trước lớn hơn phần tử đứng sau thì đổi chỗ chúng. Uploaded byHao Do 0% found this document useful (0 votes) 2K views 93 pages Original Title67 bai tap Pascal co loi giai Copyright© © All Rights Reserved Available FormatsDOC, PDF, TXT or read online from Scribd Share this documentDid you find this document useful?Is this content inappropriate?0% found this document useful (0 votes) 2K views93 pages 67 Bai Tap Pascal Co Loi GiaiUploaded byHao Do Jump to Page You are on page 1of 93 Search inside document Reward Your CuriosityEverything you want to read. Anytime. Anywhere. Any device. No Commitment. Cancel anytime. |