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

Pomoć, dorada programa u Turbo Pascalu!!!

[es] :: Pascal / Delphi / Kylix :: Pomoć, dorada programa u Turbo Pascalu!!!

Strane: 1 2

[ Pregleda: 4846 | Odgovora: 28 ] > 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 Re: Pomoć, dorada programa u Turbo Pascalu!!!15.04.2005. u 01:20 - pre 214 meseci
Please, pomozi, mi please.
 
Odgovor na temu

Marko Lukanec

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



Profil

icon Re: Pomoć, dorada programa u Turbo Pascalu!!!15.04.2005. u 01:30 - pre 214 meseci
[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.
 
Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.



+1 Profil

icon Re: Pomoć, dorada programa u Turbo Pascalu!!!15.04.2005. u 01:33 - pre 214 meseci
Ajde obrisi prethodnu poruku. Nije to to.
Zadatak ti je resen. Izmena je samo 2-3 reda.
 
Odgovor na temu

Marko Lukanec

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



Profil

icon Re: Pomoć, dorada programa u Turbo Pascalu!!!15.04.2005. u 01:34 - pre 214 meseci
Zbilja ne shvaćam, toyo please pomozi mi da uspijem nekak srediti ono sa milijunašom
 
Odgovor na temu

Marko Lukanec

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



Profil

icon Re: Pomoć, dorada programa u Turbo Pascalu!!!15.04.2005. u 01:37 - pre 214 meseci
E toyo puno hvala a kako da obrišem ovu kad nema izmjeni/obriši
 
Odgovor na temu

Marko Lukanec

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



Profil

icon Re: Pomoć, dorada programa u Turbo Pascalu!!!15.04.2005. u 01:41 - pre 214 meseci
I kako si uspio ovo s programom?
 
Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.



+1 Profil

icon Re: Pomoć, dorada programa u Turbo Pascalu!!!15.04.2005. u 01:41 - pre 214 meseci
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!
Citat:
Writeln('Autor: Marko Lukanec, ');


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

repeat
      pit := random(i)+1;
until not (pit  in  bilo);
bilo := bilo + [pit];
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.







[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]
 
Odgovor na temu

Marko Lukanec

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



Profil

icon Re: Pomoć, dorada programa u Turbo Pascalu!!!15.04.2005. u 01:45 - pre 214 meseci
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.
 
Odgovor na temu

Marko Lukanec

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



Profil

icon Re: Pomoć, dorada programa u Turbo Pascalu!!!15.04.2005. u 01:51 - pre 214 meseci
E puno hvala na pomoći da tebe nije bilo ovaj program nebi nikad završil(ni počel), hvala!!!
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Pomoć, dorada programa u Turbo Pascalu!!!

Strane: 1 2

[ Pregleda: 4846 | Odgovora: 28 ] > FB > Twit

Postavi temu Odgovori

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