Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
zdorovkakbyk
1 / 1 / 0
Регистрация: 11.04.2013
Сообщений: 45
1

Удалить из файла слова длиннее 5 символов, результат записать в файл G

17.10.2013, 23:11. Просмотров 823. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста решить эту задачу :
"Дан текстовый файл F. Удалить из файла слова длиннее 5 символов, результат записать в файл G"
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.10.2013, 23:11
Ответы с готовыми решениями:

Удалить из файла слова длиннее 5 символов, результат записать в новый файл
Ребят помогите пожалуйста решить мне это задание : Дан текстовый файл F....

Удалить из символьного файла все однобуквенные слова и пробелы. Результат записать в файл g.
Дан символьный файл f. Группы символов, разделенные пробелами (одним или...

Удалить в текстовом файле все слова в скобках вместе со скобками, а результат записать в другой файл
Нужно написать процедуру: Удалить в текстовом файле все слова в скобках всесте...

Удалить из текстового файла его последнюю строку. Результат записать в другой файл.
Удалить из текстового файла его последнюю строку. Результат записать в другой...

Удалить из типизированного файла пятое число. Результат записать в другой файл
Имеется типизированный файл с числами.Удалить из него пятое число.Результат...

1
Mishania
79 / 79 / 84
Регистрация: 26.09.2012
Сообщений: 341
18.10.2013, 20:20 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

zdorovkakbyk,

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
var
    f,g: text;
    s: string;
    len, i, j: integer;
begin
       Assign(f,'input.txt'); Reset(f);
       Assign(g,'output.txt'); Rewrite(g);
    readln(f,s);
    len:= length(s);
 
    i:= 1; 
    j:= 0; 
    while i<=len do begin
        if s[i] <> ' ' then begin  
            j:= j+1; 
            i:= i+1; 
        end
        else begin 
            if j < 5 then begin  
                delete(s,i-j,j+1); 
                len:= length(s);
                i:= i-j; 
                j:= 0; 
            end
            else begin 
                i:= i+1; 
                j:= 0; 
            end;
        end;
    end;
 
    if j < 5 then 
        delete(s,i-j,j);
 
    writeln(g,s);
    Close(f);
    Close(g);
 readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.10.2013, 20:20

Как записать строку длиннее 255 символов в массив?
Я понимаю, что надо посимвольно копировать каждую введённую букву в массив, но...

Из строки слов выделить слова длиннее восьми символов
Задача: Из строки слов выделить слова длиннее восьми символов(словом считаем...

Удвоить каждый элемент файла f1 через запятую и результат записать в файл f2
задан файл f1 целых чисел.Удвоить каждый элемент файла f1 через запятую и...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru