[ Marko Lukanec @ 27.01.2005. 14:40 ] @
Dali ima tko ideju kako započeti Milijanera???

[Ovu poruku je menjao Marko Lukanec dana 04.04.2005. u 19:33 GMT+1]
[ bancika @ 27.01.2005. 17:46 ] @
niko nema vremena bas ceo program da ti napise. ali evo ti generalne ideje:

recimo napravi textualnu datoteku pitanja gde ce biti recimo ovako:
red1:pitanje
red2:odgovor1 (tacan)
..
red5:odgovor4 (netacan)
red6:tezina(recimo na skali od 1 do 5)

zgodno bi bilo onda enkriptujes malo to. jos bolje ako radis u delphi onda napravi XML fajl.
kad pocinjes igru ucitaj sva pitanja u jedan niz slogova, recimo
array [1..maxint] of record pitanje, odg1, odg2, odg3,odg4: string[255], tezina: byte;
i onda biraj sa random pitanja (recimo u prva tri samo uzimaj one sa tezinom 1, itd)...ne bi bilo lose i da promesas odgovore da se ne bi ponavljao i redosled.

toliko za sada :)
[ Srki_82 @ 28.01.2005. 00:06 ] @
Pocni ovako:
Code:
type
  TPitanje = record
    Pitanje: String;
    Odgovor_1, Odgovor_2, Odgovor_3, Odgovor_4: String;
    Tezina: Integer;
  end;

const
  MaxPitanja = 200;
var
  Pitanja: array[0..MaxPitanja - 1] of TPitanje;

procedure UcitajPitanja;
var
  PitanjaFile: Text;
  Pitanje: Integer;
begin
  Pitanje := 0;
  Assign(PitanjaFile, 'Pitanja.txt');
  Reset(PitanjaFile);
  while (not Eof(PitanjaFile)) and (Pitanje < MaxPitanja) do
  begin
    ReadLn(PitanjeFile, Pitanja[Pitanje].Pitanje);
    ReadLn(PitanjeFile, Pitanja[Pitanje].Odgovor_1);
    ReadLn(PitanjeFile, Pitanja[Pitanje].Odgovor_2);
    ReadLn(PitanjeFile, Pitanja[Pitanje].Odgovor_3);
    ReadLn(PitanjeFile, Pitanja[Pitanje].Odgovor_4);
    ReadLn(PitanjeFile, Pitanja[Pitanje].Tezina);
    Inc(Pitanje);
  end;
end;
To bi ti bio neki pocetak... ucitavanje iz fajla i spremanje podataka. Mada tu bi jos trebalo zapamtiti tacan broj pitanja koja su ucitana, mozda ih sortirati po tezini da bi posle lakse birao lakse ili teze, itd...
[ milika @ 28.01.2005. 07:15 ] @
Hoces source za moj milioner...
sa www.milika.net
radjen je u delphi 7
hehe

pozdrav
[ Marko Lukanec @ 28.01.2005. 09:02 ] @
E puno hvala, ak neke nebum shvaćal budem te kasnije pital, ciao!!!