Zadatak u Turbo Pascalu, pomoć!!!

Ne bi trebalo da mozhesh ceo record da vracash kao vrednost funkcije...
Probaj da vracash pokazivach na record ili redni broj pitanja koje je izabrano [tj. integer ili longint].
Tezhinu pitanja mozhesh da realizujesh tako shto cesh u fajlu sa pitanjima da ih klasifikujesh kao pitanja za 100din pitanja za 200din itd. pa da ishchitavash neko od onih koje odgovara trenutnom budzhetu...
E sad, da li je vec izvucheno... mozhesh da napravish niz integera ili longintova od [maxPitanja] elemenata u koji cesh da smeshtash vec izabrana pitanja, pa pri biranju novog da pozivash funkciju koja ce da radi sa tim nizom.

Potpis

random...

Bi mogao tko da ovo ispravi jer vec sam sve pokusao i nikako da mi proradi:

Function IzaberiPitanje(Rb: integer): TPitanje;
begin
Result := Pitanja[random(MaxBrojPitanja)];
{Prilikom biranja pitanja trebalo bi dodati jos i proveru
da li je to pitanje vec izvuceno i na tezinu pitanja
u odnosu na redni broj... bilo bi glupo da prvo pitanje
bude teze od zadnjeg, zar ne?}

Pa rekao ti je covek, turbo pascal ne podrzava vracanje sloga kao rezultat funkcije. Uzmi free pascal ako bas zelis to da radis.

Potpis

Don’t do drugs, sleep deprivation is better.

Upsss... zaboravih da pascal ne moze da vraca record... ili koristi pointer na TPitanje ili vrati index za pitanje pa rati sa Pitanja promenljivom u glavnom delu.

Potpis

Play Store

Nisam siguran kako se beshe u pascalu nizovi prenose kao parametri [po adresi, naravno, ali kako to napisati]:

Potpis

random...

Dali bi možda tko mogao nekako ispraviti greške u programu milijaner???
Ako tko zna bio bih mu jako zahvalan!!!?

A kako bi onda ja trebao napisati ovu funkciju da bi radila:

Function IzaberiPitanje(Rb: integer): TPitanje;
begin
Result := Pitanja[random(MaxBrojPitanja)];
End;

Probaj sam da ispravis funkciju da vrati broj pitanja koju je udabrala umesto samog pitanja. Treba samo rezultat da promenis u integer i da vratis index... sasvim jednostavno. Kad to ispravis recicu ti sta dalje.

Potpis

Play Store

Možda ovako???

Function IzaberiPitanje(Result,Rb: integer): integer;
begin
Result := Pitanja[random(MaxBrojPitanja)];
End;
Ne verujem.
Jednostavno ne znam kako bi to postigao.

Pa... tebi ce jedino pomoci citanje neke knjige o osnovama Pascala jer izgleda ne znas... pa... nista... a trazis da ti neko drugi uradi domaci zadatak ili sta vec sto nije po pravilniku ES-a.

Potpis

Play Store

Kako misliš da promenim index???

Kada napises Podaci[X] promenljiva Podaci je niz, a promenljiva X je index

Potpis

Play Store

Funkcije nikako ne mogu da shvatim, učim pascal oko 4mj a već radimo ovakve stvari.

Ajde ja cu da ti postujem za 1 sat. (posto vidim da ti to nece ici a ja nemam sta da radim)

Skidam TP, pa cu da pocnem, samo nemoj vise ovo da radis. Ti bi bas hteo sve na tacni. Znam da je tesko, ali moras da se potrudis.

Kako bi trebalo definirati ovu funkciju?
I kompajler mi neprestno javlja grešku u tome dijelu, a result kao da ne prepoznaje.

Hvala srkiju, toyi i svakome koji mi se trude pomoći.
Znam da se to za vas sve čini kao igra, ja zbilja u to ulažem mnogo napora i uistinu se trudim da shvatim taj Pascal.

To ti je ta funkcija, ali sad glavni deo nece raditi pa ces morati da u promenljivu Pitanje upacis Pitanja[IzaberiPitanje]. To ces uratidi sa Move komandom.

Sad jos samo stavi to na pravo mesto i probaj da pokrenes program.

Potpis

Play Store

Ali program ne prepoznaje result i piše unknown identifier.

Cudno... zar TP 7 ne podrzava Result promenljivu u funkcijama!? Ako je to problem samo umesto Result napisi ime funkcije... dakle:

Potpis

Play Store

Nece ga ni nikada prepoznati. Moras da stavis umesto result:=, izaberipitanje:=

Cekaj kad dodjes do ucitavanja pitanja iz fajla. Fajl je tekstualni a treba da ucitas tacan odgovor u byte :))