查看完整版本: Pascal 問題,希望各大大幫手,感激無限!!!!

Pascal 問題,希望各大大幫手,感激無限!!!!

我想對兩個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[i][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;
end;
for i:= 1 to 4 do
for j:= 1 to 4 do
if savemodalans[i][i]=savestudentans[i,j] then
writeln('good');
if savemodalans[i][i]<> savestudentans[i,j]
then writeln('bad');
close(file1);
close(file2);
readln
end.[/i][/i][/i]

[[i] 本帖最後由 我要破紀錄 於 2008-10-18 12:21 編輯 [/i]]

[quote]原帖由 [i]我要破紀錄[/i] 於 18-10-2008 11:50 發表 [url=http://xocat.com/f/redirect.php?goto=findpost&pid=5450836&ptid=221218][img]http://xocat.com/f/images/common/back.gif[/img][/url]
我想對兩個file  的 mc ans  分別係
file1(modal ans)                               file2(student ans)
abcd                                                 badb
                                        ... [/quote]

又多一位應屆會考生... (我都係,交左功課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...[code]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.[/code]

[[i] 本帖最後由 arararchchch 於 2008-10-20 18:02 編輯 [/i]]

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