使用方式：
先输入行和列后回车
出现表格之后打：s 行 列 要加入该格的文字
添加文字
d 行 列
删除该格的文字
f结束

var a:array [1..100,1..100] of string; b:array [1..100] of longint; n,m,i,j,z,x,y:longint; c:char; s:string;
procedure sc;
var i,j,k:longint;
begin
i:=1;
for i:=1 to n do
begin
for j:=1 to z do
write('-');
writeln;
for j:=1 to m do
begin
write('|');
write(a[i,j]);
for k:=1 to b[j]-length(a[i,j]) do write(' ');
end;
writeln('

|');
end;
end;
begin
writeln('欢迎使用表格程序。请问表格是几行几列？');
readln(n,m);
for i:=1 to m do b[i]:=1;
z:=m*2+1;
while c<>'f' do
begin
sc;
read(c);
case c of
's':begin read(x,y); readln(s); a[x,y]:=s; if length(s)>b[y] then begin z:=z+length(s)-b[y]; b[y]:=length(s); end; end;
'd':begin
read(x,y);
if length(a[x,y])=b[y] then
begin
j:=b[y]; b[y]:=1;
for i:=1 to n do
if (length(a[i,y])>b[y]) and (i<>x) then b[y]:=length(a[i,y]);
z:=z-(j-b[y]);
end;
a[x,y]:=' ';
end;
end;
writeln;
end;
end.

。。。。。

4L吞了。。。

额，