
Дан текстовый файл. Подсчитать количество строк в данном файле. Результат вывести на форму.


Ответы на вопрос

program z1;
var k:integer;
s:string;
f:text;
begin
assign(f,'input.pas');
reset(f);
k:=0;
while not eof(f) do begin
readln(f,s); k:=k+1;end;
writeln('k=',k);
close(f);
end.
Связать логический файл f с физическим файлом input.pas;Открыть файл для чтения;Организовать считывание данных из файла построчно (readln(f,s), где s-переменная типа string), насчитывая на каждом шаге считывания значение переменной-счетчика k;Вывести на экран значение переменной-счетчика;Закрыть файл.



Для подсчета количества строк в текстовом файле и вывода результата на форму, можно использовать следующий код на языке программирования Python:
```python def count_lines(file_path): with open(file_path, 'r') as file: lines = file.readlines() return len(lines)
file_path = 'path/to/your/file.txt' # Замените на путь к вашему файлу line_count = count_lines(file_path) print(f"Количество строк в файле: {line_count}") ```
В данном коде определена функция `count_lines`, которая принимает путь к файлу в качестве аргумента. Функция открывает файл, считывает все строки в список `lines` и возвращает количество элементов в этом списке, то есть количество строк в файле.
Затем, вы можете вызвать функцию `count_lines` с указанием пути к вашему файлу и сохранить результат в переменную `line_count`. Далее, вы можете вывести количество строк на форму или сделать с ним что-то еще, в зависимости от вашей конкретной задачи.
Примечание: Убедитесь, что вы заменили `'path/to/your/file.txt'` на фактический путь к вашему файлу.
Источники: -


Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili