0 / 0 / 0
Регистрация: 06.11.2014
Сообщений: 73
1

Текстовый файл. Определить количество всех строк и количество символов в каждой строке

23.02.2015, 19:14. Показов 1547. Ответов 5
Метки нет (Все метки)

В текстовом файле определить количество всех строк и количество символов в каждой строке.

Спасибо большое))

[PASCAL][PASCAL]
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.02.2015, 19:14
Ответы с готовыми решениями:

В текстовом файле определить количество всех строк и количество символов в каждой строке.
В текстовом файле определить количество всех строк и количество символов в каждой строке.

Организовать текстовый файл, состоящий из N строк. Определить среднее количество символов в строке данного файла
Ребятки помогите пожалуйста Добавлено через 1 час 14 минут и ещё одну Дана квадратная матрица...

Дописать в файл количество строк, символов в каждой строке, чисел в каждой строке
Дан текстовый файл.Дописать в его конец следующие данные: количество строк, количество символов в...

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

5
1 / 1 / 0
Регистрация: 25.09.2014
Сообщений: 125
24.02.2015, 00:24 2
Вроде должно работать(ты проверь на всякий случай)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var s:string;
    f:text;
    st,sm:integer;
begin
assign(f,'Text.txt');
reset(f);
st:=0;
sm:=0;
while not eof(f) do
  begin
    readln(f,s);
    inc(st);
    simvol:=simvol+length(s);
  end;
writeln('Строк: ',st,' Символов  ',sm);    
close(f);
readln;
end.
0
1646 / 1075 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
24.02.2015, 09:57 3
Цитата Сообщение от Magestian Посмотреть сообщение
simvol:=simvol+length(s);
Что-то не видно описания этой переменной.
0
0 / 0 / 0
Регистрация: 06.11.2014
Сообщений: 73
24.02.2015, 13:04  [ТС] 4
не работает((
simvol:=simvol+length(s); - не расписано((
0
1646 / 1075 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
24.02.2015, 14:10 5
Цитата Сообщение от 07051997 Посмотреть сообщение
не работает((
С таким определением даже в сервисный центр не берут вещи в ремонт - требуется расширенное описание проблемы.
Цитата Сообщение от 07051997 Посмотреть сообщение
simvol:=simvol+length(s); - не расписано((
Я именно про это и говорил чуть выше...
Решение: замени simvol на sm - автор немного очепятался
0
1 / 1 / 0
Регистрация: 25.09.2014
Сообщений: 125
24.02.2015, 17:44 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var s:string;
    f:text;
    st,sm:integer;
begin
assign(f,'Text.txt');
reset(f);
st:=0;
sm:=0;
while not eof(f) do
  begin
    readln(f,s);
    inc(st);
    sm:=sm+length(s);
  end;
writeln('Строк: ',st,' Символов  ',sm);    
close(f);
readln;
end.
Извините, поспешил.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.02.2015, 17:44
Помогаю со студенческими работами здесь

Подсчитать количество символов в каждой строке и массив чисел с количествами записать в другой текстовый файл
Данные считываются с текстового файла(1) и записываются в другой(2). Есть текстовый файл с...

Найти количество символов всех строк файла и количество символов в определенной строке
Здравствуйте! Я хотел бы попросить помощи в решении задачки! У меня не получается найти...

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

Подсчитать количество всех строк, а потом - количество слов в каждой строке
Программа считает количество строк в файле add.txt выводит на экран и записывает в новый указанный...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru