Code:
Program kviz;
uses crt;
type
pitanje = record
pit:String;
o1,o2,o3,o4,tac:String[50];
end;
var f: Text;
pitanja:array[1..50] of Pitanje;
op, err, od,pit,i:integer;
zarada, dinara: longint;
idemo, prekid, bilopola:Boolean;
begin
clrscr;
assign(f,'pitanja.txt');
reset(f);
{$I-}
if ioresult = 0 then
begin
i := 1;
while not eof(f) do
begin
readln(f,pitanja[i].pit);
readln(f,pitanja[i].o1);
readln(f,pitanja[i].o2);
readln(f,pitanja[i].o3);
readln(f,pitanja[i].o4);
readln(f,pitanja[i].tac);
if not eof(f) then
inc(i);
end;
close(f);
writeln('Broj ucitanih pitanja =',i);
idemo := true;
prekid := false;
bilopola:=false;
dinara := 1000;
zarada := 0;
randomize;
while idemo and not prekid do
begin
writeln('Pitanje za ',dinara,'dinara');
pit := random(i)+1;
writeln('Pitanje: ',pitanja[pit].pit);
writeln(' 1)',pitanja[pit].o1);
writeln(' 2)',pitanja[pit].o2);
writeln(' 3)',pitanja[pit].o3);
writeln(' 4)',pitanja[pit].o4);
writeln;
write(' Odgovori (1-4) Pola pola = 0 Prekid = 999 >');
readln(od);
val(pitanja[pit].tac, op, err);
if od=0 then
if not bilopola then
begin
bilopola := true;
writeln('Odgovor je pod ', op, ' ili pod ', ((op+2) mod 4) +1);
readln(od);
end
else
begin
writeln('Pola pola je bilo');
readln(od);
end;
if od=999 then
prekid := true
else
if op=od then
begin
zarada := dinara;
dinara := dinara *2;
end
else
idemo := false;
end;
writeln;
writeln;
if not prekid then
zarada := 0;
writeln('Zaradili ste ', zarada,' dinara');
end
else
writeln('Greska pri ucitavanju pitanja');
readln;
{$I+}
end.
U uploadu imas 5 primer-pitanja. Zameni tekst pravim pitanjima, ali upamti 1 red 1 pitanje (nemoj pitanje da napravis u 2 reda),i 1 red 1 odgovor (moras da imas 4 odgovora) a zatim u sledecem redu sledi tacan odgovor.
