1
const
n = 5;

var
  f: text;
  r: array[1..n] of real;
begin
  assign(f, 'input.txt');
  reset(f);
  var i: integer := 1;
  var min: real := 0;
  while not eof(f) do
  begin
    var a: string := '';
    readln(f, a);
    var b: real := StrToFloat(a);    
    if b > 0
      then     
      r[i] := b;
    write(r[i], ' ');
    inc(i);
    if b < min
      then min := b;    
  end; 
  writeln('мин элемент: ',min);  
end.

"Ошибка времени выполнения: Входная строка имела неверный формат." в строке "var b: real := StrToFloat(a);", в файле "1,123 -2,334 4,324 0,123 -5,123455 -3,1432 0,234"

3
  • В чем возникли трудности?
    – 0xdb
    27 мая 2017 в 16:21
  • 1
    Очевидно строка 1,123 -2,334 4,324 0,123 -5,123455 -3,1432 0,234 не является дробным числом. Какой-то у вас хитрый паскаль var b: real := StrToFloat(a); 30 мая 2017 в 7:45
  • @kot-da-vinci, это pascalABC.NET, он позволяет использовать подобные конструкции 6 дек 2017 в 6:57

1 ответ 1

1

Не совсем понятно, что же записано у вас во входном файле.

  1. Если "1,123 -2,334 4,324 0,123 -5,123455 -3,1432 0,234" записано в одну строку, то вы используете не ту функцию, необходимо использовать function ReadRealFromString(s: string; var from: integer): real которая считывает вещественное из строки начиная с позиции from и устанавливает from за считанным значением. И вы должны в цикле считать все числа, пока не придете к концу строки.
  2. Если же записи в файле каждая на новой строке, то у вас неправильный разделитель целой и дробной части - в системе, видимо, установлена точка в качестве разделителя. в Delphi для контроля разделителя используется DecimalSeparator , как в pascalABC.net - не знаю (думаю, можно воспользоваться системными функциями), но всегда можно проверить строку и поменять запятую на точку. Кстати, это же касается и первого варианта.
2
  • 1
    Вообще-то, правильно не поменять запятую на точку, а передать в функцию конвертации строки в число правильные настройки форматирования (FormatSettings). 6 дек 2017 в 9:39
  • @kot-da-vinci, да, вы правы. К сожалению, справка по pascalABC.net весьма убога, и сам язык пока на уровне становления, хотя и обещает стать чем-то большим 6 дек 2017 в 10:14

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.