Реализация ввода

[Олег Павлыш]

вот решаю я одну задачу
Формат входных данных:
N - кол-во строк
A[1] A[2] ... A[N] - количество символов в каждой строке
Строка
Я реализую это так:
readln (n);
for i:=1 to n do
read(b[i]);
read (t);

но почему то как раз строку компилятору читать не хотят... я ввожу масив и все.... строка read (t); не выполняется....
что за фигня, либо как организовать ввод подругому?

[MBo]

Приведи реальный пример входного файла и полный код чтения (с объявлением переменных)

[Олег Павлыш]

Пример ввода:
4
20 18 20 26
A.slhu tnaapzmgi rdku ribhastiu-lmuukz,rAusbh hngaAzkgu lguitmabkaatruhlt

код:
var
b:array [1..100] of byte;
t:string;
n,i:byte;
begin
readln (n);
for i:=1 to n do
read(b[i]);
read (t);

[pav]

При чтении с терминала п/п ввода read принимает данные с клавиатуры, в том числе и символ #$D , он же CR, он же "возврат каретки". В результате во внутреннем буфере строка выглядит как AnyPressedKeys+#$D и продолжает ожидать дальнейшего ввода символов.

Надо использовать побайтное чтение

var 
 b:array [1..100] of byte;
 t:string;
 n,i:byte;
begin
 write('Введите число подстрок:'); readln (n);
 write('Введите длины подстрок, разделяя их пробелами:');
 for i:=1 to n do read(b[i]);
 for i:=1 to n do
 begin
  t:='';
  for j:=1 to b[i] do begin read(ch); t:=t+ch; end;
  writeln('Получена очередная подстрока [', i, ']  -->') 
end;
end.

И наконец, приведенная программа не будет даже компилироваться - отсутствует закрывающая структурная скобка end.

[M_Gustokashin]

var 
b:array [1..100] of byte;
t:string;
n,i:byte;
begin
readln (n);
for i:=1 to n do
read(b[i]);
readln;
readln (t);
end.

строки можно считывать только с помощью readln

[Олег Павлыш]

вот вам и побайтное чтение спасибо.


Но написал ридлн все равно не читает..... что, кроме побайтного чтения ничего низя придумать ?: )

[pav]

ReadL(ine)N(ew) заканчивает ввод и передает вызывающей программе все содержимое буфера.
Кстати, строкой считаеся последовательность символов с кодами 32<=B<255. (Unicode в расчет не берем). Следовательно, последовательность, приведенная в Вашем примере является одной единственной строкой.
Кстати, мой пример будет работать при чтении из файла, при чтении с терминаля я в этом не уверен.

[M_Gustokashin]

при чтении с терминала нужно вставлять признак конца ввода (Ctrl-Z или Ctrl-D по моему, соответственно для Win/*nix или наоборот)

[Олег Павлыш]

Я фигею.... эта задача была на какой-то олимпиаде для 9-ых классов городской..... простого способа ввода нету?

[M_Gustokashin]

мне все-таки не верится, что с пустым readln перед считыванием строк не работает. должно работать.