Чтение файлов - адаптировать код под ABC

@Ant13Z · Регистрация: 28.09.2010

Author24 — интернет-сервис помощи студентам

в общем, целый день разбирался в чем беда.
имеем один кусок кода в программе

Pascal

type
  ES = record
    region, nameES, ws: string[22];
    tip: string[5];
    W: real;             
  end; 
 
var
  f: text;
  r: array[1..200] of ES;
  kod, i: integer;
 
begin
  i := 1;
  assign(f, 'In.txt');
  reset(f);
  if not Eof(f) then repeat
                   readln(f, r[i].region, r[i].nameES, r[i].tip, r[i].ws);
                   inc(i);
                  until eof(f)
  else write('Файл пуст!');                
  close(f);
  for kod := 1 to i - 1 do writeln(r[kod].region, r[kod].nameES, r[kod].tip, r[kod].ws);
end.

и входной файл (в конце поста), поместить в дирректорию с программой

этот кусок кода не работает в abc паскале (считывает только 1 столбец), зато прекрасно работает в abc.net, но в abc.net "не полностью" работает crt, что не позволительно.

внимание вопрос, как адаптировать данный кусок кода под abc, заранее благодарен.

@Puporev · 06.03.2011, 20:11

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

как адаптировать данный кусок кода под abc,

Считывать файл построчно, выделять в строке слова и заносить их в поля записи.

Добавлено через 12 минут

Pascal

type
  ES = record
    region, nameES, ws: string[22];
    tip: string[5];
    W: real;
  end;
 
var
  f: text;
  r: array[1..200] of ES;
  s,s1:string;
  kod, i: integer;
 
begin
  i := 0;
  assign(f, 'In.txt');
  reset(f);
  while not Eof(f) do
   begin
    readln(f,s);
    inc(i);
    r[i].region:=copy(s,1,22);
    r[i].nameES:=copy(s,23,22);
    r[i].tip:=copy(s,45,5);
    r[i].ws:=copy(s,50,length(s));
   end;
  close(f);
for kod := 1 to i do
writeln(r[kod].region, r[kod].nameES, r[kod].tip, r[kod].ws);
end.

	06.03.2011, 20:11