Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 08.02.2015
Сообщений: 25
1

Подсчитать количество предложений в строке, чтобы они начинались с заглавной буквы и заканчивались"." "?" "!"

16.06.2015, 16:14. Показов 1196. Ответов 2
Метки нет (Все метки)

Буду очень благодарен
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.06.2015, 16:14
Ответы с готовыми решениями:

Подсчитать количество цифр "5", "6" и "7" (в отдельности) содержащихся в данной строке
Составить алгоритм и программу обработки введенной с клавиатуры строки с использованием стандартных...

Подсчитать количество букв "й", "ы" и "я", содержащихся в заданной строке.
нужна помощь, помогите пожалуйста: Подсчитать количество букв "й", "ы" и "я" (в отдельности),...

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

В строке все буквы "а" заменить буквой "б" и наоборот, если они есть
В строке все буквы "а" заменить буквой "б" и наоборот, если они есть

2
Эксперт Pascal/Delphi
2371 / 1287 / 1487
Регистрация: 29.08.2014
Сообщений: 4,615
17.06.2015, 06:36 2
Лучший ответ Сообщение было отмечено Vlad12 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  s,t:string;
  i,j:integer;
begin
  write('Введите строку:');
  readln(s);
  for i:=1 to length(s) do
    if s[i] in ['.','!','?'] then begin
      while (t<>'') and (t[1]=' ') do delete(t,1,1);
      if (t<>'') and
         (pos(t[1],'ABCDEFGHIJKLMNOPQRSTUVWXYZАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧЪЬШЩЭЮЯ')>0)
      then j:=j+1;
      t:='';
    end else t:=t+s[i];
  writeln('Предложений:',j);
end.
1
0 / 0 / 0
Регистрация: 08.02.2015
Сообщений: 25
17.06.2015, 10:51  [ТС] 3
Большое спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.06.2015, 10:51

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Проверить слово "Дом" и содержит ли оно буквы: "а" , "б" ,"о","д"
программа должна проверить слово &quot;Дом&quot; и содержит ли оно буквы: &quot;а&quot; , &quot;б&quot;...

Ввести строку. Заменить все буквы "е" и "а" в тексте на "8" , "4" и "6". Вывести на экран модифицированную строку
Ввести строку. Заменить все буквы &quot;е&quot; и &quot;а&quot; в тексте на &quot;8&quot; , &quot;4&quot; и &quot;6&quot;. Вывести на...

Составить фразу "программное обеспечение" из слов "программист", "оборот", "анчоус", "измерение"
Составить фразу &quot;программное обеспечение&quot; из слов &quot;программист&quot;, &quot;оборот&quot;, &quot;анчоус&quot;,...

Составить фразу "письменный стол" из слов "тесненный", "полка", "речь", "миф".
1) Составить фразу &quot;письменный стол&quot; из слов &quot;тесненный&quot;, &quot;полка&quot;, &quot;речь&quot;, &quot;миф&quot;. 2) Вывести...


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

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

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