program QCU;
type
tab=array[1..10]of string;
var
q,r:tab;
n,i:integer;
question,reponse:string;
//*********************************************
procedure convmaj(var ch:string);
var
i:integer;
Begin
for i:=1 to length(ch)Do
ch[i]:=upcase(ch[i]);
end;
//*********************************************
Procedure resultat(q,r:tab;n:integer);
var
i,ntpo,nbrc,nbri:integer;
Begin
nbrc:=0;
nbri:=0;
for i:=1 to n Do
if(copy(q[i],pos('#',q[i])+1,4)=r[i])Then
nbrc:=nbrc+1
else
nbri:=nbri+1;
ntpo:=(nbrc*2)+(nbri*(-2));
writeln('le nombre total de points obtenus est : ',ntpo);
writeln('le taux de réussite=',(nbrc/n)*100:2:2,'%');
end;
//*********************************************
Begin
Repeat
write('donner le nombre de questions:');
readln(n);
until(n in [5..10]);
for i:=1 to n Do
begin
repeat
Write('donner la proposition relative à la proposition n°:',i,' ');
readln(question);
until(length(question)>=4)and(question[1]in['A'..'Z']);
repeat
Write('donner la validation de la proposition n°:',i,' ');
readln(reponse);
convmaj(reponse);
until(reponse='VRAI')or(reponse='FAUX');
q[i]:=question+'#'+reponse;
end;
for i:=1 to n Do
repeat
write('donner votre réponse à la question n°:',i,' ');
readln(r[i]);
convmaj(r[i]);
until(r[i]='VRAI')or(r[i]='FAUX');
resultat(q,r,n);
end.
Inscription à :
Publier les commentaires (Atom)
