Program u Turbo Pascalu

[ Eugen Reisen @ 02.04.2005. 09:14 ] @

Oprostite, ako mislite da ovo nije u skladu s pravilnikom, ali ako imate malo volje i vremena, pomoć!!!
Bi mi tko mogao pomoći napraviti jedan program u Turbo Pascalu. Trebao bih napraviti jedan kvizic milijaner, ako bi mi tko htio pomoći ovo napraviti bio bih jako zahvalan. (kvizic sa više razina). U kviz ne moram staviti npr. Baš sve kako je u milijunašu. Naprimjer ne moram staviti u program baš kako je u milijaneru(kako u njemu postoji poziv u pomoć, prepoloviti tako da ostanu samo dva ….) već može biti i neka druga pomoć(da nebude komplicirano). Trebalo bi to izvesti da program ne bude previše kompliciran(ali da bude što bolji).
Please help!!!

_{[Ovu poruku je menjao Eugen Reisen dana 12.04.2005. u 09:46 GMT+1]}

[ wake2525 @ 02.04.2005. 16:48 ] @

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.....:)