Помощь - Поиск - Пользователи - Календарь
Полная версия: Компилятор не реагирует на Read...
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Тролька
25.03.2006 20:01
есть задача по работе с текстовым файлом.она сама довольно простая, но возникает глюк довольно неприятный
в куске
Код

{Процедура создания основного файла}
procedure makeF;
var lf:text;
    ff:string;
    an:char;
    nz,ng,im,fam,s:string;
begin
clrscr;
write('Введите имя создаваемого файла  ');
read(ff);
assign(lf,ff);
rewrite(lf);
an:='y';
writeln('Введите данные для файла');
repeat
write('Номер группы  ');
read(ng);
write('Номер зачетки  ');
read(nz);
write('Имя  ');
read(im);
write('Фамилия  ');
read(fam);
s:=ng+'_'+nz+'_'+im+'_'+fam;
writeln(lf,s);
writeln('Еще запись?[y/n]');
read(an);
until an='n';
close(lf);
end;


компилятор(BP7) не реагирует на все read после открытия файла на запись.лечится все это исключительно добавлением
Код

close(input);
reset(input);


перед каждым write в цикле..понять не могу откуда этот глюк....помогите плизз...
Ozzя
25.03.2006 21:40
readln нужно использовать, а не read
Тролька
25.03.2006 21:50
Цитата(Ozzя @ 25.03.2006 17:40) *

readln нужно использовать, а не read


Пробовала..но тогда он при первом входе проскакивает ввод номера группы и требует ввода сразу номера зачетки
Ozzя
25.03.2006 22:02
Uses
  crt;
var
  lf:text;
  ff:string;
  an:char;
  nz,ng,im,fam,s:string;
begin
  clrscr;
  write('File name? ');
  readLn(ff);
  assign(lf,ff);
  rewrite(lf);
  an:='y';
  writeln('Enter data for file');
  repeat
    writeLn('Nomer gruppy ');
    readLn(ng);
    writeLn('Nomer zachetki ');
    readLn(nz);
    writeLn('Imya  ');
    readLn(im);
    writeLn('Familiya  ');
    readLn(fam);
    s:=ng+'_'+nz+'_'+im+'_'+fam;
    writeln(lf,s);
    writeln('Istcho raz?[y/n]');
    read(an);
  until an='n';
  close(lf);
end.
Тролька
25.03.2006 22:22
пасиб.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.