Das soll ein Vokabeltrainer werden...

[Kiasu]

Das soll ein Vokabeltrainer werden...
Die Eingabe von a, wrong, wrong2 und right funktioniert, aber die ausgabe nicht, es werden jeweils nur die anfangsbuchstaben ausgegeben. HILFE! hab keine Ahnung was daran falsch ist....danke:)!!!!!
-----------------------------------------------------------------------------
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;
-----------------------------------------

[sirius]

Wie sind denn die Variablen deklariert?

[Kiasu]

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

[sirius]

dann nimm mal besser string anstatt char

[Kiasu]

[DCC Fehler] Vokabeltrainer.dpr(293): E2001 Ordinaltyp erforderlich
[DCC Fehler] Vokabeltrainer.dpr(294): E2010 Inkompatible Typen: 'Integer' und 'Char'
[DCC Fehler] Vokabeltrainer.dpr(295): E2010 Inkompatible Typen: 'Integer' und 'Char'
[DCC Fehler] Vokabeltrainer.dpr(347): E2001 Ordinaltyp erforderlich
[DCC Fehler] Vokabeltrainer.dpr(348): E2010 Inkompatible Typen: 'Integer' und 'Char'
[DCC Fehler] Vokabeltrainer.dpr(349): E2010 Inkompatible Typen: 'Integer' und 'Char'

[Lun]

Kann es sein das du

"v_zahl" auch zu einem String gemacht hast?
ansonsten poste mal den source und verwende mal die Delphi Tags da oben, steht bei Delphi - code.

greetz Lun

[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.

[sirius]

Das v-Antwort muss für ein Case bei char bleiben. Mit dieser Variablen hattest du ja auch keine Probleme.

[Kiasu]

hey ich danke dir....habs auch gerade herausgefunden..aber auch nur durch zufall...danke trotzdem....have a nice day!