Чтение из файла

[brunis]

Помогите пожалуйста, как правильно нужно считывать информацию из файла в этой задаче http://acmp.ru/?main=task&id_task=9 Сколько я не крутил с read-ом и readln-ом у меня всевремя образуется вечный цикл(ну или что-то типо того) у меня программа зависает в этом месте

  Readln(n);
  For i:=1 to n do Read(f1,a[i]);

вот полный код

uses crt;
Var  f1,f2:Text;
     a:array [1..100] of integer;
     n,i,max,min,sum,b,e:integer;
Begin
  Assign(f1,'INPUT.TXT'); Reset(f1);
  Assign(f2,'OUTPUT.TXT'); Rewrite(f2);
  Readln(f1,n);
  For i:=1 to n do Read(f1,a[i]);
  b:=1;
  e:=1;
  max:=a[1];
  min:=a[1];
  sum:=0;
  For i:=1 to n do begin
    if min>a[i] then Begin min:=a[i]; b:=i; End;
    if max<a[i] then Begin max:=a[i]; e:=i; End;
    If a[i]>0 then sum:=sum+a[i];
  End;
  write(f2,sum,' ');

  if b>e then Begin
    sum:=b;
    b:=e;
    e:=sum;
  End;
  sum:=1;
  if(e-b<2) then sum:=0
  Else For i:=b+1 to e-1 do sum:=sum*a[i];
  write(f2,sum);
  Close(f1);
  Close(f2);
End.

Если вводить значения через консоль то всё работает, а эта ошибка не даёт продвигаться дальше.

[astecenko]

пробел это символ - тип Char
То бишь по сути в файле во 2 строке имеем последовательность:числосимволчислосимволчисло...

[Paster Fob]

Мой вариант:

type tarray=array [1..100] of integer;

var f1,f2:text;mas:tarray;
    i,k,m,n,sum,max,min:integer;

begin
  assign(f1,'input.txt');
  reset(f1);
  assign(f2,'output.txt');
  rewrite(f2);
  readln(f1,n);
  sum:=0;
  for i:=1 to n do begin
    read(f1,mas[i]);
    if mas[i]>0 then
      sum:=sum+mas[i];
  end;
  min:=mas[1];max:=mas[1];
  for i:=1 to n do begin
    if mas[i]<=min then begin
      min:=mas[i];
      k:=i;
    end;
    if mas[i]>=max then begin
      max:=mas[i];
      m:=i;
    end;
  end;
  n:=1;
  if m>k then
    for i:=k+1 to m-1 do
      n:=n*mas[i]
  else
    for i:=m+1 to k-1 do
      n:=n*mas[i];
  write(f2,sum,' ',n);
  close(f1);
  close(f2);
end.

[TinMan]

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

пробел это символ - тип Char
То бишь по сути в файле во 2 строке имеем последовательность:числосимволчислосимволчисло...

Ну и что?.. astacenko, открой учебник или help и почитай про ввод чисел в текстовых файлах.

Brunis, у тебя те две строчки, которые отдельно, написаны неверно - в превой строке пропущена файловая переменная. Это как раз должно было привести к эффекту, похожему на "подвисание", хотя на самом деле прога просто ждет ввода с клавы.

Но в тексте программы у тебя эта ошибка отсутствует (то есть файловая пременная, f1, наличиствует). В таком виде - все правильно, программа должна была осуществить ввод как положено, и это железно. Почему у тебя не проходит - загадка природы.. Хотя, помню я такие случаи на некоторых сайтах: говорят, что строка одна, на самом деле она разбита на несколько. Это, как я понимаю, может происходить, если авторы сайта делают исправление в строке, используя обычный текстовый редактор, и он бъет строку. Тогда приходилось вставлять в цикл ввода проверку окончания строки и перехода на новую, как-то так:

  for i:=1 to n do begin
    if EoLn(f) then readln(f);
    read(f,a[i])
  end;

Но прежде чем прибегать к такому средству, все же убедись, что ты не совершаешь ошибку, как в тех двух строках выше.
Успехов тебе.

[brunis]

Спасибо всем за помощь, проблему я уже давно нашёл и она оказалась во мне Я отправлял на проверку файл моего первоначального кода, который и содержал ошибку...
Помимо компиляции программу нужно ещё и сохранять, а этого я не делал. Так что всё оказалось гораздо проще

[astecenko]

TinMan с текстовыми файлами средствами Pascal давно не работал (оно мне не надо как-то), но все же открыл справку, увидел и осмыслил: With type integer or type real variables: Read skips any blanks, tabs, or end-of-line markers preceding the numeric string.

Только одно не понятно, нафига мой ник каверкать, тем более что он образован от фамилии?

[TinMan]

Я очень извиняюсь, это прсто ошибка, без всякого умысла - как переднего, так и заднего. Еще раз извиняюсь.