ReadLn, процедура

Синтаксис


procedure ReadLn(var F: TextFile; var Переменная;   ...);
procedure ReadLn(var Переменная;   ...);
procedure ReadLn(var F: TextFile);
procedure ReadLn;

Описание

Процедура ReadLn аналогична Read, но по завершении чтения Данных в Переменные ReadLn пропускает остаток строки и готовится к чтению следующей. Без указания аргументов беременная ReadLn, только пропускает остаток строки.
ReadLn не может использоваться для двоичного файла и не являетсяi настоящей процедурой.

Ошибки

Советы и приемы

  • Для ReadLn строка заканчивается переводом каретки (#13) или концом файла. За переводом каретки может следовать либо перевод строки (#10), либо конец файла.
  • Для чтения строк предпочтительнее вызывать ReadLn вместо Read. Процедура Read читает все символы длинной строки, за исключением символа конца строки. При повторном вызове Read строка снова будет прочитана до конца, но в результате будет получена пустая строка. Процедура ReadLn читает строку, пропускает конец строки, помещая следующую строку текста в текстовую переменную.
  • Если первый аргумент - текстовый файл - не указан, ReadLn читает данные из Input.

Пример


program bmindex;
// Вычисляет индекс массы тела по росту человека в сантиметрах и весу
// в килограммах.   Если индекс больше 26,  человек имеет лмшний вес.
var
  Height,  Weight:  Single;
  BMI:  Integer;
begin
  WriteLn('Введите рост в сантиметрах: ');
  ReadLn(Height);
  WriteLn('Введите вес в килограммах: ');
  ReadLn(Weight);
  BMI := Round((Weight * 10000) / (Height * Height));
  Write('Индекс веса тела', BMI, '.');
  if BMI > 26 then
    WriteLn(' Советую вам сбросить вес.')
  else
    WriteLn;
  WriteLn('Нажмите клавишу ENTER для выхода из программы.');
  ReadLn;
end.

Смотрите также

Процедуры BlockRead, Read, Write, WriteLn, функция lOResult.
    Учебник по языку Pascal          Лабораторные работы по программированию          Справочник




Нет комментариев.



Оставить комментарий:
Ваше Имя:
Email:
Антибот:  
Ваш комментарий: