Pozdrav, da li ima neko ko se razume u programiranje u paskalu? Treba mi pomoc oko programa kako da ubacim da mi kviz bira svaki put kad se pokrene razlicita pitanja, a ne po redu?
program kviz;
uses Crt;
type
pitanje = record
tekst : string[250];
odgovor1 : string[100];
odgovor2 : string[100];
odgovor3 : string[100];
odgovor4 : string[100];
tacan : integer;
end;
var
a : file of pitanje;
p : array [1..50] of pitanje;
brojac, broj_pitanja, i, odgovor, bodovi : integer;
begin
assign(a, 'pitanja.dat');
reset(a);
brojac := 1;
while not EOF(a) do
begin
read(a, p[brojac]);
brojac := brojac + 1;
end;
write('Na koliko pitanja zelis da odgovaras? ');
readln(broj_pitanja) ;
bodovi := 0;
ClrScr;
for i:=1 to broj_pitanja do
begin
writeln(i, '. PITANJE');
writeln;
writeln(p.tekst);
writeln;
writeln('1. ', p.odgovor1);
writeln('2. ',p.odgovor2);
writeln('3. ',p.odgovor3);
writeln('4. ',p.odgovor4);
writeln;
write('Unesi odgovor: ');
readln(odgovor);
writeln;
if odgovor = p.tacan then
begin
writeln('TACAN ODGOVOR, + 10 POENA');
bodovi := bodovi + 10;
end
else
begin
writeln('POGRESAN ODGOVOR, -5 POENA');
bodovi := bodovi - 5;
end;
writeln;
writeln('Pritisni bilo sta za sledece pitanje');
readkey;
ClrScr;
end;
ClrScr;
writeln;
writeln('OSVOJILI STE ', bodovi, ' POENA!');
writeln;
writeln('Pritisni bilo sta za kraj');
readln;
end.
program kviz;
uses Crt;
type
pitanje = record
tekst : string[250];
odgovor1 : string[100];
odgovor2 : string[100];
odgovor3 : string[100];
odgovor4 : string[100];
tacan : integer;
end;
var
a : file of pitanje;
p : array [1..50] of pitanje;
brojac, broj_pitanja, i, odgovor, bodovi : integer;
begin
assign(a, 'pitanja.dat');
reset(a);
brojac := 1;
while not EOF(a) do
begin
read(a, p[brojac]);
brojac := brojac + 1;
end;
write('Na koliko pitanja zelis da odgovaras? ');
readln(broj_pitanja) ;
bodovi := 0;
ClrScr;
for i:=1 to broj_pitanja do
begin
writeln(i, '. PITANJE');
writeln;
writeln(p.tekst);
writeln;
writeln('1. ', p.odgovor1);
writeln('2. ',p.odgovor2);
writeln('3. ',p.odgovor3);
writeln('4. ',p.odgovor4);
writeln;
write('Unesi odgovor: ');
readln(odgovor);
writeln;
if odgovor = p.tacan then
begin
writeln('TACAN ODGOVOR, + 10 POENA');
bodovi := bodovi + 10;
end
else
begin
writeln('POGRESAN ODGOVOR, -5 POENA');
bodovi := bodovi - 5;
end;
writeln;
writeln('Pritisni bilo sta za sledece pitanje');
readkey;
ClrScr;
end;
ClrScr;
writeln;
writeln('OSVOJILI STE ', bodovi, ' POENA!');
writeln;
writeln('Pritisni bilo sta za kraj');
readln;
end.