cấp trường 7

Bài 1: Lập chương trình: Tính hàm luỹ thừa 2n , n là số tự nhiên được nhập vào từ bàn phím (n>=0).
Bài 2: Cho a thuộc tập R, n thuộc tập N. Tính: a(a+1)(a+2)…(a+n-1)
Bài 3: Viết chương trình nhập vào hai ma trận a và b đều có cấp n rồi in hai ma trận đó ra màn hình, sau đó tìm và in ra màn hình tổng của hai ma trận đó. Xuất ra màn hình phần tử lớn nhất của ma trận a và phần tử nhỏ nhất của ma trận b và trung bình cộng hai phần tử này.
Bài 4: Lập chương trình nhập vào 2 chuỗi bất kỳ a, b (với chuỗi b là con của chuỗi a, tức là trong chuỗi a có 1 phần giống chuỗi b). Sau đó tìm và in ra màn hình vị trí đầu tiên tìm thấy chuỗi b trong chuỗi a.
Bài 5: Viết chương trình nhập vào một chuỗi gồm chữ và số. Hãy sắp xếp các số theo thứ tự giảm dần nhưng không đổi vị trí các chữ trong chuỗi.
Bài 6: Lập chương trình nhập vào họ và tên đầy đủ của mình (của học sinh), sau đó xoá họ và in ra màn hình tên của học sinh
Bài 7 : Sinh ngẫu nhiên một dãy các số nguyên có n phần tử.
a) cho biết dãy này có bao nhiêu số chẵn.
b) Tính tổng bình phương các phần tử của dãy.

B3:
Uses crt;
type matran=array[1..100,1..100] of integer;
Var a:matran;
b,c:matran;
h,k,i,j,m,n,x,y,max,min:integer;
tbc:real;
{}
procedure Nhap(Var a:matran);
Begin
For i:=1 to n do
For j:=1 to n do
Begin
Write('Nhap a[',i,',',j,']:');
Readln(a[i,j]);
End;
End;
{}
procedure Xuat(Var a:matran);
Begin
For i:=1 to n do
Begin
For j:=1 to n do
Write(a[i,j]:5);
Writeln;
End;
End;
{}
procedure Nhap1(Var b:matran);
Begin
For i:=1 to n do
For j:=1 to n do
Begin
Write('Nhap b[',i,',',j,']:');
Readln(b[i,j]);
End;
End;
{}
procedure Xuat1(Var b:matran);
Begin
For i:=1 to n do
Begin
For j:=1 to n do
Write(b[i,j]:5);
Writeln;
End;
End;
{}
Begin
clrscr;
Write('Nhap ma tran cap: ');readln(n);
Nhap(a);
Writeln('Ma tran a la:');
Xuat(a);
WRiteln;
Nhap1(b);
Writeln('Ma tran b la: ');
Xuat1(b);
Writeln('Tong hai ma tran la: ');
For i:=1 to n do
For j:=1 to n do
c[i,j]:=a[i,j]+b[i,j];
for i:= 1 to n do
begin
for j:=1 to n do
Write(c[i,j]:5);
Writeln;
end;
max:=a[1,1];
For i:=1 to n do
For j:=1 to n do
If max<a[i,j] then max:=a[i,j];
Writeln('Phan tu lon nhat cua ma tran a la: ',max);
min:=b[1,1];
For i:=1 to n do
For j:=1 to n do
If min>b[i,j] then min:=b[i,j];
Writeln('Phan tu nho nhat mang b la: ',min);
tbc:=0;
tbc:=(max+min)/2;
WRiteln('Trung binh cong hai phan tu tren la; ',tbc:5:2);
Readln;
End.

B4:
Uses crt;
Var a,b:string;
Begin
clrscr;
Write('Nhap chuoi chinh a: ');readln(a);
Write('Nhap chuoi phu b: ');readln(b);
WRiteln('Vi tri chuoi b trong chuoi a la: ',pos(b,a));
Readln;
ENd.

B6
uses crt;
var ht:string; i,n:byte;
begin
clrscr;
write('Nhap ho ten: ');
readln(ht);
n:=length(ht);
for i:=n downto 1 do
if ht[i]=' ' then
begin
delete(ht,1,i);
break;
end;
write('Ten: ',ht);
readln;
end.

b7
uses crt;
var a:array[1..100] of integer;
tong,i,dem,n:integer;
begin
clrscr;
randomize;
writeln('may muon random may so:');readln(n);
for i:=1 to n do
a[i]:=random(100);
for i:=1 to n do
write(a[i]:5);
for i:=1 to n do
if a[i] mod 2 =0 then dem:=dem +1;
writeln;
writeln('co cac so chan la:',dem);
for i:=1 to n do
tong:=tong+sqr(a[i]);
writeln('tong binh phuong la:',tong);
readln;
end.

B5;
Uses crt;
const so=['0'..'9'];
Var s:string;
i,j:integer;
procedure doicho(Var x,y:char);
Var t:char;
Begin
t:=x;
x:=y;
y:=t;
End;
Begin;
clrscr;
Write('Nhap chuoi: ');readln(s);
For i:=1 to length(s) do
For j:=1 to length(s) do
If (s[i] in so) and (s[j] in so) and (s[i]<s[j]) and (i<>j) then
doicho(s[i],s[j]);
Writeln('Chuoi sau khi sap xep:');
Write(s);
Readln;
End.