Bài Tập Pascal Lớp 11

Câu 1: Viết chương trình nhập vào mảng một chiều B gồm có N phần tử là số nguyên (1 <= N <=100). Tìm giá trị lớn nhất của mảng. Hiển thị mảng đã nhập và giá trị lớn nhất ra màn hình.
Program timmax;
Uses crt;
Type mang= array [1..100] of integer;
Var N, i, Max: integer;
B: mang;
Begin
Write(‘Nhap so luong day so: ‘); readln(N);
For i:=1 to N do
Begin
Write(‘Phan tu thu ‘, i ,’= ‘);
Readln(B[i]);
End;
Max:=B[1];
For i:=2 to N do If B[i]> Max then Max:=B[i];
Write(‘Gia tri phan tu Max: ‘, Max);
Readln;
End.

Câu 2: Viết chương trình nhập vào mảng một chiều B gồm có N phần tử là số nguyên (1 <= N <=100). Sắp xếp mảng theo thứ tự giảm dần. Hiển thị mảng đã được sắp xếp giảm.
Program sapxep;
Uses crt;
Type mang= array [1..100] of integer;
Var N, i, j, k: integer;
B: mang;
Begin
Write(‘Nhap so luong day so: ‘); readln(N);
For i:=1 to N do
Begin
Write(‘Phan tu thu ‘, i ,’= ‘);
Readln(B[i]);
End;
For j:=2 to N do
For i:= 1 to N-1 do
If B[i] Begin
k:=B[i]; B[i]:=B[i+1]; B[i+1]:=k;
End;
Write(‘Day so duoc sap xep la: ‘);
For i:=1 to N do write(B[i], ’ ‘);
Readln;
End.
Câu 3: Viết chương trình nhập vào mảng hai chiều gồm có m x n phần tử là kiểu số nguyên (1 <= m,n <=50). Tính tổng các phần tử âm trong mảng. Hiển thị mảng hai chiều và tổng các phần tử âm ra màn hình.
Program tongptam;
Uses crt;
Var B: array [1..50,1..50] of integer;
i, j, m, n, tong: integer;
Begin
Write(‘Nhap m: ‘); readln(m);nWrite(‘Nhap n: ‘); readln(n);
Tong:=0;
Write(‘Nhap cac phan tu cua mang theo dong: ‘);
For i:=1 to m do
For j:=1 to n do
Begin
Readln(B[i,j]);
If B[i,i]<0 then tong:=tong+B[i,j];
End;
Writeln(‘Tong cac phan tu am trong day la: ‘,tong); Readln;
End.

Câu 4: Viết chương trình nhập vào mảng hai chiều gồm có m x n phần tử là kiểu số nguyên (1 <= m,n <=50). Đếm các phần tử lẻ trong mảng. Hiển thị mảng hai chiều và số các phần tử lẽ ra màn hình.
Program ptle;
Uses crt;
Var B: array [1..50,1..50] of integer;
i, m, n, tong: integer;
Begin
Write(‘Nhap m: ‘); readln(m); Write(‘Nhap n: ‘); readln(n);
Write(‘Nhap cac phan tu cua mang theo dong: ‘);
For i:=1 to m do
For i:=1 to n do Readln(B[i,j]);
Write(‘Cac phan tu le trong day: ‘);
For i:=1 to m do
For i:=1 to n do
Begin
If (B[i,j] mod 2 <> 0) then write(B[i,j],’ ‘); Read;
End;
Readln;
End.

Câu 5: Viết chương trình nhập vào hai xâu bất kì từ bàn phím. Hiển thị xâu có độ dài lớn hơn.

Program dodaixau;
Uses crt;
Var
a, b: string;
Begin
Clrscr;
Write(‘Nhap xau a: ‘); readln(a);
Write(‘Nhap xau b: ‘); readln(b);
If length(a)>length(b) then write(a) else write(b);
Readln;
End.