Bai tap ma tran hay

1 } uses crt; var i,j,n:integer; begin clrscr; write'Moi ban nhap n= '; readlnn; writeln; writeln'Ma Tran tam giac dac biet ta thu duoc la'; writeln; for i:=n downto 1 do begin for j:=i

Bai 1

program max_min; {Cho ma tram, hay tim

phan tu be nhat, lon nhat cua day va cho

biet

vi tri cua chung trong ma tran}

uses crt;

var a:array [1 50,1 50] of integer;

m,n,i,j,min,max:integer;

begin

clrscr;

write('nhap so m= ');readln(m);

writeln;

write('nhap so n= ');readln(n);

writeln;

for i:=1 to m do for j:=1 to n do

begin

write('a[',i,',',j,']= '); readln(a[i,j]);

end;

writeln;

writeln;

for i:=1 to m do

begin

for j:=1 to n do write(a[i,j]:5);

writeln;

writeln;

end;

writeln;

writeln;

min:=a[1,1];

for i:=1 to m do for j:=1 to n do

if min > a[i,j] then min:=a[i,j];

writeln('min= ',min);

writeln;

write('do la so thu ');

for i:=1 to m do for j:=1 to n do

if a[i,j]=min then write('[',i,',',j,']');

writeln;

writeln;

max:=a[1,1];

for i:=1 to m do for j:=1 to n do

if max < a[i,j] then max:=a[i,j];

writeln;

writeln('max= ',max);

writeln;

write('do la so thu ');

for i:=1 to m do for j:=1 to n do

if a[i,j]=max then write('[',i,',',j,']');

readln;

end

Bai 2

program tinh_tong; {Tinh tong cac phan tu

tren moi hang va moi cot

cua ma tran}

uses crt;

var a:array [1 50,1 50] of integer;

m,n,i,j:1 50;

s:integer;

begin

clrscr;

write('nhap so m= ');readln(m);

writeln;

write('nhap so n= ');readln(n);

writeln;

for i:=1 to m do for j:=1 to n do

begin

write('a[',i,',',j,']= '); readln(a[i,j]);

end;

writeln;

writeln;

for i:=1 to m do begin

for j:=1 to n do write(a[i,j]:5);

writeln;

writeln;

end;

writeln;

writeln;

for i:=1 to m do begin

s:=0 ; for j:=1 to n do s:=s+a[i,j];

writeln('Tong hang thu ',i,' la: ',s:5); writeln;

end;

for j:=1 to n do begin

s:=0;

for i:=1 to m do s:=s+a[i,j];

writeln('Tong cot thu ',j,' la: ',s:5); writeln;

end;

readln;

end

Bai 3 program tinh_tong; {Cho ma tram, hay tim tong cac phan tu co gia tri chan (le) cua ma tran do}

uses crt;

var a:array [1 50,1 50] of integer; m,n,i,j:1 50;

s:integer;

begin clrscr;

write('nhap so m= ');readln(m);

writeln;

write('nhap so n= ');readln(n);

writeln;

for i:=1 to m do for j:=1 to n do begin

write('a[',i,',',j,']= '); readln(a[i,j]); end;

writeln;

writeln;

for i:=1 to m do begin

for j:=1 to n do write(a[i,j]:5);

writeln;

writeln;

end;

writeln;

writeln;

write('Cac phan tu chan cua ma tran la '); s:=0;

for i:=1 to m do for j:=1 to n do

if (a[i,j]mod 2=0) then begin

write(a[i,j]:5);

s:=s+a[i,j];{Tinh tong cac so le thi (a[i,jmod 2<>0)}

end;

writeln;

writeln;

write('Tong cac phan tu chan cua ma tran

la s= ',s);

readln;

Bai 4

program tinh_tong; {Cho ma tram, hay tim

tong cac phan tu co so hang la boi cua k,

voi k la so thich hop cho tu ban phim}

{lam tuong tu voi cac phan tu doi

voi cot }

uses crt;

var a:array [1 50,1 50] of integer;

m,n,i,j,k:1 50;

s:integer;

begin

clrscr;

write('Moi nhap so m= ');readln(m);

writeln;

write('Moi nhap so n= ');readln(n);

writeln;

write('Moi nhap k= ');readln(k);

writeln;

writeln;

for i:=1 to m do for j:=1 to n do

begin

write('a[',i,',',j,']= '); readln(a[i,j]);

end;

writeln;

writeln;

for i:=1 to m do

begin

for j:=1 to n do write(a[i,j]:5);

writeln;

writeln;

end;

writeln;

writeln;

for i:=1 to m do for j:=1 to n do

if (i mod k=0) then s:=s+a[i,j];

{if (j mod k=0) then s:=s+a[i,j];}

{Doi voi cot}

writeln;

write('Tong cac phan tu co so hang la boi

',k,' la s= ',s);

readln;

end

Bai 5

program tinh_toan_voi_ma_tran;

uses crt;

VAR a,b:array[1 50,1 50] of integer;

m,n,p,q,i,j:integer;

procedure tinh_tong_hai_ma_tran;

var c:array[1 50,1 50] of integer;

begin

writeln('Tong ma tran mot va hai la ma

tran ba,ma tran ba bang');

writeln;

for i:=1 to m do for j:=1 to n do

c[i,j]:=a[i,j]+b[i,j];

for i:=1 to m do

begin

for j:=1 to n do write(c[i,j]:5);

writeln;

writeln;

end;

end;

procedure tinh_tich_hai_ma_tran;

var d:array[1 50,1 50] of integer;

k:integer;

begin writeln('Tich ma tran mot va hai la ma tran bon,ma tran bon bang');

for i:=1 to m do for k:=1 to q do begin

d[i,k]:=0;

for j:=1 to n do d[i,k]:=d[i,k]

+a[i,j]*b[j,k];

end;

writeln;

writeln;

for i:=1 to m do begin

for k:=1 to q do write(d[i,k]:5);

writeln;

writeln;

end;

writeln;

end;

BEGIN clrscr;

write('nhap m= ');readln(m); {m,n so dong,cot ma tran mot}

write('nhap 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;

writeln;

write('nhap p= ');readln(p); {p,q so dong,cot ma tran hai}

write('nhap q= ');readln(q);

for i:=1 to p do for j:=1 to q do begin

write('b[',i,',',j,']= ');

readln(b[i,j]);

end;

writeln;

Writeln;

writeln('Ta co ma tran mot la');

writeln;

writeln;

for i:=1 to m do begin

for j:=1 to n do write(a[i,j]:5);

writeln;writeln;

end;

writeln;

writeln;

writeln('Ta co ma tran hai la');

writeln;

writeln;

for i:=1 to p do begin

for j:=1 to q do write(b[i,j]:5);

writeln;writeln;

end;

writeln;

if (m=p) and (n=q) then tinh_tong_hai_ma_tran;

writeln;

if n=p then tinh_tich_hai_ma_tran;

writeln;

readln;

end

Bai 6

program

cho_ra_cac_phan_tu_tren_duong_cheo_chinh;

{va ca tong cua chung}

uses crt;

var a:array [1 50,1 50] of integer;

n,i,j,s:integer;

begin

clrscr;

write('nhap so n= ');readln(n);

for i:=1 to n do for j:=1 to n do

begin

write('a[',i,',',j,']= '); readln(a[i,j]);

end;

writeln;

writeln;

for i:=1 to n do

begin

for j:=1 to n do write(a[i,j]:5);

writeln;

writeln;

end;

writeln;

writeln;

write('Cac phan tu tren duong cheo chinh

la');

writeln;

writeln;

for i:=1 to n do

write(a[i,i]:5);

writeln;

writeln;

s:=0;

for i:=1 to n do s:=s+a[i,i];

writeln;

writeln;

write('Tong cac phan tu tren duong cheo

chinh cua ma ma tran ',s);

readln;

end

Bai 7

{program ma_tran_chuyen_vi; {cho ma tran

vuong ,tim ma tran chuyen vi}

{uses crt;

var n,i,j,tg:integer;

a:array[1 50,1 50] of integer;

BEGIN

clrscr;

repeat write('nhap so hang so cot cua day

');readln(n); until n>0;

for i:=1 to n do for j:=1 to n do

begin write('a[',i,',',j,']=

');readln(a[i,j]); end;

writeln; writeln; writeln('day ban dau

la'); writeln;

for i:=1 to n do

begin

for j:=1 to n do write(a[i,j]:5);

writeln;

end;

for i:=1 to n do for j:=1 to i do

begin

tg:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=tg;

end;

writeln; writeln; writeln('day sau khi

chuyen vi la');

writeln; writeln;

for i:=1 to n do begin

for j:=1 to n do write(a[i,j]:5);

writeln;

end;

readln;

end.}

program chuyen_vi_tong_quat; {cho ma tram cap (m,n) tim ma tran chuyen vi } uses crt;

var a,b:array[1 100,1 100]of integer; m,n,i,j:integer;

begin clrscr;

write('nhap so hang');readln(m);

write('nhap so cot');readln(n);

for i:=1 to m do for j:=1 to n do begin

write('a[',i:2,',',j:2,']=');

readln(a[i,j]);

end;

{xem ma tran a sau khi nhap}

writeln('ma tran a sau nhap la:');

for i:=1 to m do begin

for j:=1 to n do write(a[i,j]:3);

writeln;

end;

{tao ma tran chuyen vi}

for i:=1 to n do for j:=1 to m do b[i,j]:=a[j,i];

writeln('ma tran chuyen vi la:');

for i:=1 to n do begin

for j:=1 to m do Write(b[i,j]:5);

writeln;

end;

readln;

end

Bai 8 program ma_tran;

{Lap chuong trinh ma tran vuong A cap n voi cac phan tu la so nguyen vao may bien doi A ve ma tran tam giac duoi va ma tran tam giac tren cua A ra man hinh} uses crt;

type matran=array[1 50,1 50] of integer; var a:matran;

i,j,n:integer;

begin clrscr;

write('Do A la ma tran vuong nen so dong bang so cot= '); readln(n);

for i:=1 to n do for j:=1 to n do begin

write('a[',i,',',j,']= ');readln(a[i,j]); writeln;

end;

writeln('Ma tran tam giac tren cua A'); for i:=1 to n do {chu y day la cach viet so kieu ma tran }

begin

for j:=1 to n do

begin

write(a[i,j]:7);

end;

writeln;

end;

writeln('Ma tran tam giac duoi cua A'); for i:=2 to n do

begin

for j:=1 to i-1 do write(a[i,j]:7);

writeln;

end;

writeln;

readln;

end

Bai 9

program Ma_tran_tam_giac_dac_biet;{bai 65} {n n-1 1

1 }

uses crt;

var i,j,n:integer;

begin

clrscr;

write('Moi ban nhap n= ');

readln(n);

writeln;

writeln('Ma Tran tam giac dac biet ta thu duoc la');

writeln;

for i:=n downto 1 do

begin

for j:=i downto 1 do

write(j:5);writeln;

writeln;

end;

readln;

end