Подсчитать количество строк в файле - Pascal

Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.63/8:

@Uboin 0 / 0 / 0 Регистрация: 25.12.2015 Сообщений: 16

	Подсчитать количество строк в файле 26.12.2015, 14:08. Показов 1694. Ответов 1 Метки нет (Все метки) Пусть текстовый файл t состоит из непустых строк. Написать программу для подсчета количества строк в файле 0

Лучшие ответы (1)

Сообщение: #8548040

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

26.12.2015, 14:08

Ответы с готовыми решениями:

Подсчитать количество строк в файле
1. Дан текстовый файл. Подсчитать количество строк в нем. 2. Имеется текстовый файл. Напечатать все его строки: a) начинающиеся с буквы...

Подсчитать количество строк в файле
1. Дан текстовый файл. Подсчитать количество строк в нем. 2. Имеется текстовый файл. Напечатать все его строки: a) начинающиеся с...

Подсчитать в текстовом файле количество строк
Прошу выложить решения следующих задач: 1)Подсчитать в текстовом файле количество строк. 2)Подсчитать в текстовом файле количество...

Puporev

Почетный модератор

64315 / 47611 / 32743

Регистрация: 18.05.2008

Сообщений: 115,167

26.12.2015, 15:21

Сообщение было отмечено Uboin как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
.........................
assign(f,'1.txt');
reser(f);
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  k:=k+1;
 end;
close(f);
........................

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

26.12.2015, 15:21

Помогаю со студенческими работами здесь

Подсчитать количество строк не содержащих цифр в текстовом файле.
Создать текстовый файл с именем "dan". Подсчитать количество строк в нем, не содержащих цифр. И напечатать содержимое файла.

Подсчитать в текстовом файле количество строк, состоящих из одинаковых символов
Подсчитать в текстовом файле количество строк, состоящих из одинаковых символов.

Подсчитать количество строк, имеющих длину меньше средней длины всех строк
6. Подсчитать количество строк, имеющих длину меньше средней длины всех строк. ПОМОГИТЕ ПОЖАЛУЙСТА!!

Подсчитать количество строк в файле
3) Подсчитать количество строк в файле

Подсчитать количество пустых строк в текстовом файле. Сформировать новый файл, в котором пустых строк нет
Задано произвольный текстовый файл. Подсчитать количество пустых строк в этом файле. Сформировать новый файл, в котором пустые строки...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

Наверх