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

Текстовый файл. Вывести номер строки в которой больше всего слов и кол-во этих слов

19.02.2013, 14:12. Показов 1702. Ответов 4
Метки нет (Все метки)

в текстовом файле в нескольких строках записаны слова через запятую, вывести номер строки в которой больше всего слов и кол-во этих слов.(последнее слово каждой строчки,тоже заканчивается запятой).
вроди как тут должен быть while....без for)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.02.2013, 14:12
Ответы с готовыми решениями:

Записи: вывести номер группы, в которой больше всего студентов
Всем привет, нужна программа, которая выводит номер группы в которой больше всего студентов,...

Определить номер той строки, в которой больше всего согласных букв
Скопировать из файла F1 в файл F2 все строки, начинающиеся на букву «А» и расположенные между...

Задана символьная матрица, определить номер строки в которой больше всего символов
Задана символьная матрица, определить номер строки в которой больше всего символов Помогите с...

Дана матрица А порядка n. Найти номер строки матрицы, в которой больше всего нулевых элементов
Дана матрица А порядка n. Найти номер строки матрицы, в которой больше всего нулевых элементов.

4
Почетный модератор
64257 / 47557 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
19.02.2013, 14:17 2
Читать строки из файла, считать, их
посчитать число запятых в каждой строке, где больше, номер той и вывести
0
0 / 0 / 0
Регистрация: 07.02.2013
Сообщений: 31
19.02.2013, 19:23  [ТС] 3
вот я понимаю,как читать строки,считать,а вот дальшее....((((
0
Почетный модератор
64257 / 47557 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
19.02.2013, 19:36 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var f:text;
    n,i,j,k,max,imax:integer;
    s:string;
begin
assign(f,'text.txt');
reset(f);
max:=0;
imax:=0;
n:=0;
while not eof(f) do
 begin
  readln(f,s);
  n:=n+1;
  k:=0;
  for i:=1 to length(s) do
  if s[i]=','then k:=k+1;
  if k>max then
   begin
    max:=k;
    imax:=n;
   end;
 end;
close(f);
write('Больше всего слов в строке номер ',imax);
readln
end.
0
0 / 0 / 0
Регистрация: 07.02.2013
Сообщений: 31
19.02.2013, 20:24  [ТС] 5
спаааасииибо)

 Комментарий модератора 
Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.02.2013, 20:24
Помогаю со студенческими работами здесь

Текстовый файл. Получить новый файл, образованный исключением всех слов, встречающихся больше одного раза в исходном файле
Текстовый файл. Создать и заполнить текстовой файл f. Получить файл g, образованный из файла f с...

Вывести номер строки, в которой больше слов (количество строк не менее 10)
Никак не могу понять как это можно сделать, помогите пожалуйста, если можно кодом.Буду очень...

Вывести номер строки матрицы, в которой больше всего элементов оканчивающихся цифрой 5
Дан произвольный целочисленный массив. Вывести номер строки в которой больше всего элементов...

Буква, с которой начинается больше всего слов в тексте
Помогите составить программу для нахождения буквы, с которой начинается больше всего слов в...


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

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

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