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

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

04.05.2014, 12:07. Показов 3492. Ответов 3
Метки нет (Все метки)

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

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

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

Дан текстовый файл M8.TXT, содержащий нечетное количество строк. Создать новый файл
Дан текстовый файл M8.TXT, содержащий нечетное количество строк. Создать новый файл, в который...

Дан текстовый файл g. Создать новый файл f и записать в него все слова файла g с количеством символов больше 4 и меньш 6
Дан текстовый файл g. Создать новый файл f и записать в него все слова файла g с количеством...

3
399 / 378 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
04.05.2014, 12:36 2
Лучший ответ Сообщение было отмечено Flash как решение

Решение

Flash, то есть если будет в текстовом файле
Pascal
1
2
3
4
5
aaffff
cccddddaa
должно быть 
af
cda
1
1 / 1 / 0
Регистрация: 04.05.2014
Сообщений: 51
04.05.2014, 12:43  [ТС] 3
да.
0
399 / 378 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
04.05.2014, 13:21 4
Лучший ответ Сообщение было отмечено Flash как решение

Решение

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
41
uses crt;
var f:text;
    g:file of char;
    c:char;
    let:set of 'a'..'z';
    pr:set of char;
begin
 clrscr;
 pr:=[',','.',' ','+','-'];
  assign(f,'f.txt');
   assign(g,'g.txt');
  reset(f);
   rewrite(g);
  let:=[]; pr:=[];
  while not eof(f) do
   begin
    read(f,c);
     while not(eoln(f)) do
      begin
       if not(c in let) and not( c in pr) then
        begin
         write(g,c);
         let:=let+[c];
         pr:=pr+[c];
        end;
       read(f,c);
      end;
     let:=[];
    pr:=[];
   end;
  reset(g);
   writeln('Ñîäåðæàíèå ñèìâîëüíîãî ôàéëà :');
    while not eof(g) do
     begin
      read(g,c);
       write(c);
     end;
   close(f);
  close(g);
 readkey;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.05.2014, 13:21
Помогаю со студенческими работами здесь

Создать символьный файл, содержащий все знаки препинания, встретившиеся в текстовом файле(в том же порядке)
5. Дан текстовый файл. Создать символьный файл, содержащий все знаки препинания, встретившиеся, в...

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

Дан файл целых чисел. Создать новый файл, содержащий те же элементы, что и исходный файл, но в обратном порядке
Пожалуйста, помогите решить задачу в PascalABC!!! Дан файл целых чисел. Создать новый файл,...

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

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

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


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

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

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