Bài giảng pascal

program baitapmang_1chieu; type mang=array[1 100] of integer; var i,j,tg,n,k,vt,kt:integer; ch:char; a:mang; procedure nhap(var x:mang); begin for i:=1 to n do begin write('a[',i,']='); readln(x[i]); end; end; procedure ht(var x:mang); begin for i:=1 to n do write(x[i]:2); writeln; end; procedure sapxeptang(var x:mang); 1 begin for i:=1 to n-1 do for j:=i+1 to n do if x[i]>x[j] then begin tg:=x[i]; x[i]:=x[j]; x[j]:=tg; end; write('Day Sau Khi Sap Xep:'); ht(x); end; procedure sapxepgiam(var x:mang); begin for i:=1 to n-1 do for j:=i+1 to n do if x[i]<x[j] then begin tg:=x[i]; x[i]:=x[j]; x[j]:=tg; end; write('Day Sau Khi Sap Xep:'); ht(x); end; procedure chen(var x:mang); 2 begin n:=n+1; write('Nhap gia tri can chen:');readln(k); write('Nhap vi tri can chen:');readln(vt); for i:=n downto vt do x[i]:=x[i-1]; x[vt]:=k; write('Day sau khi chen la:'); ht(x); end; procedure xoatheovitri(var x:mang); begin write('Nhap vi tri can xoa:');readln(vt); if (vt<=0) or (vt>n) then begin writeln('Khong co gia tri tai vi tri ',vt); ht(x); end else begin for i:=vt to n do x[i]:=x[i+1]; n:=n-1; write('Day sau khi xoa la:'); 3 ht(x); end; end; procedure xoatheogiatri(var x:mang); begin write('Nhap gia tri can xoa:');readln(k); vt:=0; for i:=1 to n do if x[i]=k then vt:=i; if (vt<=0) or (vt>n) then begin writeln('Khong co gia tri ',k,' trong day'); ht(x); end else begin for i:=vt to n do x[i]:=x[i+1]; n:=n-1; write('Day sau khi xoa la:'); ht(x); end; end; 4 procedure timkiem(var x:mang); begin kt:=0; write('Nhap gia tri can tim:');readln(k); for i:=1 to n do if x[i]=k then begin kt:=1; vt:=i; writeln(k,' Xuat hien o vi tri thu ',vt, ' trong day'); end; if kt=0 then writeln('Day khong co gia tri can tim'); end; function max(var x:mang): integer; begin tg:=x[1]; for i:=1 to n do if x[i]>tg then tg:=a[i]; max:=tg; 5 end; function min(var x:mang): integer; begin tg:=x[1]; for i:=1 to n do if x[i]<tg then tg:=a[i]; min:=tg; end; function tbc(var x:mang):real; begin tg:=0; for i:=1 to n do tg:=tg+x[i]; tbc:=tg/n; end; function tongduong(var x:mang):real; begin tg:=0; for i:=1 to n do if x[i]>0 then tg:=tg+x[i]; tongduong:=tg; end; 6 function tongam(var x:mang):real; begin tg:=0; for i:=1 to n do if x[i]<0 then tg:=tg+x[i]; tongam:=tg; end; procedure goi; begin writeln(' ¯¯¯¯ He Thong Bai Toan Voi Mang 1 Chieu ®®®®'); writeln; writeln(' .1. Sap xep day tang dan.'); writeln(' .2. Sap xep day giam dan.'); writeln(' .3. Chen gia tri vao day.'); writeln(' .4. Xoa pt dua vao vi tri.'); writeln(' .5. Xoa pt dua vao gia tri.'); writeln(' .6. Tim kiem phan tu trong day.'); writeln(' .7. Tim phan tu lon nhat.'); writeln(' .8. Tim phan tu nho nhat.'); writeln(' .9. Tinh trung binh cong cac phan tu trong day.'); writeln(' .10. Tinh tong cac phan tu duong trong day.'); 7 writeln(' .11. Tinh tong cac phan tu am trong day.'); writeln(' .12. Nhap lai day.'); writeln; write('Chon Bai Toan Can Thuc Hien Ung So 1-12:');readln(kt); case kt of 1: sapxeptang(a); 2: sapxepgiam(a); 3: chen(a); 4: xoatheovitri(a); 5: xoatheogiatri(a); 6: timkiem(a); 7: writeln('Gia tri lon nhat trong day la:',max(a)); 8: writeln('Gia tri nho nhat trong day la:',min(a)); 9: writeln('Trung binh cong cac phan tu trong day la:',tbc(a):3:2); 10: writeln('Tong cac phan tu duong trong day la:',tongduong(a):3:2); 11: writeln('Tong cac phan tu am trong day la:',tongam(a):3:2); 12: begin write('Nhap so pt:');readln(n); nhap(a); end; 8 else writeln('Gia tri tuong ung bai toan vua nhap khong ton tai.'); end; end; begin write('Nhap so pt:');readln(n); nhap(a); repeat begin writeln('Day Vua Nhap'); ht(a); goi; write('Ban co muon tiep tuc khong c/k:');readln(ch); end; until (ch='k')or(ch='K'); end. program baitapmang_2chieu; type mang=array[1 100,1 100] of integer; var a:mang; 9 m,n,i,j,k,tg,kt,vt,vth,vtc:integer; ch:char; procedure nhap(var x:mang); begin write('Nhap hang:');readln(n); write('nhap cot:');readln(m); for i:=1 to n do for j:=1 to m do begin write('A[',i,'.',j,']=');readln(x[i,j]); end; end; procedure ht(var x:mang); begin writeln('Mang sau khi thuc hien la:'); for i:=1 to n do begin for j:=1 to m do begin write(x[i,j]:2); 10