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

В заданном тексте определить количество слов, которые заканчиваются на букву А

13.11.2013, 22:52. Показов 3520. Ответов 4
Метки нет (Все метки)

Помогите написать програму.. В заданном тексте определить количество слов, которые заканчиваются на букву А.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.11.2013, 22:52
Ответы с готовыми решениями:

В заданном тексте определить количество слов, которые заканчиваются на букву А
Помогите перевести программу из АВС в Турбо Паскаль заранее спасибо.:declare: var s : string;...

Посчитать количество слов в тексте, которые заканчиваются на гласную букву
С клавиатуры вводится строка. Составить программу, которая подсчитывает количество слов в тексте,...

Подсчитать количество слов в тексте, которые заканчиваются на гласную букву
С клавиатуры вводится текстовый рядок. Написать программу, которая подсчитывает ко-во слов в...

Подсчитать количество слов в тексте, которые заканчиваются на гласную букву
С клавиатуры вводится строка. Разработать программу, которая реализует указанные действия. а)...

4
Супер-модератор
5911 / 2690 / 1298
Регистрация: 04.03.2013
Сообщений: 5,631
Записей в блоге: 1
14.11.2013, 08:28 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  s : string;
  i, k : integer;
begin
  k := 0;
  write('строка: ');
  readln(s);
  s := ' ' + s; 
  for i := 1 to length(s) - 1 do
    if (s[i] = ' ') and (s[i+1] = 'A') then inc(k);
  write('количество слов на букву A: ', k);
  readln
end.
1
0 / 0 / 0
Регистрация: 18.10.2013
Сообщений: 46
14.11.2013, 12:43  [ТС] 3
ildwine, а как сделать чтобы выводило которые заканчиваются на букву А?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31244 / 20423 / 7961
Регистрация: 22.10.2011
Сообщений: 35,454
Записей в блоге: 6
14.11.2013, 12:45 4
ildwine, не начинаются, а заканчиваются...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses strutils;
 
var
  s, w : string;
  i, k : integer;
begin
  k := 0;
  write('строка: '); readln(s);
  i := 0;
  repeat
    inc(i);
    w := ExtractDelimited(i, s, [' ']);
    if w[length(w)] = 'A' then
    begin
      writeln(w); inc(k);
    end;
  until w = '';
  write('количество слов, заканчивающихся на букву A: ', k);
  readln
end.
1
Супер-модератор
5911 / 2690 / 1298
Регистрация: 04.03.2013
Сообщений: 5,631
Записей в блоге: 1
14.11.2013, 12:56 5
UI, krack, извиняюсь, криво прочитал...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  s : string;
  i, k : integer;
begin
  k := 0;
  write('строка: ');
  readln(s);
  s := s + ' '; 
  for i := length(s) downto 1 do
    if (s[i] = ' ') and (s[i-1] = 'A') then inc(k);
  write('количество слов, заканчивающихся на букву A: ', k);
  readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.11.2013, 12:56

Строка: Подсчитать количество слов в тексте, которые заканчиваются на гласную букву...
Оформить каждый пункт задачи выбранного варианта в виде функции. Все необходимые данные для функций...

Текстовые файлы: Определить количество слов, которые заканчиваются на определенную букву.
Здравствуйте. Вот такое задание: Определить коичество слов в файле, который заканчиваются буквой...

Определить количество слов, которые начинаются и заканчиваются на одну и туже букву
Дано рядок, що складається з російських слів, розділених пробілами (одним або кількома). Визначити...

Определить количество слов в тексте, которые начинаются и заканчиваются гласной буквой
В файле дан текст, состоящий из нескольких предложений на русском языке. Предложения заканчиваются...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.