Một số bài tập pasal cơ bản dạng xâu

Một số bài tập Pasal cơ bản
Chương 1 : Xâu kí tự
(Tài liệu được cung cấp bởi Hoàng Tấn Phú Quốc )

Bài 1 : Viết chương trình nhập vào 1 mảng A gồm N số nguyên nhập thêm vào một số
nguyên x . Hãy kiểm tra xem phần tử x có thuộc mảng A hay không ? Và là phần tử thứ
mấy trong mảng ?

Bài 2 : Viết chương trình tìm tổng số chẵn và số lẻ có trong mảng số nguyên được nhập từ
bàn phím ?

Bài 3 : Viết chương trình nhập vào mảng gồm N số nguyên sắp xếp lại mảng theo thứ tự
tăng dần ?
Gợi ý : Cho vòng lặp For i := 1 to (n-1) do
For j := (i+1) to n do
Nếu A[i] > A[j] thì đổi chỗ (sử dụng biến trung gian ) TG :=A[i];
A[i] := A[j];
A[j] :=TG;
Bài 4 : Viết chương trình tính tổng các số trong mảng ? Tính tổng các số chia hết cho 5
trong mảng 1 chiều A gồm N phần tử .

Bài 5 : Viết chương trình đếm số lần xuất hiện của giá trị x trong mảng A gồm N phần tử ?
Bài 6 : Viết chương trình sắp xếp giảm giần của một mảng bất kì ?
Gợi ý : Giống bài 3 nếu A[i] < A[j] thì đổi chỗ .
Bài 7 :Tìm kiếm vị trí xuất hiện của x và
a) Thay thế những giá trị A[i] là X thành Y
b) Thay thế vị trí đầu tiên
Gợi ý : duyệt các phần tử của mảng nếu A[i] = X thì gắn A[i] = Y
b) sử dụng lệnh break (dừng lại ) khi gắn A[i] = Y
Bài 8 : Viết chương trình nhập vào 1 mảng A hãy kiểm tra xem mảng đó có đối xứng hay
không ?

Gợi ý : Gắn biến k_tra := true ; duyệt qua các phần tử của mảng,
if (A[i] <> A(n-1+1)) thì k_tra := false;
if k_tra := true thì writeln(‘Mang doi xung’);


Bài 9: Tìm kiếm các cặp phần tử gần nhau có tổng chia hết cho 10, thay thế các phần tử đó = tổng
giá trị của chúng
Gợi ý : if (A[i-1] +A[i]) mod 10 = 0 then
Begin
K := (A[i-1]+A[i]);
A[i-1]:=K;
A[i] := K;
End;