-
Hello, I have a problem with my code and don't know why it isn't working or at least I don't see the mistake.
program VerbundFeldKombi;
uses crt;
type person = record
n: string;
a: string;
t: string;
end;
type feld = array[1..30] of person;
var ds:feld;
i, j, z: integer;
temp: person;
begin
clrscr;
{Eingabe}
write('Anzahl der einzugebeneden Datensaetze: ');
read(z);
for i:= 1 to z do
with ds[i] do
begin
writeln('Name, Vorname eingeben: ');
readln(n);
writeln('Plz, Ort, Str., Nr. eingeben: ');
readln(a);
writeln('Telefonnr. eingeben: ');
readln(t);
end;
clrscr;
{Sortieren}
for i:= 1 to z-1 do
for j:=z downto i do
with ds[i] do
if ds[i].n > ds[j].n then
begin
temp:=ds[i];
ds[i]:=ds[j];
ds[j]:=temp;
end;
{Anzeigen}
for i:= 1 to z do
with ds[i] do
begin
writeln('Name, Vorname: ', n);
writeln('Anschrift: ', a);
writeln('Telefon: ',t);
end;
readkey;
end.
It's supposed to insert first information then second then third but when runs it shows both the first and second request at once.
Thank you Raffy
-
Change read(z) into readln(z), this will "consume" the Enter key.
B.t.w: the topic title ("type") isn't very helpfull.
A good topic title describes the proble you are seeking help for e.g.
"How to sotr an array?"
"Why does this piece of code crash?"
Bart
-
B.t.w: the topic title ("type") isn't very helpfull.
But he gets credit for putting his failing code in a code box, and giving the community a complete program which can be checked easily.
MarkMLl
-
أعتقدُ أنّي قرأتُ مرّةً في الـ Help الخاص بالـ Turbo Pascal أنّ read تختلف عن readln في أنّها لا تُضيف لبنة نهاية السطر (تغذية السطر) وأنّ ذلكـ يُحدث مُشكلةً في عبارات الـ readln التالية إذا كانت القراءة من الـ console أي تقريباً لا يُفضّل إستخدام read في القراءة من الـ console.
google translate:
"I think I once read in the Help for "of" Turbo Pascal that read differs from readln in that it does not add an end-of-line block "character" (line feed) and that this creates a problem in the following readln statements if reading from the console i.e. almost not preferring to use read for reading, From "from" the console."
-
I think I once read in the Help for "of" Turbo Pascal that read differs from readln in that it does not add an end-of-line block "character" (line feed) and that this creates a problem in the following readln statements if reading from the console i.e. almost not preferring to use read for reading, "from" the console.
It isn't that it doesn't "add" an EOL but that it reads up to but excluding the ending <CR> (or <LF>), while ReadLn reads and discards it. The consequence is that after a Read there is a <CR> still in the queue which a later ReadLn will interpret as reading an empty line.
There are several ways to deal with this, among other by using the EOLn function for a conditional ReadLn, but if all one's doing is just reading a single value it's usually better to just use ReadLn().
-
I think I once read in the Help for "of" Turbo Pascal that read differs from readln in that it does not add an end-of-line block "character" (line feed) and that this creates a problem in the following readln statements if reading from the console i.e. almost not preferring to use read for reading, "from" the console.
It isn't that it doesn't "add" an EOL but that it reads up to but excluding the ending <CR> (or <LF>), while ReadLn reads and discards it. The consequence is that after a Read there is a <CR> still in the queue which a later ReadLn will interpret as reading an empty line.
There are several ways to deal with this, among other by using the EOLn function for a conditional ReadLn, but if all one's doing is just reading a single value it's usually better to just use ReadLn().
تصويبٌ ممتاز ومعلوماتٌ غنيّة أغبطكـ عليها.
لقد حاولتُ أنْ أكون عُضواً فاعلاً وأنْ أُساعد غيري ولكن يبدو أنّني أفتقد بعض الدقائق والتفاصيل ،مازلتُ أتعلّم.
google translate:
"Excellent shooting "correction" and rich info I envy (good kind of envy) you "about it".
I have tried to be an active member and help others but it seems that I am missing some minutes and details, I am still learning."
-
I have tried to be an active member and help others but it seems that I am missing some minutes and details, I am still learning."
And there's no fault in trying to be helpful even if one doesn't know the small details. :)
To be fair: this specific difference between Read and Readln isn't important very often as most people simply tend to use Readln. ;)
-
this specific difference between Read and Readln isn't important very often as most people simply tend to use Readln.
Yes, this is what I am used to. But under windows 10 it does not seem to work as it used to.
When running this code in a windows 10 cmd shell from the textmode IDE (3.2.0), I need to press enter twice to arrive at the writeln; and writeln overwrites the number I typed.
I changed to "use legacy console" but the behaviour remains the same.
var x: single;
begin
repeat
readln (x);
writeln(x);
until x=0;
end.
-
I have tried to be an active member and help others but it seems that I am missing some minutes and details, I am still learning."
And there's no fault in trying to be helpful even if one doesn't know the small details. :)
To be fair: this specific difference between Read and Readln isn't important very often as most people simply tend to use Readln. ;)
رائعٌ هذا التشجيع ،أشكركـ.
google translate:
"Great encouragement, thank you."