Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Вычислить сумму ряда с точностью E https://www.cyberforum.ru/ turbo-pascal/ thread1479705.html
\sum_{i=1}^\infty {e}^{-\sqrt{i}} При приближенном вычислении суммы ряда расчет выполнять с точностью E. Использовать цикл с предусловием и цикл с постусловием. program pr_dv2; uses crt;...
Turbo Pascal Отсортировать по убыванию положительные элементы массива
Отсортировать по убыванию положительные элементы массива.
Turbo Pascal Рассчитать сумму первых N членов арифметической прогрессии https://www.cyberforum.ru/ turbo-pascal/ thread1479563.html
1)Рассчитать сумму "S" первых N членов арифметической прогрессии A1, A2, . . . , AN по формуле: S= (A1 + AN)*N/2. A1, AN, N - исходные данные 2)Рассчитать сумму "S" первых N членов...
Turbo Pascal Вывести на экран таблицу перевода из градусов по шкале Цельсия в градусы по Фаренгейту https://www.cyberforum.ru/ turbo-pascal/ thread1479557.html
1)Вывести на экран таблицу перевода из градусов по шкале Цельсия в градусы по Фаренгейту для значений от 15С до 30С с шагом в 1С. Перевод осуществляется по формуле: F=C*1.8+32. Program zf; Var...
Указать номер покупателя, для обслуживания которого продавцу потребовалось наименьшее время Turbo Pascal
Помогите с курсачем, завтра завтра последний срок, а я только очнулся... Возле прилавка в магазине в очереди n количество человек. Время обслуживания покупателя под номером i, равно t....
Turbo Pascal Сформировать матрицу по правилу Нужно сформировать матрицу N8, как сделать чтобы с определенного числа спускалось до нуля и обратно? Оформить процедуру формирования матрицы T по ее внешнему виду для любого заданного порядка n... https://www.cyberforum.ru/ turbo-pascal/ thread1479538.html
Turbo Pascal Скопировать данную строку в конец файла https://www.cyberforum.ru/ turbo-pascal/ thread1479519.html
Составьте текстовый файл p разбитый на не пустые строки. Составьте программу копирования данной строки в конце файла. Срочно нужна Заранее огромное спасибо
Найти и вывести на экран сумму чётных элементов в матрице Turbo Pascal
Помогите пожалуйста( Организовать заполнение целочисленного двумерного массива E, размерностью 3x4 . Найти и вывести на экран количество положительных элементов матрицы. Найти и вывести на экран...
Turbo Pascal Определить, попадают ли точки с заданными координатами в заданную область https://www.cyberforum.ru/ turbo-pascal/ thread1479273.html
PASCAL С клавиатуры вводятся: N – количество пробных точек; Xi – абсцисса пробной точки; Yi – ордината пробной точки; Ri – параметр. Результаты вычислений вывести в виде таблицы, состоящей из...
Turbo Pascal Найти среднее арифметическое кодов элементов главной диагонали Добрый вечер форумчани Нужно оформить код программы с помощью процедур(сортировку) и функции(среднее арифметическое кодов элементов главной диагонали), а так же вывести в текстовый файл элементы... https://www.cyberforum.ru/ turbo-pascal/ thread1479094.html
Отсортировать массив методом выбора в порядке возрастания Turbo Pascal
Дан массив целых чисел А . Отсортировать их методом выбора в порядке возрастания . Вычислить среднее арифметическое чисел кратных 5 . Вывести на экран отсортированный массив и вычисленное...
Turbo Pascal Есть массив из 20 чисел, нужно вывести в одну строчку числа которые повторялись, а в другую неповторяющиеся Есть массив из 20 чисел, нужно вывести в одну строчку числа из этого массива которые повторялись, а в другую которые не повторялись.Вот программа которую надо переделать: uses crt; var A:array of... https://www.cyberforum.ru/ turbo-pascal/ thread1478824.html
Эксперт Pascal/Delphi
2371 / 1287 / 1487
Регистрация: 29.08.2014
Сообщений: 4,617
17.06.2015, 06:36 0

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

17.06.2015, 06:36. Показов 1213. Ответов 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.


Вернуться к обсуждению:
Подсчитать количество предложений в строке, чтобы они начинались с заглавной буквы и заканчивались"." "?" "!" Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.06.2015, 06:36
Готовые ответы и решения:

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

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

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

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

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.06.2015, 06:36

Проверить слово "Дом" и содержит ли оно буквы: "а" , "б" ,"о","д"
программа должна проверить слово &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) Вывести...

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