Дан текстовый файл. Найти количество строк в нем - Turbo Pascal
Формулировка задачи:
Дан текстовый файл. Найти количество строк в нем.
Решение задачи: «Дан текстовый файл. Найти количество строк в нем»
textual
Листинг программы
n:=0; Reset(f); While not EOF(f) do Begin Readln(f,St); Inc(n); end; Close(f); Writeln(n);
Объяснение кода листинга программы
- n := 0; - инициализация переменной n
- Reset(f); - инициализация файла
- While not EOF(f) do - цикл чтения файла до конца
- Readln(f, St); - чтение строки из файла в переменную St
- Inc(n); - увеличение значения переменной n на единицу
- Close(f); - закрытие файла
- Writeln(n); - вывод значения переменной n на экран
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д