|
不好意思，我犯了个小错误~~
前面那个长贴子就当我没说~~~
原来楼主的东东直接复制到TXT文件时候由于ASCII的编码问题，不能正常复制，导致许多错误，我又把输入文件重新处理了一下~~~
另外，的确是97个点，不是我说的96个
[em14][em14][em14][em14][em14][em14][em14][em14]
以下这个应该是正确的程序，通过PASCAL的编译就可以获得EXE文件：
Const MaxSize=50;
N=97;
Var Map:Array [-MaxSize..MaxSize,-MaxSize..MaxSize] Of Boolean;
i,j,lt,rt,tp,bt:Integer;
x,y:Array [1..N] Of Integer;
Begin
Assign(Input,'Input.txt'); Reset(Input);
Assign(Output,'Output.txt'); Rewrite(Output);
Fillchar(map,Sizeof(map),False);
Lt:=MaxSize; Rt:=-MaxSize; Tp:=-MaxSize; Bt:=MaxSize;
For i:=1 to N do
Begin
Read(x);
If x>Rt Then rt:=x;
If x<Lt Then lt:=x
End;
For i:=1 to N do
Begin
Read(y);
If y>Tp Then Tp:=y;
If y<Bt Then Bt:=y
End;
For i:=1 to N do map[x,y]:=True;
For j:=Tp downto Bt do
Begin
For i:=Lt to Rt do
If map[i,j] Then Write('*')
Else Write(' ');
WriteLn
End;
Close(Input); Close(Output)
End.
另外，不知道是楼主的失误还是什么原因，我把输入文件处理了一下（去掉所以小数点）后，经程序检查发现有29对重叠的点对~~~
[em10][em10]
另外，这是什么东西我也知道了~~~
[em02][em02][em06][em06]
但是，这几个字的确太乱了，经过计算机程序的放大后显得十分。。。尴尬~~~
不过，还是佩服楼主的耐心~~
感动~~~
[此贴子已经被作者于2004-12-18 14:43:29编辑过]
| 
发表于 2004-12-18 05:15:19