Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Turbo Pascal mala pomoć

[es] :: Pascal / Delphi / Kylix :: Turbo Pascal mala pomoć

[ Pregleda: 2551 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Marko Lukanec

Član broj: 43176
Poruke: 57
*.cmu.carnet.hr.



Profil

icon Turbo Pascal mala pomoć27.01.2005. u 14:40 - pre 210 meseci
Dali ima tko ideju kako započeti Milijanera???

[Ovu poruku je menjao Marko Lukanec dana 04.04.2005. u 19:33 GMT+1]
 
Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
213.244.208.*

Sajt: www.diy-fever.com


+1 Profil

icon Re: Turbo Pascal mala pomoć27.01.2005. u 17:46 - pre 210 meseci
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 :)

Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Turbo Pascal mala pomoć28.01.2005. u 00:06 - pre 210 meseci
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...
 
Odgovor na temu

milika
Milika Delic
RD
NS

Član broj: 13221
Poruke: 120
217.26.75.*



Profil

icon Re: Turbo Pascal mala pomoć28.01.2005. u 07:15 - pre 210 meseci
Hoces source za moj milioner...
sa www.milika.net
radjen je u delphi 7
hehe

pozdrav
 
Odgovor na temu

Marko Lukanec

Član broj: 43176
Poruke: 57
*.cmu.carnet.hr.



Profil

icon Re: Turbo Pascal mala pomoć28.01.2005. u 09:02 - pre 210 meseci
E puno hvala, ak neke nebum shvaćal budem te kasnije pital, ciao!!!
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Turbo Pascal mala pomoć

[ Pregleda: 2551 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.