Das soll ein Vokabeltrainer werden...

[Kiasu]

Delphi-Quellcode:

program Vokabeltrainer;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var v_antwort:string;
    v_zahl:integer;
    right:string;
    wrong:string;
    wrong2:string;
    a:string;


        Procedure richtig;
    begin
    writeln('');
  writeln('');
  writeln( '                       '#218#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#191'');
  writeln('                       '#179'         richtig!!      '#179' ');
  writeln( '                       '#192#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#217'');
  readln;
end;

   Procedure falsch;
    begin
    writeln('');
  writeln('');
  writeln( '                       '#218#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#191'');
  writeln('                       '#179' falsch!!!  denk nach ! '#179' ');
  writeln( '                       '#192#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#217'');
  readln;
end;


    procedure abfrage;
begin
repeat

   writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('                 Geben Sie die richtige Zahl ein      Love=?');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
   writeln('                      1. Liebe   2.  Herz  3. Leben ');
     writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
   readln(v_zahl);

if v_zahl=1 then richtig else falsch;
 until(v_zahl=1);
end;

.
.
.
.
.
.
   
Procedure eingeben;

begin
writeln(' geben Sie ihr englisches Wort ein');
readln(a);
writeln(' geben Sie nun die richtige Antwort ein');
readln(right);
writeln(' geben Sie nun die erste falsche Antwort ein');
readln(wrong);
writeln( 'geben Sie nun die zweite falsche Antwort ein');
readln(wrong2);
end;

procedure abfrage6;
begin
repeat

   writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('                 Geben Sie die richtige Zahl ein'  ,   a   , '=?');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
   writeln('                      1.' ,     wrong  ,   '2.'  ,    wrong2  ,  '3.' ,  right);
     writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
  writeln('');
   readln(v_zahl);

if v_zahl=3 then richtig else falsch;
 until(v_zahl=3);
end;

    procedure Menue;
begin
writeln('             '#218#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#191'');
writeln('             '#179'                    Vokabeltrainer                   '#179'');
writeln('             '#179'                  *****************                  '#179'');
writeln('             '#179'                                                     '#179'');
writeln('             '#179'                                                     '#179'');
writeln('             '#179'              A = Vokabeln abfragen                  '#179'');
writeln('             '#179'                                                     '#179'');
writeln('             '#179'              H = Vokabeln hinzuf'#129'gen                '#179'');
writeln('             '#179'                                                     '#179'');
writeln('             '#179'              0 = Programm Beenden                   '#179'');
writeln('             '#179'                                                     '#179'');
writeln('             '#179'           Kennziffer und ENTER druecken...          '#179'');
writeln('             '#192#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#217'');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
readln(v_antwort);

case v_antwort of
'a': abfrage;
'h': eingeben;
else halt;
end;
end;


procedure Lizenz;
begin
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('      '#218#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#191'');
writeln('      '#179' Bei diesem Programm handelt es sich um ein Vokabeltrainer.        '#179'');
writeln('      '#179' Dieses Programm dient allein f'#129'r schulische Zwecke                '#179'');
writeln('      '#179'                                                                   '#179'');
writeln('      '#179'                  Alle Rechte bei xxxxxxxxxxxxxx                   '#179'');
writeln('      '#179' ------------------------------------------------------------------'#179'');
writeln('      '#179'                                                                   '#179'');
writeln('      '#179'       Sind Sie damit ein Einverstanden??? j: ja / n: nein         '#179'');
writeln('      '#179'                                                                   '#179'');
writeln('      '#179'            ...bitte ENTER nach der Eingabe dr'#129'cken...             '#179'   ');
writeln('      '#192#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#217'');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
readln(v_antwort);


case v_antwort of
'j': Menue;
'n': halt;
else halt;
end;
end;

begin
Lizenz;
abfrage2;
abfrage3;
abfrage4;
abfrage5;
abfrage6;


end.