1 / 1 / 7
Регистрация: 04.12.2017
Сообщений: 74
1

Дан текстовый файл, содержащий строки. Вывести все слова в строке, которые содержат менее 4-х символов

04.12.2017, 23:19. Показов 1087. Ответов 1
Метки нет (Все метки)

Дан текстовый файл, содержащий строки. Вывести все слова в строке, которые содержат менее 4-х символов

Добавлено через 1 час 8 минут
Вот правильное решение
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
var a:array [1..100] of string;
f:text;
s:string;
i,n:integer;
begin
assign(f, 't1.txt');
reset(f);
while not eof(f) do begin
  readln (f,s);
  s:=s+' ';
  n:=0;
  while (pos(' ',s)>0) do begin
    if (copy(s,1,pos(' ',s)-1)<>'') then begin
      n:=n+1;
      A[n]:=copy(s,1,pos(' ',s)-1);
    end;
    delete(s,1,pos(' ',s));
  end;
  for i:=1 to n do
    if (length(a[i])<4) then write(A[i], ' ');    
    writeln();
  end;
  close(f);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.12.2017, 23:19
Ответы с готовыми решениями:

Дан текстовый файл, содержащий строки. В каждой строке вывести слова, которые повторяются
Дан текстовый файл, содержащий строки. В каждой строке вывести слова, которые повторяются

Дан текстовый файл, содержащий строки. Вывести все слова, каждое с новой строки
Дан текстовый файл, содержащий строки. Вывести все слова, каждое с новой строки

Дан текстовый файл. Выведите все строки, которые содержат хотя бы один пробел
Дан текстовый файл. Выведите все строки, которые содержат хотя бы один пробел. Формат входных...

Дано текстовый файл f. Получить все его строки, которые содержат больше, чем 15 символов
Дано текстовый файл f. Получить все его строки, которые содержат больше, чем 15 символов.

1
1 / 1 / 7
Регистрация: 04.12.2017
Сообщений: 74
10.12.2017, 13:43  [ТС] 2
Вот правильный код
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
var a:array [1..100] of string;
f:text;
s,s1:string;
i,n,n1:integer;
begin
assign(f, 't1.txt');
reset(f);
while not eof(f) do begin
  readln (f,s);
  s:=s+' ';
  n1:=length(s);
  n:=0;
  i:=1;
  while (i<=n1) do begin
    s1:='';
    while (s[i]<>' ') do begin
      s1:=s1+s[i];
      i:=i+1;
    end;
    if (s1<>'') then begin
      n:=n+1;
      A[n]:=s1;
    end;
    i:=i+1;
  end;
  for i:=1 to n do
    if (length(a[i])<4) then write(A[i], ' ');    
    writeln();
  end;
  close(f);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2017, 13:43
Помогаю со студенческими работами здесь

Задан текстовый файл. Переписать в другой файл, те строки из первого файла, которые содержат менее 5 слов
Помогите решить задачу пожалуйста! Заданный текстовый файл. Переписать в другой файл, те строки из...

Дан текст. Найти все слова, которые содержат символ «t» и встречаются в тексте не менее 2 раз
Дан текст. Найти все слова, которые содержат символ «t» и встречаются в тексте не менее 2 раз

Вывести слова в строке, которые содержат больше 6 символов
Привет. Пробывал использовать strlen для подсчета количества символов,но считывает всю длину...

Дан текстовый файл, содержащий строки. Напечатать слова в порядке убывания
Дан текстовый файл, содержащий строки. Напечатать слова в порядке убывания

Дан символ 'C' (прописная латинская буква) и текстовый файл. Создать строковый файл, содержащий все слова из исходного файла
Дан символ 'C' (прописная латинская буква) и текстовый файл. Создать строковый файл, содержащий все...

Дан текстовый файл, содержащий строки. Исключить из файла слова begin и end
Дан текстовый файл, содержащий строки. Исключить из файла слова begin и end. Окно работающего...


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

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

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