Для каждой строки исходного файла определить номер строки и количество срок в ней - PascalABC.NET
Формулировка задачи:
Для каждой строки исходного файла определить номер строки и количество срок в ней
Решение задачи: «Для каждой строки исходного файла определить номер строки и количество срок в ней»
textual
Листинг программы
begin
var S := ReadAllLines(ReadLnString('Имя исходного файла:'));
WriteLn('Количество строк: ', S.Count);
var i := 0;
foreach var SS in S do
begin
i += 1;
WriteLn(i, ' : ', SS);
end;
WriteLn('Готово!');
end.
Объяснение кода листинга программы
- Пользователю предлагается ввести имя исходного файла.
- Файл считывается в строку S.
- Выводится количество строк в списке S.
- Инициализируется счетчик i = 0.
- В цикле foreach перебираются все строки SS в списке S.
- К счетчику i прибавляется 1.
- Выводится значение i и строка SS.
- После завершения цикла выводится сообщение
Готово!.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д