izmenjeno 1 put, poslednji put Marko Lukanec 04.04.2005. u 19:33
Izmene poruke
- Marko Lukanec04.04.2005. u 19:33zapis iz teksta poruke
Dali ima tko ideju kako započeti Milijanera???
Turbo Pascal mala pomoć
Zaključano
Zakačeno
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 :)
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 :)
Potpis
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...
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;
Potpis
E puno hvala, ak neke nebum shvaćal budem te kasnije pital, ciao!!!