Файлы: найти частоту появления буквы "а" в каждом слове текста

@Xuck1234 · Регистрация: 09.05.2015

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

В заданном тексте слова разделяются символами: "," "." "-" ":" ";" " " "!" "?". Требуется найти частоту появления в каждом слове буквы "а"

@bormant · 03.07.2015, 15:05

Pascal

const
  Delims=[',', '.', '-', ':', ';', ' ', '!', '?'];
var
  s: String;
  i, m, n, w: Integer;
begin
  Write('Введите текст: '); ReadLn(s);
  s:=s+' '; w:=0; m:=0; n:=0;
  for i:=1 to Length(s) do
    if (s[i] in Delims) and (n>0) then begin
      Inc(w); WriteLn(w:3,':',m/n*100:6:1,'%');
      m:=0; n:=0;
    end else begin
      if s[i] in ['A','a'] then Inc(m);
      Inc(n);
    end;
end.

@ZX Spectrum-128 · 03.07.2015, 17:17

Xuck1234, в заголовке слово "файлы". Требуется выполнить задание с текстовым файлом?

@Xuck1234 · 03.07.2015, 17:56 **[ТС]**

ZX Spectrum-128, да

@bormant · 04.07.2015, 14:40

Будем считать, что слова в файле input.txt:

Pascal

const
  Delims=[',', '.', '-', ':', ';', ' ', '!', '?'];
var
  s: String;
  i, m, n, w: Integer;
begin
  Assign(input,'input.txt'); Reset(input);
  while not EOF do begin
    ReadLn(s);
    s:=s+' '; w:=0; m:=0; n:=0;
    for i:=1 to Length(s) do
      if (s[i] in Delims) and (n>0) then begin
        Inc(w); WriteLn(w:3,':',m/n*100:6:1,'%');
        m:=0; n:=0;
      end else begin
        if s[i] in ['A','a'] then Inc(m);
        Inc(n);
      end;
  end;
end.

Файлы: найти частоту появления буквы "а" в каждом слове текста

Решение

Решение

@Xuck1234 0 / 0 / 0 Регистрация: 09.05.2015 Сообщений: 34
		1
	Файлы: найти частоту появления буквы "а" в каждом слове текста 01.07.2015, 15:47. Показов 2012. Ответов 4 Метки нет (Все метки) В заданном тексте слова разделяются символами: "," "." "-" ":" ";" " " "!" "?". Требуется найти частоту появления в каждом слове буквы "а" 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	03.07.2015, 17:17	3
	Xuck1234, в заголовке слово "файлы". Требуется выполнить задание с текстовым файлом? 0

@Xuck1234 0 / 0 / 0 Регистрация: 09.05.2015 Сообщений: 34
	03.07.2015, 17:56 [ТС]	4
	ZX Spectrum-128, да 0

	04.07.2015, 14:40