Kviz u pascalu (program)

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.