Определите число вхождений каждого символа в текстовый файле

@PolliMur · Регистрация: 20.03.2017

В файле задан текст. Определите число вхождений каждого символа в этот текст. Результаты выдать на экран и записать в другой файл.

@Joy · 29.04.2017, 15:30

Pascal

var
  f:text;
  a:array[char] of integer;
  c:char;
begin
  assign(f,'input.txt');
  reset(f);
  while not eof(f) do begin
    while not eoln(f) do begin
      read(f,c);
      a[c]:=a[c]+1;
    end;
    readln(f);
  end;
  close(f);
  assign(f,'output.txt');
  rewrite(f);
  for c:=#1 to #255 do 
    if a[c]>0 then begin
      writeln('"',c,'" - ',a[c]);
      writeln(f,'"',c,'" - ',a[c]);
     end;
   close(f);
end.

@PolliMur 0 / 0 / 0 Регистрация: 20.03.2017 Сообщений: 28
		1
	Определите число вхождений каждого символа в текстовый файле 28.04.2017, 23:33. Показов 1127. Ответов 1 Метки нет (Все метки) В файле задан текст. Определите число вхождений каждого символа в этот текст. Результаты выдать на экран и записать в другой файл. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Определите число вхождений каждого символа в текстовый файле

Решение