0 / 0 / 0
Регистрация: 11.07.2014
Сообщений: 2
1

Вывести измененный текст, каждое предложение с которого начинается начинается с заглавной буквы

11.07.2014, 10:21. Показов 1470. Ответов 2
Метки нет (Все метки)

Здравствуйте. Помогите пожалуйста написать программу.
С клавиатуры вводится текст из строчных латинских букв. Текст состоит из нескольких предложений, каждое из которых заканчивается точкой. Ввод прекращается при нажатии клавиши Enter. Произвести следующие операции:
1) вывести измененный текст, каждое предложение с которого начинается начинается с заглавной буквы:
2) напечатать введенные предложения по возрастанию их длин.
Примечание: Все операции над строками выполняются отдельными функциями в том порядке, в котором они описаны в задании.
Заранее спасибо.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.07.2014, 10:21
Ответы с готовыми решениями:

Подсчитать сколько слов начинается с заглавной буквы
Подсчитать сколько слов начинается с заглавной буквы.

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

Определить, сколько слов начинается с той же буквы, с которой начинается первое слово
Добрый день, помогите пожалуйста решить множества: Вводится строка. Определить, сколько слов...

Каждое предложение в тексте сделать с заглавной буквы
Есть текст , в котором стоят запятые , знаки пунктуации и пробелы ( со стандартного ввода )...

2
1643 / 1072 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
11.07.2014, 12:05 2
Лучший ответ Сообщение было отмечено Alex058 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Var
  c : char;
  i : Byte;
  S,st : String;
 
Function UpCh(rc : Char) : Char;  { for TP }
Begin
  If rc in [#160..#175,#224..#239] then
    UpCh:=Chr(Ord(rc)-32*Ord(rc in [#160..#175])-80*Ord(rc in [#224..#239]))
  else UpCh:=UpCase(rc);
end;
 
Function DelSp(ss : String) : String;
Var stemp : String;
Begin
  stemp:=ss;
  While stemp[1]=' ' do Delete(stemp,1,1);
  While stemp[Length(stemp)]=' ' do Delete(stemp,Length(stemp),1);
  DelSp:=stemp;
end;
 
Function ShortS(sh : String) : String;
Var sht : String;
Begin
  If Pos('.',sh)<>0 then
  Begin
    sht:=DelSp(ShortS(Copy(sh,Pos('.',sh)+1,Length(sh)-Pos('.',sh))));
    If sht<>'!empty' then
      If Length(sht)<Length(Copy(sh,1,Pos('.',sh))) then ShortS:=sht
      else ShortS:=Copy(sh,1,Pos('.',sh))
    else ShortS:=Copy(sh,1,Pos('.',sh));
  end
  else ShortS:='!empty';
end;
 
Begin
  S:=' test string 1.test 2. test 3 biggest string . fake str test 4 ';  // Readln(S);
  Writeln(S); Writeln;
  St:=ShortS(DelSp(S));
  While St<>'!empty' do
  Begin
    Writeln(UpCh(St[1])+Copy(St,2,Length(St)-1));
    Delete(S,Pos(St,S),Length(St));
    St:=ShortS(DelSp(S));
  end;
end.
Добавлено через 1 минуту
Result:
test string 1.test 2. test 3 biggest string . fake str test 4

Test 2.
Test string 1.
Test 3 biggest string .
1
0 / 0 / 0
Регистрация: 11.07.2014
Сообщений: 2
11.07.2014, 15:11  [ТС] 3
Спасибо большое
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.07.2014, 15:11

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

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

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

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

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

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


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

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

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