Pấcl hsg

Bài tập 1: Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in kết quả ra màn hình.
Bài tập 5.4: Viết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X. Hãy kiểm tra xem phần tử X có trong mảng A hay không?
Bài tập 5.5: Giả sử mảng A đã được sắp xếp theo thứ tự tăng dần. Viết hàm để kiểm tra xem phần tử X có trong mảng A hay không?
Bài tập 5.6: Viết chương trình tìm ma trận chuyển vị của ma trận A.
Ý tưởng:
Dùng mảng 2 chiều để lưu trữ ma trận. Gọi B là ma trận chuyển vị của ma trận A, ta có: Bij = Aji.

Uses Crt;
Type Mang = ARRAY[1..10,1..10] Of Integer;
Var A,B:Mang;
m,n,i,j:Integer;
Begin
{Nhập ma trận}
Write(‘Nhap số dòng m=’); Readln(m);
Write(‘Nhap số cột n=’); Readln(n);
For i:=1 To m Do
For j:=1 To n Do
Begin
Write(‘A[‘,i,j,’]=’); Readln(A[i,j]);
End;
{Tìm ma trận chuyển vị}
For i:=1 To m Do
For j:=1 To n Do B[i,j]:=A[j,i];
{In ma trận chuyển vị ra màn hình}
For i:=1 To m Do
Begin
For j:=1 To n Do Write(B[i,j]:5);
Writeln;
End;
Readln;
End.

Bài tập 5.7: Cho một mảng 2 chiều A cấp mxn gồm các số nguyên và một số nguyên x. Viết chương trình thực hiện các công việc sau:
a/ Đếm số lần xuất hiện của x trong A và vị trí của chúng.
b/ Tính tổng các phần tử lớn nhất của mỗi dòng.

Uses Crt;
Type Mang = ARRAY[1..10,1..10] Of Integer;
Var A:Mang;
m,n,i,j,x,dem,S,max:Integer;
Begin
{Nhập ma trận}
Write(‘Nhap số dòng m=’); Readln(m);
Write(‘Nhap số cột n=’); Readln(n);
For i:=1 To m Do
For j:=1 To n Do
Begin
Write(‘A[‘,i,j,’]=’); Readln(A[i,j]);
End;
{Nhập x}
Write(‘Nhap x=’); Readln(x);
{Đếm số lãn xuất hiện của x và vị trí của x}
dem:=0;
Writeln(‘Vi tri cua x trong mang A: ‘);
For i:=1 To m Do
For j:=1 To n Do
If x=A[i,j] Then
Begin
Write(i,j,’ ; ‘);
dem:=dem+1;
End;
Writeln(‘So lan xuat hien cua x trong mang A la: ‘,dem);
{Tính tổng các phần tử lớn nhất của mỗi dòng}
S:=0;
For i:=1 To m Do {duyệt qua từng dòng}
Begin
{Tìm phần tử lớn nhất của dòng thứ i}
Max:=A[i,1];
For j:=2 To n Do {duyệt từng phần tử của dòng thứ i}
If max {Cộng max vào biến S}
S:=S+max;
End;
Writeln(‘Tong cac phan tu lon nhat cua moi dong la: ‘,S);
Readln;
End.
Bài tập 5.9: Viết chương trình nhập vào số tự nhiên N (N lẻ), sau đó điền các số từ 1 đến n2 vào trong một bảng vuông sao cho tổng các hàng ngang, hàng dọc và 2 đường chéo đều bằng nhau (bảng này được gọi là Ma phương).
Ví dụ: Với N=