|
程序是编出来了~~
偶把结果导到了输出文件中，不过横看竖看没看出来是什么
[em13][em14][em10]
大概是尺寸过大的原因~~~
还有似乎应该是96个点而不是97个点
程序比较浅显，哪位懂PASCAL的不妨看看有什么可以改进的地方~~~：
Const MaxSize=43;
Var Map:Array [-MaxSize..MaxSize,-MaxSize..MaxSize] Of Boolean;
i,j,lt,rt,tp,bt:Integer;
Now:Real;
x,y:Array [1..97] 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 96 do
Begin
Read(now);
x:=Round(now*10);
If x>Rt Then rt:=x;
If x<Lt Then lt:=x
End;
For i:=1 to 96 do
Begin
Read(now);
y:=Round(now*10);
If y>Tp Then Tp:=y;
If y<Bt Then Bt:=y
End;
For i:=1 to 96 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.
程序应该没错~~，这是运行上面那个程序导出的文件：不过就是看不出来是什么东东，郁闷ING
哪位眼力好的大哥大姐帮忙看一下！！！！
[此贴子已经被作者于2004-12-17 21:17:46编辑过]
| 
发表于 2004-12-12 07:12:02
楼主
21的发言：
就是就是呀，看来非６班人不用进这里了
