Mam problem z powtarzaniem pytań z moim programie. Chce, aby zadanie pytanie na które odpowiedziałem nie mogło się już więcej powtórzyć. Taki kod wyrzuca niestety błędy:
First compilation of d:\programy\free pascal\bin\i386-win32\sudoku.pas
SUDOKU.PAS(72,1) Fatal: Syntax error, ";" expected but "identifier ZESTAWY" found
SUDOKU.PAS(0) Fatal: Compilation aborted
program Quiz;
Uses Crt;
Type TZestaw = record
Pytanie : string;
Odpowiedz : array [1..3] of string;
Dobra : Integer;
Bylo : Boolean;
end;
Const Zestawy : array [1..10] of TZestaw = ((Pytanie:'Oficjalne maskotki, będace symbolami Euro 2012, to:';
Odpowiedz: ('Siemko i Strimko','Slavek i Slavko','Klemek i Ladko');Dobra:2),
(Pytanie:'W ilu polskich miastach odbeda sie rozgrywki podczas Euro 2012?'; Odpowiedz: ('3','6','4');Dobra:3),
(Pytanie:'Mecz otwarcia bedzie rozegrany na stadionie:'; Odpowiedz: ('w Gdansku','w Kijowie','w
Warszawie');Dobra:3),
(Pytanie:'Oficjalne rozpoczecie UEFA EURO 2012 na Stadionie Narodowym w Warszawie, bedzie mialo miejsce:';
Odpowiedz: ('1 czerwca 2012','8 czerwca 2012','3 czerwca 2012');Dobra:2),
(Pytanie:'W ktorym z polskich miast, nie bedzie rozgrywek w czasie trwania Euro 2012?'; Odpowiedz: ('w Krakowie','w
Gdansku','w Warszawie');Dobra:1),
(Pytanie:'Stadion w Gdansku nosi nazwe:'; Odpowiedz: ('Allianz Arena','PGE Arena','PZU Arena');Dobra:2),
(Pytanie:'Przygotowania do Euro 2012 w Polsce, sa koordynowane przez:'; Odpowiedz: ('Spolke PL.2012','Spolke
Euro.2012','Spolke Euro2012.PL');Dobra:1),
(Pytanie:'Ktorym z kolei finalem Mistrzostw Europy organizowanym przez dwa kraje, bedzie Euro 2012?'; Odpowiedz:
('2','4','3');Dobra:3),
(Pytanie:'Mecz finalowy zostanie rozegrany na stadionie:'; Odpowiedz: ('w Warszawie','w Kijowie','w
Lwowie');Dobra:2),
(Pytanie:'Mecz finalowy podczas Euro 2012 bedzie rozegrany'; Odpowiedz: ('30 czerwca 2012 roku','2 lipca 2012
roku','1 lipca 2012 roku');Dobra:3));
VAR suma, i : Integer;
procedure PokazZestaw(NrZestawu : Integer);
var Odp, i : Integer;
begin
ClrScr;
Writeln('Pytanie ',NrZestawu,' : ',Zestawy[NrZestawu].Pytanie);
Writeln;
for i:=1 to 3 do
Writeln('Odpowiedz ', i,': ',Zestawy[NrZestawu].Odpowiedz[ i]);
Writeln;
Write('Twoj wybor : ');
Readln(Odp);
if Odp=Zestawy[NrZestawu].Dobra then
begin
suma:=suma+1;
TextColor(Green);
Writeln('Brawo! To prawidlowa odpowiedz.');
TextColor(White);
end
else
begin
TextColor(Red);
Writeln('Niestety! Jest to zla odpowiedz.');
TextColor(White);
end;
ReadKey
Zestawy[NrZestawu].Bylo := True;
end;
begin
clrscr;
writeln('Nacisnij dowolny klawisz by rozpoczac test z wiedzy o Euro 2012...');
ReadKey;
for i:=1 to 10 do
Repeat
tmp := random(10)+1
If Zestawy[tmp].Bylo = false Then PokazZestaw(tmp);
Until Zestawy[tmp].Bylo = false;
clrscr;
writeln('Koniec testu!');
writeln('Zdobyto ', suma,' na 10 pkt mozliwych.');
readln;
End.
