Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 09.05.2015
Сообщений: 34
1

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

01.07.2015, 15:47. Показов 1355. Ответов 4
Метки нет (Все метки)

В заданном тексте слова разделяются символами: "," "." "-" ":" ";" " " "!" "?". Требуется найти частоту появления в каждом слове буквы "а"
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.07.2015, 15:47
Ответы с готовыми решениями:

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте
Задание 1. В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и...

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте
В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву...

Вводится латинские символы до появления символа ".". Вычислить частоту появления каждой буквы
Вводится цепочка латинских символов до появления символа ".".Необходимо вычислить частоту появления...

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву "б" на сочетание "ак",
В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву...

4
Модератор
Эксперт Pascal/DelphiЭксперт NIX
6186 / 3708 / 2562
Регистрация: 22.11.2013
Сообщений: 10,597
Записей в блоге: 1
03.07.2015, 15:05 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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.
0
Эксперт Pascal/Delphi
6768 / 4536 / 4807
Регистрация: 05.06.2014
Сообщений: 22,364
03.07.2015, 17:17 3
Xuck1234, в заголовке слово "файлы". Требуется выполнить задание с текстовым файлом?
0
0 / 0 / 0
Регистрация: 09.05.2015
Сообщений: 34
03.07.2015, 17:56  [ТС] 4
ZX Spectrum-128, да
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
6186 / 3708 / 2562
Регистрация: 22.11.2013
Сообщений: 10,597
Записей в блоге: 1
04.07.2015, 14:40 5
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Будем считать, что слова в файле input.txt:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.07.2015, 14:40

Файлы. Заменить в каждом слове первую букву "а" на "о", удалив все остальные
Ребят напишите пожалуйста код программы: Дан текстовый файл с текстом, заканчивающимся...

Дан текст. В каждом слове текста замените "А" на букву "Е"
Дан текст. В каждом слове текста замените "А" на букву "Е", если А стоит на четном месте, и...

В каждом слове текста замените "а" на букву "е"
help me)) В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и...

В каждом слове текста замените "а" на букву "е"
В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву...

В каждом слове текста замените "а" на букву "е"
В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву...

В каждом слове текста замените "а" на букву "е"
В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru