Mencocokan Kunci Jawaban (PASCAL)

====================================================================

program kuncijawaban;

uses wincrt; (* untuk turbopascal pd windows menggunakan wincrt*)

var x,y,v,w:string; a,b,c:integer;

begin

c:= 0;(*variabel yg digunakan untuk skor akhir*)

write('masukan kunci jawaban: '); readln(x);

write('masukan jawaban: ');

readln(y);

a:=length(x); (*menghitung jumlah karakter kunci jawaban*)

             for b:=1 to a do begin (*perulangan dibutuhkan untuk mengecek tiap jawaban berulang sebanyak jawaban *)

                 v:=copy(x,b,1); (*mengambil string kunci jawaban 1 karakter untuk dicocokan *)

                 w:=copy(y,b,1); (* mengambil string jawban yang akan dicocokan dengan kunci*)

             if v= w(*jika jawaban = kunci*)

             then begin

                  c:=c+4;

                   end

             else if v=' ' then begin(*jika jawaban kosong*)

                  c:=c+0;

                  end

             else begin (*jika jawaban salah*)

                  c:=c-1;

                  end;           

                 

                end;

writeln('skor akhir :',c);

readln;

end.

========================================================================