求求你地幫下我既cit coursework啦．．．
我個program..
唔識點read...下星期就要交..
我基本野做到最後先知read錯野
第1個file既fornat係
001
mary
CDBACBDDADABCABDACABAD
而個model ans既txt檔入面既format係
C
D
B
A
C
B
D
D
A
D
A
B
C
A
B
D
A
C
A
B
A
D
...
我唔知點可以對番個答案
又同時間將分數match番人名同學校名
我應該點read?
我咩方法都試過了
我知你地係好人..
我cit一直都唔太好...但求呢個coursework合格.
求下你地/..


我係咁打既．．
     assign(FileV,FileName);
     reset(FileV);
     i := 0;
     while not eof(FileV) do
           begin
                i := i + 1;
                readln(FileV,sch_name);
                readln(FileV,P_name);
                readln(FileV,P_Ans);

           end;

     assign(KeyFile,F2);
     reset(KeyFile);
     reset(FileV);
                 t := 0;
                 while not eof(KeyFile) do
                     begin
                     t := t + 1;
                     readln(KeyFile,AnsKey[t]);
                     read(FileVariable,P_ans[t]);
                     end;
     close(KeyFile);
     Close(FILEV);
我個學生名同學校名都SET左做STRING
而學生答案同MODEL ANSWER就SET左CHAR
全都用ARRAY

唔知有邊度READ錯呢...

for j := 1 to i do
          begin
          corr := 0;
          for q := 1 to t do
              if st_Ans[j][q] = AnsKey[q]
                 then corr := corr + 1;
                      str(Corr,st_Mark[j]);
          end;

之後將學生答案個行同model answer入面既答案比較
用呢舊野黎計出竟竟佢地o岩左幾題
但我知道肯定係read data個度有問題

你有冇msn之類?
我想sd個code比你幫我de下..
唔太多行
i 是no. of info
t是 no. of question

[ 本帖最後由 HAHAKA 於 2008-10-25 22:15 編輯 ]