=savestudentans[i,j] then
writeln('good');
if savemodalans<> savestudentans[i,j]
then writeln('bad');
close(file1);
close(file2);
readln
end.
[ 本帖最後由 我要破紀錄 於 2008-10-18 12:21 編輯 ]
作者: arararchchch 時間: 2008-10-19 21:34
引用:
原帖由 我要破紀錄 於 18-10-2008 11:50 發表 
我想對兩個file 的 mc ans 分別係
file1(modal ans) file2(student ans)
abcd badb
...
Do you mean there is run-time error / logic error / syntax error??
作者: arararchchch 時間: 2008-10-19 22:40
I find the porblem!!
Note: the (i) is typed with brackets to prevent the system to convert the below text into italics
{==>} means the parts I have amended...複製內容到剪貼板
代碼:
program compareans;
var
savestudentans:array[1..4,1..4] of string;
savemodalans:array[1..4] of char;
studentans:string;
modalans:char;
i,j:integer;
file1,file2:text;
begin
assign(file1,'C:\s.txt');
assign(file2,'C:\stu.txt');
reset(file1);
reset(file2);
while not eof(file1) do
begin
for i:= 1 to 4 do
readln(file1,modalans);
{==>}savemodalans[(i)]:=modalans;
end;
while not eof(file2) do
begin
for i:= 1 to 4 do
for j:= 1 to 4 do
readln(file2,studentans);
{==>}savestudentans[i,j]:=studentans[(i)];
end;
for i:= 1 to 4 do
for j:= 1 to 4 do
{==>}if savemodalans[(i)]=savestudentans[i,j] then
writeln('good')
{==>}else writeln('bad');
close(file1);
close(file2);
readln
end.[ 本帖最後由 arararchchch 於 2008-10-20 18:02 編輯 ]
作者: jayzhou_2046 時間: 2008-10-20 11:36
modalans是個char類型的變數.
readln只會把s.txt的第一個字元放進modalans.
然後從while廻圈跳出.
| 歡迎光臨 香港 Xocat Forum 討論區 (http://p.xocat.com/p/) |
Powered by Discuz! 6.0.0 |
