[pascal] string einlesen

[CrackBimbo]

Hallo ich habe ein kleines problem!
Nehmen wir mal das als Beispiel;

program test;
uses crt;
var y,x:string;
begin
writeln ('x');
read (x);
writeln ('y');
read (y);
writeln ('Ausgabe: ',x,y);
readkey;
end.

Er soll also 2 Variable vom typ strin einlesen, und sie dann nacheinander ausgeben, eigentlich ganz simpel aber warum liest er y nicht ein? Das Programm ließt nur X ein und springt direkt zur Ausgabe, also y zeigt er auch noch an, ließt aber nicht ein! Also das ganze sieht dann so aus:

x
qqq
y
Ausgabe: qqq

wenn qqq bei X eingegeben wurde.

Ich bin noch ein totaler Anfänger, aber wieso macht er das nicht? Wäre nett wenn ihr einen tipp hättet!

Achja: als Compiler wird Free Pascal verwendet!

[flo8464]

Warscheinlich werden Zeichen im Input-Buffer sein.
Mach den mal leer.

[CrackBimbo]

und wie macht man das, ich dachte mir schon, dass das irgendwie was mit damit zu tun hat, ich wusste aber nicht wie ich er die Variable wieder "Vergessen" kann!

[Fero63]

In C geht das mit fflush(stdin). Such am besten mal nach einer Pascal-Prozedur, die Flush, oder so ähnlich heißt.

[CrackBimbo]

Also ich hab jetzt mindestens ne stunde gegoogelt aber ich fi einfach nichts, es muss doch irgentwas geben, womit man die variable löschen zurücksetzen kann.
Hat niemand ne idee?

[_Ad_aCTa_]

>> fflush(stdin)

Schäm dich. Du hast nicht aufgepasst. In C ist es undefiniertes Verhalten, den Input-Stream zu flushen.

[flo8464]

In C++ ist es ifstream::sync()

Also vlt irgendetwas mit sync.

[CrackBimbo]

also ich hab jetzt rausgefunden worans lag:

man muss statt read readln verwenden, dann ließt er soviele ein wie man will also praktisch so:

program test;
uses crt;
var y,x:string;
begin
writeln ('x');
readln (x);
writeln ('y');
readln (y);
writeln ('Ausgabe: ',x,y);
readkey;
end.

[Fero63]

Schäm dich. Du hast nicht aufgepasst. In C ist es undefiniertes Verhalten, den Input-Stream zu flushen.

Ups! Naja - war ja auch nur als Anhaltspunkt gedacht, um vielleicht ein Pascal-Äquivalent zu finden.