Records

[MD1]

Здраствуйте!
Есть некоторая запись:

K1 = record
blabla:integer;
blabla1:string[10];
blabla2:string;
blabla3:record
blabla3:integer;
end;
end;
var
b:k1;

При попытке ввода полей с клавы, вот к примеру:

writeln ('blabla1');
   readln (b.blabla1);

   writeln('blabla2');
   readln (b.blabla2);

Выходит так что игнорируется ввод readln (b.blabla1);
Но если поставить первым на ввод, к примеру:

writeln('blabla');
   readln (blabla);

то

writeln ('blabla1');
   readln (b.blabla1);

   writeln('blabla2');
   readln (b.blabla2);

вводится без проблем.

Вопрос: почему игнорируеться ввод стрингового поля если перед ним нету поля интегер?

[Niro]

приведите весь код, или кусок, по идее игнорироваться не должно

[MD1]

Сообщение от Niro

приведите весь код, или кусок, по идее игнорироваться не должно

Я и сам сильно удивился этому случаю.

Program BD;
uses crt;
type
K1 = record
N:integer;
date:string[10];
event:string;
Results:record
Amount:integer;
Time:array[1..100] of string;

end;
end;

var
TTT:string;
b:k1;
BDKote,a,aaa,l,i,j,n,tttt:integer;
f1: file of k1;
f2: text;
label M1,M2,M3,Moff1;

begin
ttt:='runing';

clrscr;
assign (f1,'bd1.bd');
assign (f2,'BDKote.txt');

Moff1:
writeln;
writeln('Write event          "1"');
writeln('Show list of records "2"');
writeln('Exit                 "3"');
read(A);
clrscr;
if a=1 then goto M1; if a=2 then goto M2; if a=3 then goto M3;

M1: {MMMMMMMMMM111}

 {  writeln ('Enter number');
   readln(b.n);
for i:=1 to length(b.n do c:=c+1; }




   writeln ('Enter event');
   readln (b.event);

   writeln('date');
   readln (b.date);

   writeln('kolv');
   readln (b.results.Amount);

for i:=1 to (b.results.Amount) do begin

   writeln('time');
   readln (b.results.time[i]);  end;

Кусок с БД

На экран выводит:

Enter event
date
(а затем Предлогает ввести поле b.date проигнорировав b.event)

[Stilet]

Я и сам сильно удивился этому случаю.

Ниче удивительного. Классическая ошибка студентов. Не учитываешь разницу между read и readln.
У тебя

writeln;
writeln('Write event          "1"');
writeln('Show list of records "2"');
writeln('Exit                 "3"');
read(A);
clrscr;

Считывает в А некое значение, оставляя в буфере ввода символы перевода каретки, который успешно подхватывает первый же readln, считая ввод для себя оконченным.

Кстати - код жутковат, работать может нестабильно. На твоем месте я бы отказался от меток, и переписал бы его по другому.

[MD1]

readln(a)

исправило ошибку.

В чом нестабильность кода?

[ByAlex]

Сообщение от MD1

readln(a)

исправило ошибку.

В чом нестабильность кода?

Нестабильность он имел ввиду метки. Для культурности кода от них желательно отказаться. Да и код вы не красиво оформляете!

[MD1]

мм.. чем же метки заменить???

[Serge_Bliznykov]

ну, примерно так (код выхватил из чужого примера, так что на имена пуктов меню и процедур внимания не обращайте - главное, ухватите идею!)

Repeat
   Writeln ('================================');
   Writeln (' PROGRAM List');
   Writeln ('================================');
   Writeln ('1: Dobavit element v spisok-1  ');
   Writeln ('2: Udalit element v spisok-2   ');
   Writeln ('3: Prosmotr spiska-1           ');
   Writeln ('4: Prosmotr spiska-2           ');
   Writeln ('5: Save                        ');
   Writeln ('6: Load                        ');
   Writeln ('0: Exit                        ');
   Writeln ('================================');
   Readln (key); 
   case key of 
      '1': AddList(curA,HeadA,true); 
      '2': DelList(curA,curB,HeadA,HeadB); 
      '3': ScanList(curA,HeadA);
      '4': ScanList(curB,HeadB); 
      '5': Save (cura,HeadA,a);
      '6': Load (A, cura,HeadA);
   end; 
until key ='0';