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

@Flash · Регистрация: 04.05.2014

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

@Svager · 04.05.2014, 12:36

Flash, то есть если будет в текстовом файле

Pascal

aaffff
cccddddaa
должно быть 
af
cda

@Flash · 04.05.2014, 12:43 **[ТС]**

да.

@Svager · 04.05.2014, 13:21

Pascal

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.

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

Решение

Решение

@Flash 1 / 1 / 0 Регистрация: 04.05.2014 Сообщений: 51
		1
	Дан текстовый файл. Создать символьный файл, содержащий все символы 04.05.2014, 12:07. Показов 3492. Ответов 3 Метки нет (Все метки) Дан текстовый файл. Создать символьный файл, содержащий все символы, встретившиеся в тексте, включая пробел и знаки препинания (без повторений). Символы располагать в порядке их первого появления в тексте. P.S. Нужен код целой программы. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Flash 1 / 1 / 0 Регистрация: 04.05.2014 Сообщений: 51
	04.05.2014, 12:43 [ТС]	3
	да. 0

Опции темы