我想對兩個file  的 mc ans  分別係
file1(modal ans)                               file2(student ans)
abcd                                                 badb
                                                         aadd
                                                         bbcc
                                                         accc
第一條正確ａｎｓ　係ａ　第二條　係　ｂ．．．．　　　右手面係４個學生，一人４條ｍｃ
如果岩左會有ｇｏｏｄ　　錯左會ｗｒｉｔｅ　ｂａｄ
段ｃｏｄｅ　如下，唔知咩事ｒｕｎ　唔到
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:=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;
end;
for i:= 1 to 4 do
for j:= 1 to 4 do
if savemodalans=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 編輯 ]

引用:

原帖由 我要破紀錄 於 18-10-2008 11:50 發表
我想對兩個file  的 mc ans  分別係
file1(modal ans)                               file2(student ans)
abcd                                                 badb
                                        ...

又多一位應屆會考生... (我都係,交左功課la~~)

Do you mean there is run-time error / logic error / syntax error??

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 編輯 ]

modalans是個char類型的變數.
readln只會把s.txt的第一個字元放進modalans.
然後從while廻圈跳出.