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

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

28.04.2013, 14:28. Показов 3879. Ответов 6
Метки нет (Все метки)

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

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

С клавиатуры вводится предложение, в котором все слова разделены пробелами. Определите, сколько слов
С клавиатуры вводится предложение, в котором все слова разделены пробелами. Определите, сколько...

Дан текст, заканчивающийся точкой. Соседние слова разделены запятыми. Определить количество слов-палиндромов, которые начинаются с буквы "а".
Дан текст, заканчивающийся точкой. Соседние слова разделены запятыми. Определить количество...

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

6
25 / 25 / 28
Регистрация: 20.03.2011
Сообщений: 150
28.04.2013, 18:36 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var s,p:string; b:char; i:integer;
Begin
read(s);
readln;
read(b);
for i:=1 to length(s) do
 if not(s[i]=' ') and not(i=length(s))then p:=p+s[i]
 else
begin
if i=length(s) then p:=p+s[i];
if upcase(p[1])=upcase(b) then Write(p,' ');{???? ????? ????????, ?? ??????? ?????}
p:='';
end;
  readln;readln
End.
0
5 / 5 / 0
Регистрация: 15.04.2013
Сообщений: 118
13.05.2013, 12:38  [ТС] 3
Задача заключалась в следующем: Дано предложение. Определить все слова, которые начинаются с заданной буквы. Слова в предложении разделены пробелами. На форуме был предложен следующий вариант программы:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program _1;
    Var s,p:string; b:char; i:integer;
Begin
writeln('Введите текст ');
readln(s);
writeln('Введите символ ');
readln(b);
for i:=1 to length(s) do
 if not(s[i]=' ') and not(i=length(s))then p:=p+s[i]
 else
begin
if i=length(s) then p:=p+s[i];
if upcase(p[1])=upcase(b) then Write(p,' ');
p:='';
end;
 
End.
Работает она правильно, но вот не могли ли бы объяснить, что делает каждая строка? Или может предложите свой вариант программы со своими вариантами.
0
5 / 5 / 0
Регистрация: 15.04.2013
Сообщений: 118
19.05.2013, 14:31  [ТС] 4
up!
0
5 / 5 / 0
Регистрация: 15.04.2013
Сообщений: 118
28.05.2013, 11:08  [ТС] 5
UP!
0
SausageFlat
242 / 221 / 154
Регистрация: 19.08.2012
Сообщений: 499
Записей в блоге: 1
28.05.2013, 11:28 6
Держите вот такой вариант:

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
var
  s, s2: string;
  c: char;
  i, p: integer;
 
begin
  Readln(s);
  Write('Символ: ');
  s := s + ' ';
  Readln(c);
  i := 1;
  while (i < length(s)) do
  begin
    if (c = s[1]) then
    begin
      p := pos(' ', s);
      s2 := s2 + copy(s, 1, p);
      delete(s, 1, p);
    end
    else
    begin
      p := pos(' ', s);
      delete(s, 1, p);
    end;
    inc(i);
  end;
  Writeln(s2);
end.
1
5 / 5 / 0
Регистрация: 15.04.2013
Сообщений: 118
28.05.2013, 12:35  [ТС] 7
спасибо за помощь. вроде все понятно.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.05.2013, 12:35
Помогаю со студенческими работами здесь

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

С клавиатуры вводится предложение, в котором слова разделены пробелами. определите, сколько слов в этом предло
С клавиатуры вводится предложение, в котором слова разделены пробелами. определите, сколько слов в...

Дано предложение. Напечатать все слова, которые встречаются в нем по одному разу.
Очень нужна помощь в написании программы, что ниже. Заранее ОГРОМНОЕ спасибо! - Задача 2. Дано...

Удалить слова, которые содержат все буквы заданного слова, и продублировать остальные слова
Разделитель — один из символов « ,.;:!?&quot;'» (начиная с пробела и заканчивая апострофом). Буква —...


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

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

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