- Khái niệm: Mảng một chiều là một dãy hữu hạn các phần tử có cùng kiểu. Mảng được đặt tên và mỗi phần tử mang một chỉ số.
Với mảng một chiều ta quan tâm đến:
+ 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 mảng một chiều:
+ 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.
- Cách nhập mảng A:
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;
- Cách in mảng A ra màn hình:
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 by
Hao Do
0% found this document useful (0 votes)
2K views
93 pages
Original Title
67 bai tap Pascal co loi giai
Copyright
© © All Rights Reserved
Available Formats
DOC, PDF, TXT or read online from Scribd
Share this document
Did 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 Giai
Uploaded by
Hao Do
Jump to Page
You are on page 1of 93
Search inside document
Reward Your Curiosity
Everything you want to read.
Anytime. Anywhere. Any device.
No Commitment. Cancel anytime.