procedure timkiemvar x:mang;... function tongamvar x:mang:real;writeln' .1.. Tim kiem phan tu trong day.';writeln' .7.. Tinh trung binh cong cac phan tu trong day.'; writeln' .10.. Tinh
Trang 3n:=n+1;
write('Nhap gia tri can chen:');readln(k); write('Nhap vi tri can chen:');readln(vt); for i:=n downto vt do
Trang 5procedure timkiem(var x:mang);
Trang 7function tongam(var x:mang):real;
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.');
Trang 8writeln(' .11 Tinh tong cac phan tu am trong day.');
writeln(' .12 Nhap lai day.');
Trang 9else writeln('Gia tri tuong ung bai toan vua nhap khong ton tai.');
Trang 15procedure sapxepgiamtheohang(var x:mang); begin
Trang 18writeln(' .5 Xoa hang trong mang.');
writeln(' .6 Xoa cot trong mang.');
writeln(' .7 Chen them hang vao mang.');writeln(' .8 Chen them cot vao mang.');writeln(' .9 Tim kiem phan tu.');
Trang 19writeln(' .10 Tim phan tu lon nhat trong mang.');
writeln(' .11 Tim phan tu nho nhat trong mang.');
writeln(' .12 Nhap lai mang.');
Trang 21for i:=1 to length(x)-1 do
for j:=i+1 to length(x) do
if (ord(x[i])) > (ord(x[j])) then
Trang 22for i:=1 to length(x)-1 do
for j:=i+1 to length(x) do
if (ord(x[i])) < (ord(x[j])) then
write('Nhap xau can chen:');readln(d);
write('Nhap vi tri muon chen:');readln(vt);insert(d,s,vt);
writeln(x);
end;
Trang 23procedure xoaxau(var x:xau);
begin
write('Nhap vi tri muon xoa:');readln(vt);
write('So ky tu muon xoa:');readln(i);
for i:=1 to length(x) do
if (x[i]='.') or (x[i]=',') then
insert(' ',x,i+1);
for i:=1 to length(x) do
if (x[i]=' ') and (x[i+1]=' ') then
dem:=dem+1;
while dem>0 do
Trang 24begin
for i:=1 to length(x) do
if (x[i]=' ') and (x[i+1]=' ') then
Trang 25while x[1]=' ' do delete(x,1,1);
while x[length(x)]=' ' do delete(x,length(x),1);
for i:=1 to length(x) do
if (x[i]=' ') and (x[i+1]=' ') then
dem:=dem+1;
while dem>0 do
begin
for i:=1 to length(x) do
if (x[i]=' ') and (x[i+1]=' ') then
for i:=1 to length(x) do
if x[i] in ['A' 'Z'] then
Trang 26while x[length(x)]=' ' do delete(x,length(x),1);
for i:=1 to length(x) do
if (x[i]=' ') and (x[i+1]=' ') then
dem:=dem+1;
while dem>0 do
begin
for i:=1 to length(x) do
if (x[i]=' ') and (x[i+1]=' ') then
begin
delete(x,i+1,1);
dem:=dem-1;
end;
Trang 27end;
for i:=1 to length(x) do
if x[i] in ['A' 'Z'] then
Trang 30writeln('Xau khong doi xung');
end;
procedure chuyenxauvethuong(var x:xau);begin
for i:=1 to length(x) do
if x[i] in ['A' 'Z'] then
Trang 31writeln(' .5 Chuyen xau ve chu in
thuong.');
writeln(' .6 Chuan hoa xau (full).');
writeln(' .7 Chuan hoa ten.');
writeln(' .8 Tach ten.');
writeln(' .9 Tim kiem 1 xau trong xau da nhap.');
writeln(' .10 Xac dinh xau doi xung.');writeln(' .11 Nhap lai xau.');
Trang 32else writeln('Gia tri tuong ung bai toan vua nhap khong ton tai.');