Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
2 / 2 / 1
Регистрация: 31.05.2012
Сообщений: 4
1

Текстовый файл. Сколько слов в каждой строке

31.05.2012, 20:57. Показов 1684. Ответов 1
Метки нет (Все метки)

Дан файл, содержащий русский текст. Сколько слов в каждой строке

помогите пожалуйста. очень надо прям край
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
1
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.05.2012, 20:57
Ответы с готовыми решениями:

Дан текстовый файл. В каждой строке файла подсчитать среднюю длину слов. В новый файл записать слова с длиной большей
Помогите, пожалуйста. 1) Как вернуть значения n к 0 после подсчета количества слов в предложении?...

Дан текстовый файл. Сколько в нем слов заданной длины.
Дан текстовый файл. Сколько в нем слов заданной длины.

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

Преобразовать текстовый файл, удалив последнее слово в каждой строке
Здравствуйте. Вот две задачи: 1) Преобразовать текстовый файл, удалив последнее слово в каждой...

1
155 / 97 / 101
Регистрация: 25.02.2012
Сообщений: 232
31.05.2012, 22:39 2
Лучший ответ Сообщение было отмечено rustik55 как решение

Решение

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
var
  f: text;
  c: char;
  s: string;
  k, l, i, j: integer;
 
begin
  assign(f, 'file.txt');
  rewrite(f);
  writeln('Сколько строк будем заполнять?');
  repeat 
    readln(k) until k > 0;
  for i := 1 to k do 
  begin
    writeln('Введите строку ', i, ' избегая удвоенных пробелов, а также, в начале и конце строки!');
    repeat
      readln(s)
    until (pos('  ', s) = 0) and (s[1] <> ' ') and (s[length(s)] <> ' ');
    for j := 1 to length(s) do
      write(f, s[j]);
    writeln(f)
  end;  
  
  close(f);
  
  reset(f);
  while not eof(f) do
  begin
    k := 0; inc(l);
    while not eoln(f) do
    begin
      read(f, c);
      if c = ' ' then inc(k);
    end;
    readln(f);
    writeln('Строка: ', l, ', слов: ', k + 1);
  end;
  close(f);
  readln
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.05.2012, 22:39
Помогаю со студенческими работами здесь

Организовать текстовый файл состоящий из N строк. преобразовать фалй, удалив в каждой его строке лишние пробелы
Будте любезны, помогите с задачей... Организовать текстовый файл состоящий из N строк....

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

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

Найти максимальные элементы в каждой строке исходного файла и поместить их в новый текстовый файл. Выдать оба файла
Задание: Дан текстовый файл, состоящий из одной или нескольких строк. Каждая строка файла содержит...


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

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

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