[ _Patrisha_ @ 24.05.2006. 20:52 ] @
Trebam pomoć oko jednog zadatka (programa) u Pascalu.
Treba napraviti program tj. program KVIZ.
Znači program treba sadržavati pitanja u mom slučaju treba ih biti 15,
Nakon svakog točnog odgovora treba se ispisati poruka TOČNO ili ako odgovor nije točan onda NETOČNO!
Pitanja sadržavaju slova a b c d, znači pitanje je
Kako se zove naš planet?
a) Zemlja
b) Mjesec
c) Sunce

Naravno točan odgovor je pod A, i sad ako korisnik unese točan odgovor ispiše mu se poruka TOČNO i ide na sljedeće pitanje,
a ako odgovor nije točan onda ispisuje se poruka NETOČNO i ispiše se TOČAN ODGOVOR JE POD SLOVOM A i vrača se na početak.

i poslje svakog točnog odgovora nek zasvira neki zvuk isto tako i kod netočnog odgovora ali ne isti zvukovi!


Ako je moguće da mi tko napravi to, pitanja može staviti svih 15 istih npr. ovo koje sama ja navela s planetom ja ću sama onda promjeniti pitanja i odgovore, glavno mi je da mi neko napravi da radi tako kako sam opisala!!

Može tko to napraviti?
[ IvanBeograd @ 24.05.2006. 21:07 ] @
Pa probaj sam da namestis,pogledaj ovo :

http://www.elitesecurity.org/tema/108342/0#704163

pozz
[ Miloš Baić @ 25.05.2006. 02:35 ] @
Citat:
npr. ovo koje sama ja navela s planetom ja ću sama onda promjeniti ...

Mislim da je u pitanju zenska osoba?!

Ako te mrzi traziti evo ti isti primer, peromalosutra, upload-ovan pa se posluzi...
Pozdrav...

P.S. radjeno u Delphi - u...
[ milika @ 25.05.2006. 02:57 ] @
Zao mi je sto ovakav stav imamo prema ovakvim zahtevima, stvarno zao.
Govori koliko smo daleko otisli u evoluciji svesti i uma.... heh
[ ntojzan @ 25.05.2006. 07:37 ] @
A meni bi trebalo da neko napise program tipa Adobe Photoshop.

Ne mora da ima bas sve filtere, jedno 90% je dovoljno... :-)
[ IvanBeograd @ 25.05.2006. 13:02 ] @
U da,ja se izvinjavam,nisam procitao nik,i tekst kako pazljivo!
Zbog onog "Može tko to napraviti?" mrzilo me citati.
Probaj ga namestiti sama,sad imas dosta informacija !
Pozzz
[ qwertzuiopasdfghjkl @ 26.05.2006. 16:20 ] @
Aj bilo bi vrijeme da i ja malo pomognem.. al kad ne znam dal je _Patrisha_ uspjela to napravit.. ako nije deda qwertz ce joj iskucat cijeli kod

[ _Patrisha_ @ 28.05.2006. 11:21 ] @
Nisam ništ još uspjela...
E hvala loshmiscg ali meni treba kviz s 3 ponuđena odgovora i a,b,c ili 1,2,3 pa da korisnik unese broj ili slovo ispred točnog odgovora... u Tvojem kvizu na nekim pitanjima treba upisavati cijelu riječ za odgovor.
Ajde probaj mi srediti to ako možeš!
I treba mi .pas file koji je rađen u pascalu a ne u delphi-u


evo nešto sam našla ali nešto ne štima u tome programu možete li mi ispraviti grešku???
i ovdje onda mi poslati ispravan program

ovdje se nalazi taj program www.pcmajstori.net/kviz_pascal.txt
[ qwertzuiopasdfghjkl @ 28.05.2006. 12:16 ] @
Evo ga:

Code:

PROGRAM KVIZ;
USES Crt;
VAR N:integer;
    odg:char;
BEGIN
ClrScr;
TEXTCOLOR (red);
TEXTBACKGROUND (blue);
TEXTCOLOR(yellow);
WRITELN;
WRITELN ('     Molim Vas da odgovore unosite malim slovom!! ');
WRITELN;
WRITELN ('     Ovaj kviz iz biologije sastoji se od 20 pitanja.');
WRITELN ('     Svaki tocan odgovor donosi vam 1 bod, a svaki netocan oduzima jedan bod!');
WRITELN ('     Sretno!');
WRITELN;
WRITELN ('     1. Kako se zove tekucina koja obavija mozak i stiti ga od trenja? ');
WRITELN;
WRITELN ('     a) voda ');
WRITELN ('     b) krv ');
WRITELN ('     c) likvor ');
odg:=readkey;
WRITELN;
N:=0;
IF odg='c' THEN WRITELN ('  BRAVO!') ELSE WRITELN ('  POGRESNO!');
IF odg='c' THEN N:=n+1 ELSE N:=n-1;
WRITELN;
WRITELN (N);

WRITELN;
WRITELN ('     2. U zmije ne spada? ');
WRITELN;
WRITELN ('     a) ridovka ');
WRITELN ('     b) sljepic ');
WRITELN ('     c) crvenkrpica ');
odg:=readkey;
WRITELN;
IF odg='b' THEN WRITELN ('  BRAVO!') ELSE WRITELN ('  POGRESNO!');
IF odg='b' THEN N:=N+1 ELSE N:=n-1;
WRITELN;
WRITELN (N);

WRITELN;
WRITELN ('     3. Kako se jos zovu bijela krvana zrnca u krvi? ');
WRITELN;
WRITELN ('     a) eritrociti ');
WRITELN ('     b) leukociti ');
WRITELN ('     c) trombociti ');
odg:=readkey;
WRITELN;
IF odg='b' THEN WRITELN ('  BRAVO!') ELSE WRITELN ('  POGRESNO!');
IF odg='b' THEN N:=n+1 ELSE N:=n-1;
WRITELN;
WRITELN (N);

WRITELN;
WRITELN ('     4. Sto je membrana tympani? ');
WRITELN;
WRITELN ('     a) bubnjic ');
WRITELN ('     b) jezik ');
WRITELN ('     c) leca ');
odg:=readkey;
WRITELN;
IF odg='a' THEN WRITELN ('  BRAVO!') ELSE WRITELN ('  POGRESNO!');
IF odg='a' THEN N:=n+1 ELSE N:=n-1;
WRITELN;
WRITELN (N);

WRITELN;
WRITELN ('     5. Koju bolest izaziva Triponema pallidum? ');
WRITELN;
WRITELN ('     a) gripu ');
WRITELN ('     b) gonoreju ');
WRITELN ('     c) sifilis ');
odg:=readkey;
WRITELN;
IF odg='c' THEN WRITELN ('  BRAVO!') ELSE WRITELN ('  POGRESNO!');
IF odg='c' THEN N:=n+1 ELSE N:=n-1;
WRITELN;
WRITELN (N);

WRITELN;
WRITELN ('     6. Koja bolest nastaje zbog pomanjkanja vitamina D u kostima? ');
WRITELN;
WRITELN ('     a) rahitis ');
WRITELN ('     b) encefalitis ');
WRITELN ('     c) hipotireoza ');
odg:=readkey;
WRITELN;
IF odg='a' THEN WRITELN ('  BRAVO!') ELSE WRITELN ('  POGRESNO!');
IF odg='a' THEN N:=n+1 ELSE N:=n-1;
WRITELN;
WRITELN (N);

WRITELN;
WRITELN ('     7. Od koliko klijetki se sastoji srce covjeka? ');
WRITELN;
WRITELN ('     a) 4 ');
WRITELN ('     b) 2 ');
WRITELN ('     c) 1 ');
odg:=readkey;
WRITELN;
IF odg='b' THEN WRITELN ('  BRAVO!') ELSE WRITELN ('  POGRESNO!');
IF odg='b' THEN N:=n+1 ELSE N:=n-1;
WRITELN;
WRITELN (N);

WRITELN;
WRITELN ('     8. Koja od navedenih gljiva sadrzi stanicne otrove? ');
WRITELN;
WRITELN ('     a) zelena pupavka ');
WRITELN ('     b) muhara ');
WRITELN ('     c) tartuf ');
odg:=readkey;
WRITELN;
IF odg='a' THEN WRITELN ('  BRAVO!') ELSE WRITELN ('  POGRESNO!');
IF odg='a' THEN N:=n+1 ELSE N:=n-1;
WRITELN;
WRITELN (N);

WRITELN;
WRITELN ('     9. Sto je to placenta? ');
WRITELN;
WRITELN ('     a) zeludac ');
WRITELN ('     b) pupcana vrpca ');
WRITELN ('     c) posteljica ');
odg:=readkey;
WRITELN;
IF odg='c' THEN WRITELN ('  BRAVO!') ELSE WRITELN ('  POGRESNO!');
IF odg='c' THEN N:=n+1 ELSE N:=n-1;
WRITELN (N);

WRITELN;
WRITELN ('     10. Koliko dugo u prosjeku traje trudnoca? ');
WRITELN;
WRITELN ('     a) 150 dana ');
WRITELN ('     b) 40 tjedana ');
WRITELN ('     c) 6 mjeseci ');
odg:=readkey;
WRITELN;
IF odg='b' THEN WRITELN ('  BRAVO!') ELSE WRITELN ('  POGRESNO!');
IF odg='b' THEN N:=n+1 ELSE N:=n-1;
WRITELN;
WRITELN (N);

WRITELN;
WRITELN ('     11. Zivcana stanica, neuron, sastoji se od... ');
WRITELN;
WRITELN ('     a) aksona, citoplazme i dendrita ');
WRITELN ('     b) dendrita, vakuole i tijela ');
WRITELN ('     c) tijela, aksona i dendrita ');
odg:=readkey;
WRITELN;
IF odg='c' THEN WRITELN ('  BRAVO!') ELSE WRITELN ('  POGRESNO!');
IF odg='c' THEN N:=n+1 ELSE N:=n-1;
WRITELN (N);

WRITELN;
WRITELN ('     12. Vrste misica su... ');
WRITELN;
WRITELN ('     a) probavni, srcani i krvozilni ');
WRITELN ('     b) glatki, srcani i poprecno-prugasti ');
WRITELN ('     c) glatki, prugasti i poprecni ');
odg:=readkey;
WRITELN;
IF odg='b' THEN WRITELN ('  BRAVO!') ELSE WRITELN ('  POGRESNO!');
IF odg='b' THEN N:=n+1 ELSE N:=n-1;
WRITELN (N);

WRITELN;
WRITELN ('     13. Monosaharidi se dijele na... ');
WRITELN;
WRITELN ('     a) celulozu, glikogen i glukozu ');
WRITELN ('     b) saharozu, skrob i maltozu ');
WRITELN ('     c) glukozu, fruktozu i galaktozu ');
odg:=readkey;
WRITELN;
IF odg='c' THEN WRITELN ('BRAVO!') ELSE WRITELN (' POGRESNO!');
IF odg='c' THEN N:=n+1 ELSE N:=n-1;
WRITELN;
WRITELN (N);

WRITELN;
WRITELN ('     14. Bolest uvjetovana klimom zove se... ');
WRITELN;
WRITELN ('     a) endemija ');
WRITELN ('     b) epidemija ');
WRITELN ('     c) pandemija ');
odg:=readkey;
WRITELN;
IF odg='a' THEN WRITELN ('  BRAVO!') ELSE WRITELN ('  POGRESNO!');
IF odg='a' THEN N:=n+1 ELSE N:=n-1;
WRITELN;
WRITELN (N);

WRITELN;
WRITELN ('     15. Latinski naziv za trešnju… ');
WRITELN;
WRITELN ('    a) Prunus avium ');
WRITELN ('    b) Prunus armeniaca ');
WRITELN ('    c) Prunus cerasus ');
odg:=readkey;
WRITELN;
IF odg='a' THEN WRITELN ('  BRAVO!') ELSE WRITELN ('  POGRESNO!');
IF odg='a' THEN N:=n+1 ELSE N:=n-1;
WRITELN;
WRITELN (N);

WRITELN;
WRITELN ('     16. Slabi krvni tlak je... ');
WRITELN;
WRITELN ('     a) hipertenzija ');
WRITELN ('     b) hipotenzija ');
WRITELN ('     c) angina pektoris ');
odg:=readkey;
WRITELN;
IF odg='b' THEN WRITELN ('  BRAVO!') ELSE WRITELN ('  POGRESNO!');
IF odg='b' THEN N:=n+1 ELSE N:=n-1;
WRITELN;
WRITELN (N);

WRITELN;
WRITELN ('     17. Koliko prstiju ima domaca kokos?');
WRITELN;
WRITELN ('     a) 3 ');
WRITELN ('     b) 2 ');
WRITELN ('     c) 4 ');
odg:=readkey;
WRITELN;
IF odg='c' THEN WRITELN ('  BRAVO!') ELSE WRITELN (  ' POGRESNO!');
IF odg='c' THEN N:=n+1 ELSE N:=n-1;
WRITELN;
WRITELN (N);

WRITELN;
WRITELN ('     18. Hemoragije su... ');
WRITELN;
WRITELN ('     a) alergije ');
WRITELN ('     b) krvarenja ');
WRITELN ('     c) hemeroidi ');
odg:=readkey;
WRITELN;
IF odg='b' THEN WRITELN ('  BRAVO!') ELSE WRITELN ('  POGRESNO!');
IF odg='b' THEN N:=n+1 ELSE N:=n-1;
WRITELN;
WRITELN (n);

WRITELN ('     19. Pojava kada su svi uvjeti u organizmu jednaki zove se... ');
WRITELN ('     a) hematokrit ');
WRITELN ('     b) homeostaza ');
WRITELN ('     c) aglutinogen ');
odg:=readkey;
WRITELN;
IF odg='b' THEN WRITELN ('  BRAVO!') ELSE WRITELN ('  POGRESNO!');
IF odg='b' THEN N:=n+1 ELSE N:=n-1;
WRITELN;
WRITELN (N);

WRITELN;
WRITELN ('     20. Pri porodaju mozak zene luci hormon koji je slican morfiju... ');
WRITELN;
WRITELN ('     a) pufer ');
WRITELN ('     b) LSD ');
WRITELN ('     c) endorfin ');
odg:=readkey;
WRITELN;
IF odg='c' THEN WRITELN ('  BRAVO!') ELSE WRITELN ('  POGRESNO!');
IF odg='c' THEN N:=n+1 ELSE N:=n-1;
WRITELN;
WRITELN (N);
READLN;
WRITELN;
WRITELN ('     Od mogucih 20 bodova, Vi ste postigli:     ');
WRITELN (n);
END.


E, aj dodji patrisha nesto na irc.krstarica.com : 6667 na kanal #programming
[ _Patrisha_ @ 28.05.2006. 14:39 ] @
e hvala vam..

preuredila sam si malo ono što je loshmiscg napravio e sad imam još jedno pitanje kak da napravim da na kraju kad korisnik unese netočan odgovor onda da pita hoćete li igrati ponovno y/n
na njegvom primjeru je da kad se odgovori krivo pritisne se enter i igra je završena!
[ qwertzuiopasdfghjkl @ 28.05.2006. 16:58 ] @
Mozes postavit da ti pitanje br 1 pocinje na labelu 1 i onda kad korisnik krivo odgovori na bilo kojem odgovoru poziva proceduru koja ga pita dal zeli igrat ispocetka, ako zeli opet skaces na label 1 il ako ne onda izlazis iz programa...


Dodji na irc.krstarica.com #programming jer ovdje ljudi ne vole pitanja od domacim zadacima ukoliko nisi nesto sam/a napravio/la ..
[ _Patrisha_ @ 28.05.2006. 18:45 ] @
Ajd molim vas ako mozete sloziti to i bez onog randomize

qwertzuiopasdfghjkl
nemogu nemam mirc
(P.S. žensko sam biće)
[ qwertzuiopasdfghjkl @ 28.05.2006. 18:49 ] @
onda dodji ako zelis na iskonov chat www.iskon.hr/chat/ i imaj neki nick slican patrishi..