Evo potrudio sam se da ti pomognem:
program milijunas;
uses crt;
label 0,1,2;
var izbor,izbor2,izbor3,a,b:char;
begin
clrscr;
0:writeln('Odaberite stupanj kviza (1)-laksi (2)-tezi');
readln(a);
if a='1' then goto 1;
if a='2' then goto 2;
1:writeln('Odabrali ste laksi stupanj...');
writeln('Prvo pitanje:Koliko tjedan ima dana?');
writeln('a)2 b)7 c)100 d)pomoc');
readln(izbor);
case izbor of
'A' , 'a' : begin
writeln('Krivi odgovor');
readln;
end;
'B' , 'b' : begin
writeln('Tocan odgovor');
readln;
end;
'C' , 'c' : begin
writeln('Krivi odgovor');
readln;
end;
end;
if izbor ='d' then writeln('Pomoc:plati 300 eura pa cu ti rec');
writeln('Drugo pitanje:Koji je glavni grad Francuske?');
writeln('a)Zagreb b)Pariz c)Berlin');
readln(izbor2);
case izbor2 of
'A' , 'a' : begin
writeln('Krivi odgovor');
end;
'B' , 'b' : begin
writeln('Tocan odgovor');
end;
'C' , 'c' : begin
writeln('Krivi odgovor');
end;
end;
readln;
writeln('Trece pitanje: Koliko dan ima sati');
writeln('a)12 b)29 c)24');
readln(izbor3);
case izbor3 of
'A' , 'a' : begin
writeln('Krivi odgovor');
end;
'B' , 'b' : begin
writeln('Krivi odgovor');
end;
'C' , 'c' : begin
writeln('Tocan odgovor');
end;
end;
readln;
writeln('Zelite li ponoviti kviz (1)-da (2)-ne');
readln(b);
if b='1' then goto 1;
if b='2' then goto 0;
2:writeln('Odabrali ste tezi stupanj...');
writeln('Prvo pitanje:Koliko mjesec ima dana?');
writeln('a)2 b)30 c)100 d)pomoc');
readln(izbor);
case izbor of
'A' , 'a' : begin
writeln('Krivi odgovor');
readln;
end;
'B' , 'b' : begin
writeln('Tocan odgovor');
readln;
end;
'C' , 'c' : begin
writeln('Krivi odgovor');
readln;
end;
end;
if izbor ='d' then writeln('Pomoc:plati 600 eura pa cu ti rec');
writeln('Drugo pitanje:Koji je glavni grad Njemacke?');
writeln('a)Zagreb b)Berlin c)Tokio');
readln(izbor2);
case izbor2 of
'A' , 'a' : begin
writeln('Krivi odgovor');
end;
'B' , 'b' : begin
writeln('Tocan odgovor');
end;
'C' , 'c' : begin
writeln('Krivi odgovor');
end;
end;
readln;
writeln('Trece pitanje: 2 sata ima sati');
writeln('a)1 b)1,5 c)2');
readln(izbor3);
case izbor3 of
'A' , 'a' : begin
writeln('Krivi odgovor');
end;
'B' , 'b' : begin
writeln('Krivi odgovor');
end;
'C' , 'c' : begin
writeln('Tocan odgovor');
end;
end;
readln;
writeln('Zelite li ponoviti kviz (1)-da (2)-ne');
readln(b);
if b='1' then goto 2;
if b='2' then goto 0;
end.
Ako je ti je to dobro onda OK, a ako hoces grafike onda pitaj nekog drugog.....:)
You may stop me, but you can't stop us all..