Problem mit Pascal

[Mechanius]

Habs in der Suchfunktion probiert aber nichts entsprechendes gefunden. Also ich würde gerne ein Vokabelabfrageprogie erstellen und hab seit einiger Zeit mit tuts für Pascal bedschäftigt nun habe ich aber eine frage:
Kann man für pascal ein tool erstellen das einen bestimmten Teil des Quellcodes immer wieder einfügt zum Beispiel:
REPEAT
Write ('Übersetzen sie "*" ins Englische! ');
ReadLn (Eingabe);
UNTIL Eingabe = '*';
Write ('Richtig!');
Readkey;
ClrScr;
Für * möchte ich später verschiedene englische und deutsche Wörter einfügen.
Ich weis ja nicht wäre es möglich diese Wörte aus einer Liste z.B. aus einer Exceltabelle abzurufen? Wenn das nicht geht welche Programmiersprache würde mein Vorhaben unterstützen?
Ich hoffe das mir einer helfen kann!
Danke im voraus.

 

[Ray]

Warum soll das denn nicht gehen? Du kannst z.b. aus einer Datei in ein Array einlesen, welches aus dem Typ Denglisch besteht, dieser wäre z.B.. ein Record :

[...]

type Denglisch = Record
  englisch : string;
  deutsch string;
end;

var
  wort : array[1.99] of Denglisch;

[...]

Das kannste dann so abfragen :

i:=0;
REPEAT
  inc(i);  
  Write ('Übersetzen sie ', wort[i].deutsch,' ins Englische! ');
  ReadLn (Eingabe);
UNTIL Eingabe = wort[i].englisch;
  Write ('Richtig!');
  Readkey;
  ClrScr;
end;

So wird nach jedem Fehlversuch ein neues Wort eingebaut. Eben solange, bis ein Wort richtig übersetzt wurde.

Alternativ kann natürlich auch direkt in der Routine in WORT eingelesen werden.

[code]

[...]
var
  wort : Denglisch;
[...]

REPEAT
  deineeinleseroutine(wort);
  Write ('Übersetzen sie ', wort.deutsch,' ins Englische! ');
  ReadLn (Eingabe);
UNTIL Eingabe = wort.englisch;
  Write ('Richtig!');
  Readkey;
  ClrScr;
end;

Für Syntax- und Denkfehler übernehme ich keine Verantwortung. ;-)

 

[Mechanius]

danke