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

@Yelowcards · Регистрация: 18.03.2013

Есть программа, которая считывает количество повторяемых символов в текстовом файле, и показывает его целым числом.
Как задать что бы оно считало сколько раз повторяется символ в каждой отдельной строке и выводило его на каждую строку отдельно?

Pascal

Var
  c,x: Char;
  f: Text;
  k: Integer;
BEGIN
Assign(f,'1.txt');
Reset(f);
If IOResult=0 Then
begin
  Write('Input symbol: ');
  Readln(c);
  While not Eof(f) do
  begin
    Read(f,x);
    If x=c Then
    k:=k+1;
  end;
  Close(f);
  Writeln(k);
end
Else
Writeln('File not found');
Readln
END.

@Joker_vad · 02.07.2013, 15:10

нужно уже читать не по символьно с помощью оператора read а по-строчно с помощью оператора readln, соответственно тип у Х будет уже не Char, а string, полученную строку также читать по-символьно в цикле. А затем выводить значение счетчика и обнулять

@Joker_vad 476 / 413 / 93 Регистрация: 26.09.2012 Сообщений: 1,908
	02.07.2013, 15:10	2
	нужно уже читать не по символьно с помощью оператора read а по-строчно с помощью оператора readln, соответственно тип у Х будет уже не Char, а string, полученную строку также читать по-символьно в цикле. А затем выводить значение счетчика и обнулять 0

Опции темы