[es] - tražim pomoć u izradi kviz programa u T.P.7

peromalosutra
Ivan Rajkovic
Software engineer
Luxoft
Berlin

Član broj: 54774
Poruke: 876
*.dialup.blic.net.

+148 Profil

Re: tražim pomoć u izradi kviz programa u T.P.7

^{08.04.2005. u 20:54 - pre 231 meseci}

ovo sam na brzinu kopirao sa moje igre (koju mozete vidjeti na sajtu), inace to je bila procedura ali sam ju na brzinu prepravio, pa ako ima gresaka...
Program ne nudi da i ne kao odgovore ali to ti nije problem prepraviti.

Program kviz;
uses wincrt;
Var odgovor,tacanodg:string;
odabir,brtacnih,brnetacnih:integer;
kraj:boolean;

Procedure provjera;
Begin
Readln (odgovor);
If odgovor=tacanodg
then
begin
writeln ('Tacan odgovor.');
brtacnih:=brtacnih+1;
end
else
Begin
Writeln ('Pogresan odgovor, tacan odgovor je ',tacanodg,'.');
brnetacnih:=brnetacnih+1;
kraj:=true;
end;
readln;
end;

Procedure pitanje1;
Begin
Writeln ('Kako se zove programski jezik u kome je ova igra napisana? ');
tacanodg:='paskal';
provjera;
end;

Procedure pitanje2;
Begin
Writeln ('Koji tip varijabli ima samo cjelobrojne vrijednosti?');
tacanodg:=('integer');
provjera;
End;

Procedure pitanje3;
Begin
Writeln ('DIV u integeru oznacava:');
Writeln ('1) Podjeli dva broja a ostatak zanemari.');
Writeln ('2) Podjeli dva broja a ispisi ostatak.');
Write ('1/2?');
tacanodg:=('1');
provjera;
End;

Procedure pitanje4;
Begin
Writeln ('Koji tip varijabli korisimo za rad sa realnim brojevima?');
Tacanodg:='real';
provjera;
end;

Procedure pitanje5;
Begin
Writeln ('Koju naredbu korisimo za korjenovanje izraza?');
tacanodg:=('sqrt');
provjera;
end;

Procedure pitanje6;
Begin
Writeln ('Koji tip varijabli ima samo 2 stanja (TRUE i FALSE)?');
tacanodg:='boolean';
provjera;
end;

Procedure pitanje7;
Begin
Writeln ('Varijablom tipa CHAR mozemo da zapamtimo svaki unos sa tastature');
writeln ('u duzini od jednog znaka.');
writeln ('1) Da.');
writeln ('2) Ne.');
tacanodg:='1';
provjera;
end;

Procedure pitanje8;
Begin
Writeln ('Da li u INTEGERU mozemo da koristimo znak za djeljenje (/)?');
Writeln ('1) Da.');
Writeln ('2) Ne.');
Tacanodg:='2';
provjera;
End;

Procedure pitanje9;
Begin
Writeln ('Program napisan u Paskalu se:');
writeln ('1) Kompajlira.');
writeln ('2) Interpretira.');
tacanodg:='1';
provjera;
End;

Procedure pitanje10;
Begin
Writeln ('U izrazu s:=1000*1000, varijabla "s" mora biti iz skupa:');
Writeln ('1) Integer.');
writeln ('2) Real.');
tacanodg:='2';
provjera;
End;

Procedure pitanje11;
begin
writeln ('Svaka procedure moze da zamjeni funkciju.');
Writeln ('1) Da.');
Writeln ('2) Ne.');
tacanodg:='1';
provjera;
end;

Procedure pitanje12;
begin
writeln ('Funkcija moze sadrzavati naredbu "write" i "raed"?');
Writeln ('1) Da.');
Writeln ('2) Ne.');
tacanodg:='2';
provjera;
end;

Begin

repeat;
clrscr;
Randomize;
odabir:=random (13);
case odabir of
1: pitanje1;
2: pitanje2;
3: pitanje3;
4: pitanje4;
5: pitanje5;
6: pitanje6;
7: pitanje7;
8: pitanje8;
9: pitanje9;
10:pitanje10;
11:pitanje11;
12:pitanje12;
end;
until kraj=true;

end.

Odgovor na temu