Прочитать из файла .txt данные x и y

@nivalyu · Регистрация: 12.11.2016

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

Добрый день!

необходимо прочитать данные переменных из файла, пишу код:

Pascal

var t:Text;x,y:integer;
begin
AssignFile(t,'c:\123.txt');
Reset(t);
While (not eof(t)) do
  begin
  readln(t,x,y);
  writeln(x,y);
  end;
CloseFile(t);
readln;
end.

но выходит ошибка Входная строка имела неверный формат, помогите пожалуйста разобраться

@Hitoku · 28.04.2017, 19:48

Если в файле x и y записаны чере пробел

Pascal

begin
  var s:=ReadAllText('E:\1.txt').Split(' ');
  var x:=integer.Parse(s[0]); var y:=integer.Parse(s[1]);
  writeln(x,' ',y);
end.

@nivalyu · 29.04.2017, 06:21 **[ТС]**

Нашла))

Pascal

var t:Text;x,y:real;
begin
AssignFile(t,'123.txt');
Reset(t);
While (not eof(t)) do
  begin
  readln(t,x,y);
  
  writeln(x,' ',y);
  end;
CloseFile(t);
readln;
end.

	29.04.2017, 06:21