suche jmd der mir bei meinem Pascal Programm weiterhilft... es ist ein Quiz und ich habe paar Fehler.Hilft jmd?

... komplette Frage anzeigen

1 Antwort

program Quiz;
uses crt;
var Fragen : Array [1..10] of string;
    Antwort: Array [1..10] of string;
 Ergebnis : Array [1..10] of char; 
 taste , abbrechen , startbildschirm : char;
 Quizzufall , Fehler : integer                               
                                                    
            (*Titelbildschirm*)

begin
clrscr;
gotoXY(1,1);
textcolor(green);
writeln('      /----------\\            |           |         |       ----------     ');
writeln('     /            \\           |           |         |                /     ');
writeln('    /              \\          |           |         |               /      ');
writeln('   /                \\         |           |         |              /       ');
writeln('  |                  |        |           |         |             /        ');
writeln('  |                  |        |           |         |            /         ');
writeln('   \\                /         |           |         |           /          ');
writeln('    \\             \\/          |           |         |          /           ');
writeln('     \\            /\\          |           |         |         /            ');
writeln('      \\          /  \\         |           |         |        /             ');
writeln('       \\________/    \\        |___________|         |       /________      ');
writeln('');
gotoXY(1,20);
writeln('g: Start vom Quiz');
gotoXY(1,22);
writeln('a: Quizanleitung');

repeat

until keypressed;
if keypressed then startbildschirm := readkey;
if startbildschirm = 'g' then
 
begin

 Quiz;
 end;

if startbildschirm = 'a' then

  begin
 
Quizanleitung;
  end;
end;

procedure Quizanleitung();
            (*Quizanleitung und Infos*)
   begin

clrscr;

writeln('');

writeln('Das ist ein Quiz mit 10 Fragen aus verschiedenen ungeordneten Kategorien.');

writeln('');

writeln('Deine Fehler werden mitgezaehlt und angegeben, die Fragen werden zufaellig gemischt.');

writeln('');

writeln('Druecke L um das Quiz zu starten');

writeln('');

if keypressed then taste := readkey;

repeat
until
keypressed;

if taste='L'then

   begin
   Quiz;
   end;
  end;

procedure Quiz();             (*Quizhauptteil*)

Antwort bewerten Vielen Dank für Deine Bewertung
Kommentar von Koip21
13.12.2015, 18:05

program Quiz;
uses crt;
var Fragen : Array [1..10] of string;
    Antwort: Array [1..10] of string;
 Ergebnis : Array [1..10] of char; 
 taste , abbrechen , startbildschirm : char;
 Quizzufall , Fehler : integer                               
                                                    
            (*Titelbildschirm*)

begin
clrscr;
gotoXY(1,1);
textcolor(green);
writeln('      /----------\            |           |         |       ----------     ');
writeln('     /            \           |           |         |                /     ');
writeln('    /              \          |           |         |               /      ');
writeln('   /                \         |           |         |              /       ');
writeln('  |                  |        |           |         |             /        ');
writeln('  |                  |        |           |         |            /         ');
writeln('   \                /         |           |         |           /          ');
writeln('    \             \/          |           |         |          /           ');
writeln('     \            /\          |           |         |         /            ');
writeln('      \          /  \         |           |         |        /             ');
writeln('       \________/    \        |___________|         |       /________      ');
writeln('');
gotoXY(1,20);
writeln('g: Start vom Quiz');
gotoXY(1,22);
writeln('a: Quizanleitung');

repeat

until keypressed;
if keypressed then startbildschirm := readkey;
if startbildschirm = 'g' then
 
begin

 Quiz;
 end;

if startbildschirm = 'a' then

  begin
 
Quizanleitung;
  end;
end;

procedure Quizanleitung();
            (*Quizanleitung und Infos*)
   begin

clrscr;

writeln('');

writeln('Das ist ein Quiz mit 10 Fragen aus verschiedenen ungeordneten Kategorien.');

writeln('');

writeln('Deine Fehler werden mitgezaehlt und angegeben, die Fragen werden zufaellig gemischt.');

writeln('');

writeln('Druecke L um das Quiz zu starten');

writeln('');

if keypressed then taste := readkey;

repeat
until
keypressed;

if taste='L'then

   begin
   Quiz;
   end;
  end;

procedure Quiz();             (*Quizhauptteil*)

   begin
   textcolor(yellow)
Fragen[1] := ('Wer ist Angela Merkel?');
Ergebnis:=[1] := '1';
Antwort[1]:=('1 Sie ist Bundeskanzerin 2 Sie ist die Vizepraesidentin von Amerika 3 Praesidentin vom FC Bayern Munich 4 Sie baute 1945 die Atombombe');
Fragen[2]:=('Wer war Heinrich Himmler? ');
Ergebnis:=[2] :='4';
Antwort[]:=('1 Er war Propaganda Minister des 3ten Reiches 2 Er war Fuhrer der SA 3 Er war der Aussenminister der USA 4 Er war Führer der SS');
textcolor(yellow)
Fragen[3]:=('Welcher Monat hat 28 Tage ?');
Ergebnis:=[3] :='2';
Antwort[3]:=('1 Februar 2 Jeder 3 Dezember 4 Keiner ');
textcolor(yellow)
Fragen[4]:=('Warum wurde die Area 51 gebaut?');
Ergebnis:=[4] :='1';
Antwort[4]:=(' 1 Sie wurde zu Testzwecken der U2 gebaut 2 Sie wurde zu Forschung der Aliens gebaut 3 Sie ist ein sicherer Platz fuer reiche Personen im Fall eines Krieges sicher sind 4 sie wurde zum bau der Atomwaffen gebaut');
textcolor(yellow)
Fragen[5]:=('Wer ist der erste Praesident der USA gewesen');
Ergebnis:=[5] :='3';
Antwort[5]:=('1 Abraham Lincoln 2 Franklin D Roosevelt 3 George Washington 4 John F Kennedy');
textcolor(yellow)
Fragen[6]:=('Wer gewann das Finale Dahoam im Jahre 2011?');
Ergebnis:=[6] :='2';
Antwort[6]:=('1 Fc Bayern Munich 2 Fc Chelsea 3 Arsenal London 4 Tottenham ');
textcolor(yellow)
Fragen[7]:=('Wieviele Rekorde stellte Robert Lewandowski in dieser Saison auf?');
Ergebnis:=[7] :='3';
Antwort[7]:=(' 1 Er stellte keinen Rekord auf 2 Er stellte drei Rekorde auf 3 Er stellte vier Rekorde auf 4 Er stellte einen Rekord auf');
textcolor(yellow)
Fragen[8]:=('Wann starb Adolf Hitler?');
Ergebnis:=[8] :='2';
Antwort[8]:=(' 1 Er starb 1994 2 Er starb 1945 3 Er starb 1933 4 Er starb 19 ');
textcolor(yellow)
Fragen[9]:=('Wo wird Porsche hergestellt?');
Ergebnis:=[9] :='1';
Antwort[9]:=(' 1 In Stuttgart 2 In Chicago 3 In Boston 4 In Porsche ');
Fragen[10]:=('Was ist der tiefste Punkt der Erde?');
Ergebnis:=[10] :='1';
Antwort[10]:=(' 1 Der Marianengraben 2 Deutschland 3 Die Mponeg Goldmine 4 Der Thrihnukagigur Vulkan');

Fehler:=0;

   repeat
   randomize;               (*Zufaellige Fragen werden ausgewaehlt*)
   Zufall := random(10)+1;
  

repeat
until keypressed;
if keypressed then taste := readkey;
if taste = Ergebnis
then
begin
clrscr;
textcolor(green);
writeln('absolut korrekt');

writeln('x druecken zum beenden weiterspielen mit einem beliebigem Tastendruck');

repeat

until keypressed
 
if keypressed then abbrechen:= readkey;

end;
else
 begin
 fehler := fehler + 1 ;

clrscr;
textcolor(red);
writeln('loser');
writeln('druecke x zum beenden und eine beliebige Taste zum fortfahren');
repeat
until keypressed;
if keypressed then
abbrechen := readkey;
end;
until abbrechen = 'x';
end;
end.
 

0

Was möchtest Du wissen?