Помощь - Поиск - Пользователи - Календарь
Полная версия: Читка с файла
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Perfez
Немного краснею ypriamii.gif smile.gif спросив настолько глупый вопрос но... smile.gif Я должен когда-нибудь научиться этому... unsure.gif smile.gif yes2.gif

Цитата

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
Разберешься?

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
Разобрался. yes2.gif Спасибо,volvo. smile.gif good.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.