Uporan si ko mali majmun. Slusaj sad ovako:
ako iscrpis sva pitanja, program ce blokirati, posto vise ne moze da nadje ni jedno slobodno pitanje.
Zato, stavi, ili puno pitanja, ili proveri da kad korisnik dodje do dredjene cifre- dodje do kraja programa.
Vidim trudio si se... Znas i ko je autor. Svaka ti dala!
Citat:
Writeln('Autor: Marko Lukanec, ');
Evo ti kod:
kod se stavlja tako sto pritisnes [ pa zatim kucas code , pa zatim ]
zatim stavis paste
zatim [ pa / pa code pa ]
Evo ti koda
Code:
Program milijunas;
(********************************
*** Lijepo je biti milijunas ***
********************************)
USES crt;
TYPE
pitanje = record
pit:String;
o1,o2,o3,o4,tac:String[50];
end;
VAR f: Text;
bilo:set of byte;
pit:byte;
pitanja:array[1..50] of Pitanje;
op, err, od,i,odg:integer;
zarada, kuna: longint;
idemo, prekid, bilopola, sveznalica,krivo:Boolean;
begin
clrscr;
assign(f,'pitanja.txt');
reset(f);
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;
Textcolor(Lightred);
close(f);
Writeln(' ***********************************************************');
Writeln(' *********** D O B R O D O S L I U K V I Z ************');
Writeln(' ****** T K O Z E L I B I T I M I L I J U N A S ******');
Writeln;
Textcolor(yellow);
Writeln;
Gotoxy (29,18);
Writeln('Autor: Marko Lukanec, ');
Gotoxy (29,19);
Writeln(' 3.a razred');
Gotoxy (48,8);
Textcolor(lightblue);
writeln('Br. ucitanih pitanja=',i);
Gotoxy (26,21);
Textcolor(yellow);
Writeln('Za nastavak pritisnite enter');
Readln;
Clrscr;
idemo := true;
prekid := false;
bilopola:=false;
kuna := 100;
zarada := 0;
randomize;
while idemo and not prekid do
begin
Clrscr;
Textcolor(Lightred);
Writeln('>>>>>*********** T K O Z E L I B I T I M I L I J U N A S ***********<<<<<');
Writeln;
Textcolor(green);
writeln('Pitanje za ',kuna,' kuna');
Writeln;
Textcolor(yellow);
repeat
pit := random(i)+1;
until not (pit in bilo);
bilo := bilo + [pit];
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;
writeln(' Molimo vas izaberite jedan od cetiri ponudena odgovora');
Writeln(' Ako se dvoumite ili neznate odgovor na ovo pitanje');
Writeln(' Uzmite jocker');
Writeln(' Za Pola pola birajte 0 ');
Writeln(' Za Sveznalicu birajte 5');
Writeln(' A za sto je krivo birajte 6');
Writeln(' Ako zelite odustati birajte 999 ');
Textcolor(Lightred);
Write (' Vi birate => ');
Textcolor(lightblue);
readln(od);
val(pitanja[pit].tac, op, err);
If od=5 then
if not sveznalica then
begin
sveznalica := true;
Textcolor(lightred);
writeln('Sveznalica razmiçlja, pa kaze: ');
writeln(' Tocan odgovor je ',op);
Writeln('Da li vjerujes sveznalici? Ili †eç radije odustati?');
Writeln('Ja: Naravno da vjerujem sveznalici kad ona zna odgovore na sva ova pitanja');
Writeln('Sveznalica: No, sto cekas pritisni vec jednom broj ',op);
Write(' Ja: ');
Readln(Od);
end
else
begin
Textcolor(yellow);
writeln('Ja:Sveznalico, pomozi mi!');
Writeln('Sveznalica: Sta mislis da ti budem na sva pitanja odgovarala?!!!');
Writeln(' Ako znaç izaberi odgovor ako ne odustani i pokupi pare');
Write ('Vi birate => ');
readln(od);
end;
If od=6 then
if not krivo then
begin
krivo := true;
Textcolor(lightred);
writeln(' Ja: Koji je od ovih ponudenih odgovora krivi??? ');
writeln(' Znanje: Od ovih ponudenih odgovora');
Writeln(' kriv je sigurno odgovor');
Writeln(' pod brojem ', ((op+2) mod 4) +1);
Writeln(' Znanje:Da li ti je sada lakse??? Ako je, izaberi odgovor, ');
Writeln(' ako nije mozes jos uzeti neku pomoc ako ju imas.');
Writeln(' A naravno da mozes i odustati ako zelis');
Write(' Ja: ');
Readln(Od);
end
else
begin
Textcolor(yellow);
writeln(' Ja: Znanje, pomozi mi!');
Writeln('Znanje: Sta mislis da ti budem stalno pomagala?!!!');
Writeln(' Ako znaç izaberi odgovor ako ne odustani i pokupi pare');
Write ('Vi birate => ');
readln(od);
end;
if od=0 then
if not bilopola then
begin
bilopola := true;
writeln('Odgovor je pod brojem ', op, ' ili pod brojem ', ((op+2) mod 4) +1);
Writeln(' Ako niste sigurni mo§ete i odustati ako zelite (999)');
Write(' Vaç odgovor: ');
Readln(Od);
end
else
begin
Textcolor(yellow);
writeln('Pola pola ste iskoristili');
writeln(' izaberite odgovor ili mo§ete odustati');
Write ('Vi birate => ');
readln(od);
end;
if od=999 then
prekid := true
else
if op=od then
begin
zarada := kuna;
Writeln('Uspjesno ste odgovorili na pitanje za ',kuna,' kuna');
Writeln('¬estitam!!!');
Readln;
If zarada=1638400 then
Begin
PREKID:=TRUE;
Clrscr;
Textcolor(yellow);
Writeln(' ***************************************************************');
Writeln(' ******************* C E S T I T A M ********************');
WRITELN(' *********** O S V O J I L I S T E N A J V E C I ***********');
Writeln(' ********************* D O B I T A K *********************');
WRITELN(' ******** 1 6 3 8 4 0 0 K U N A ********');
End;
Writeln;
kuna := kuna *2;
end
else
idemo := false;
end;
writeln;
writeln;
If idemo=false then
Writeln('Zao mi je pogresno ste odgovorili na ovo pitanje');
if not prekid then
Begin
if kuna<12800 then
zarada :=0
else zarada:=12800;
End;
Writeln('Hvala vam sto ste sudjelovali u kvizu');
writeln('Zaradili ste ', zarada,' kuna');
Writeln('Dovidenja');
end
else
writeln('Greska pri ucitavanju pitanja');
readln;
end.
[Ovu poruku je menjao Toyo dana 15.04.2005. u 02:57 GMT+1]
[Ovu poruku je menjao Toyo dana 15.04.2005. u 16:06 GMT+1]