Suche Informatiker, der mein bei mir meine Fehler im programm beheben kann! Es ist ein Quiz in Pascal!?

... komplette Frage anzeigen

1 Antwort

Ja und wo ist der Quellkode? Wo ist der Fehler?

Kommentar von f7d95
11.12.2015, 06:16

Kann ich Ihre Email dann sende ich den Code...

0
Kommentar von f7d95
11.12.2015, 07:39

Warten Sie ich kopiere den heute Abend.

0
Kommentar von Koip21
11.12.2015, 19:54

program Quiz;uses crt;var Fragen : Array [1..10] of string; Antwort: Array [1..10] of string;Ergebnis : Array [1..2] of char;taste , halt : char;f : integer;procedure Titelblidschirm();begintaste :='a';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');(* writeln('druecken sie x um zu beenden'); *)end; if keypressed then taste:=readkey;repeatuntil keypressed if taste ='x' then halt; end;procedure Quizanleitung(); beginclrscr;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 beginQuiz;end; end;procedure Quiz(); 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;Fehler:=0 repeat until (taste :='o'); procedure Zufall(); begin randomize; random(10):='f'; end;repeatumtil keypressed;if keypressed then taste := readkey;if taste = Ergebnis thenbeginclrscr;textcolor(green);writeln('absolut korrekt');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 thenhalt := readkey;end,until halt := 'x';end;end. end;

0
Kommentar von cyberk1
11.12.2015, 20:14

srsly

1

Was möchtest Du wissen?