Stavljaj pitanja koja su bila u skup (set of)

pa gledaj: if a in skup then ... bla bla bla

ili:

repeat
nadj_ sledece pitanje
until a in skup

sa njim(skupom) mozes da radis svasta, a za tebe je to "dusu dalo".

E el bi mi štel napraviti tih par izmena to zbilja ne shvaćam, please

Bi mi tko htio nadograditi da se doda provera koja su pitanja već bila u kvizu da se ne ponavljaju, please.

Please bi mi tko štel pomoći???

Kak da stavim pitanja koja su bila u skuop, please,pomoć, hitno?!!!!

Kak da stavim pitanja koja su bila u skup, please, help?!!!!

Heeeeeeeelp meeeeeeeee!!!!!

Marko Lukanec = Eugen Reisen
Isti program, isti problem, isto naporan, isto nista nece da uradi sam... ma isti covek

http://www.elitesecurity.org/t...32-Zadatak-Turbo-Pascalu-pomoc

Si primjetil kak sem ukrasil program?
Još jedino jednu stvar ne kužim kak da napravim skup pitanja koja su se pojavila u kviz tako da mi se ne vrte pitanja koja su već bila? E imaš možda ideju?

Srki_82, please????
Još ovo i program će da bude završen!!!

Marko, pa zar ti program nije trebao za prosli ponedeljak?

Da trebao mi je ali sutra ga moram predati.

Ajde, ako postavis program izmedju code tagova, rescemo problem.
Ako te i to mrzi - nikom nista.

slušaj:

Trebam uvesti skup pomoću kojega ću prepoznati koja su pitanja već bila pa da ne dolazi do ponovno biranja istih

Ovak nekako
1.) Posatavim skup
2.) onda mogu staviti petlju
repeat
pit:=random(i)+1
Until pitanje nije u skupu
Ali kako?

Toyo šta misliš?

I ovu noć ostajem bez sna ali što se može skupovi su ipak važniji
Toyo?

Pa ne moras odmah da se drka.s!

Sve sto treba je da nista ne razmisljas.

Postavi program na forum izmedju code tagova!
znaci, ne da mu je pozadina siva, vec bela, kao sto to sav normalan svet radi.

Please, pomozi, mi please.

[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;
pitanja:array[1..50] of Pitanje;
op, err, od,pit,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);
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;
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.

Ajde obrisi prethodnu poruku. Nije to to.
Zadatak ti je resen. Izmena je samo 2-3 reda.

Zbilja ne shvaćam, toyo please pomozi mi da uspijem nekak srediti ono sa milijunašom

E toyo puno hvala a kako da obrišem ovu kad nema izmjeni/obriši

I kako si uspio ovo s programom?

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!


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







<sub>[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]</sub>

Aha tako, ali ja sam mislio da je ono što je meni falilo u programu tri retka.
Please, pomozi mi (ti inače voliš malo držati ljude u neizvjesnosti)
Ali please pomozi mi.

E puno hvala na pomoći da tebe nije bilo ovaj program nebi nikad završil(ni počel), hvala!!!