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

Дана строка содержащая текст заканчивающийся точкой. Вывести на экран слова содержащие 3 буквы

22.06.2012, 17:42. Показов 18625. Ответов 4
Метки нет (Все метки)

Дана строка содержащая текст заканчивающийся точкой. Вывести на экран слова содержащие 3 буквы.

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

Дана строка из 25 слов. Вывести на экран все слова строки, содержащие ровно две буквы D
Дана строка из 25 слов. Вывести на экран все слова строки, содержащие ровно две буквы D. Заранее...

Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы
Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.

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

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

4
176 / 144 / 70
Регистрация: 01.05.2012
Сообщений: 414
22.06.2012, 18:18 2
Вот! Держи!

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
program str;
uses crt;
var
   s: string;
   n,nsl,ksl,kol,i:byte;
begin
  writeln('Введите строку: ');
  readln(s);
  s:=' '+s;
  n:=length(s);
 
  for i:=1 to n do
  begin
      if (s[i]=' ') and (s[i+1]<>' ') and (s[i+1]<>'.') then
         nsl:=i+1;
 
      if (s[i]<>' ') and (s[i]<>'.') and ((s[i+1]='.') or (s[i+1]=' ')) then
      begin
         ksl:=i;
         if ((ksl-nsl)+1=3) then kol:=kol+1;
      end; 
  end;
  
  writeln('Слов из 3-х букв ',kol);
 
end.
0
1 / 1 / 0
Регистрация: 21.06.2012
Сообщений: 26
22.06.2012, 18:37  [ТС] 3
Спасибо но надо чтоб выводил слова которые из 3х букв а не считал их.
0
176 / 144 / 70
Регистрация: 01.05.2012
Сообщений: 414
22.06.2012, 18:56 4
Вот)

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
program str;
uses crt;
var
   s: string;
   slova: array [1..50] of string;
   n,nsl,ksl,kol,i:byte;
begin
  writeln('Ââåäèòå ñòðîêó: ');
  readln(s);
  s:=' '+s+' ';
  n:=length(s);
  writeln('Ñëîâà èç 3-õ áóêâ: ');
  for i:=1 to n do
  begin
      if (s[i]=' ') and (s[i+1]<>' ') and (s[i+1]<>'.') then
         nsl:=i+1;
 
      if (s[i]<>' ') and (s[i]<>'.') and ((s[i+1]='.') or (s[i+1]=' ')) then
      begin
         ksl:=i;
         if ((ksl-nsl)+1=3) then
         begin
           kol:=kol+1;
           slova[kol]:=copy(s,nsl,3);
           writeln(slova[kol]);
         end;
      end;
  end;
 
  writeln('Ñëîâ èç 3-õ áóêâ ',kol);
 
end.
1
1 / 1 / 0
Регистрация: 21.06.2012
Сообщений: 26
22.06.2012, 19:09  [ТС] 5
Благодарю=))))
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2012, 19:09
Помогаю со студенческими работами здесь

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

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

Вывести на экран слова, содержащие 3 буквы
Ввести строку, содержащую текст с точками. В тексте до второй точки посчитать количество и вывести...

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


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

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

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