Turbo Pascal Program QUIZ !

program quiz; 

type 

pytanie=record 

pytanie,a,b,c,d:string[150]; 

prawidlowa:string[15]; 

oznaczono:boolean; 

end; 

{...}

begin 

pytania[1].pytanie:='Polecenie ktore zmienia znaki na liczby czy jest to:'; 

pytania[1].a:='CHR'; 

pytania[1].b:='INT'; 

pytania[1].c:='ORD'; 

pytania[1].d:='GOTO'; 

pytania[1].prawidlowa:='c'; 



pytania[2].pytanie:='Zmienna CHAR wprowadza:'; 

pytania[2].a:='1 znak'; 

pytania[2].b:='10 znakow'; 

pytania[2].c:='dodawanie'; 

pytania[2].d:='zadna z powyzszych'; 

pytania[2].prawidlowa:='a'; 

 {itd.}

var punkty: Byte; odpowiedz: Char;

procedure ZadajPytanie(nr: Byte; var punkty: Byte);

begin 

    Writeln(pytania[i].pytanie);

    Writeln(pytania[i].a);

    Writeln(pytania[i].b);

    {itd}

    repeat

      Writeln('Podaj odpowiedź: '); 

      Readln(odpowiedz);

    until odpowiedz in ['a'..'d'];

    if odpowiedz = pytania[i].prawidlowa then punkty := punkty + 1;

end;

punkty := 0;

for i:=1 to 15 do ZadajPytanie(i);