Подсчитать число вхождений в символьный файл каждой из букв a,b,c,d

@rulevoi-123 · Регистрация: 17.11.2011

Author24 — интернет-сервис помощи студентам

помогите пожалуйста!
Дан символьный файл f. Подсчитать число вхождений в файл каждой из букв a,b,c,d.

@SuPeR XaKer · 04.01.2012, 21:38

Комментарий модератора

rulevoi-123, Называйте темы информативно.

@WebMax 2.0 · 04.01.2012, 22:20

Pascal

 uses crt;
 
 var f:file of char;
 i,x:integer;
 s:string;
 j,h:char;
 
 begin
 clrscr;
    assign(f,'input.txt');
    rewrite(f);
    Write('Введите любую строку для записи символов в файл: ');
    readln(s);
    For i:=1 to length(s) do
        If s[i]<>' ' then write(f,s[i]);
    close(f);
{-------------------- символьный файл создан ------------------}
    reset(f);
    For j:='a' to 'd' do
    begin
    x:=0;
    while not eof(f) do
      begin
      read(f,h);
      If h=j then inc(x);
      end;
    Writeln('Число вхождений "',j,'" - ',x);
    seek(f,0);
    end;
    close(f);
    readkey;
 end.

@rulevoi-123 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 24
		1
	Подсчитать число вхождений в символьный файл каждой из букв a,b,c,d 04.01.2012, 21:37. Показов 3287. Ответов 2 Метки нет (Все метки) помогите пожалуйста! Дан символьный файл f. Подсчитать число вхождений в файл каждой из букв a,b,c,d. 0

	04.01.2012, 22:20

Подсчитать число вхождений в символьный файл каждой из букв a,b,c,d

Решение