Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Читка с файла

Автор: Perfez 18.05.2007 22:20

Немного краснею спросив настолько глупый вопрос но... Я должен когда-нибудь научиться этому...

Цитата

ADD 1 1
GET 1 1 5 5

Как прочитать следущее из файла в виде

Цитата

ADD{string} x{integer} y{integer}
GET{string} x1{integer} y1{integer} x2{integer} y2{integer}

Автор: volvo 18.05.2007 22:57

Разберешься?

var
  s: string;
  arr: array[1 .. 10] of integer;
  i, n: integer;
  f: text;
  ch: char;


begin
  assign(f, '__ee.txt'); reset(f);

  while not eof(f) do begin
    s := '';
    repeat
      read(f, ch);
      s := s + ch
    until ch = ' ';

    n := 0;
    while not seekeoln(f) do begin
      inc(n);
      read(f, arr[n]);
    end;
    readln(f);

    writeln('read data:');
    write('s = ', s, ' numbers: <');
    for i := 1 to n do write(arr[i]:4);
    writeln('>')

  end;

  close(f);
end.

Автор: Perfez 18.05.2007 23:03

Разобрался. Спасибо,volvo.