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

Ввести с клавиатуры строку S1 длиной до семидесяти символов. В строку S2 перенести все слова которые имеют удвоение бук

09.05.2019, 21:54. Показов 1361. Ответов 3
Метки нет (Все метки)

Ввести с клавиатуры строку S1 длиной до семидесяти символов. В строку S2 перенести все слова которые имеют удвоение букв.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.05.2019, 21:54
Ответы с готовыми решениями:

ввести строку длиной 70 символов, а в другую строку перенести все слова из этой строки, которые имеют удвоение букв.
помогите сделать .!!!!! нужно ввести строку длиной 70 символов, а в другую строку перенести все...

Ввести строку длиной до 70 символов. Определить, сколько слов из четырех букв входящих в эту строку
Ввести строку длиной до 70 символов. Определить, сколько слов из четырех букв входящих в эту строку

Ввести строку. Выдать все слова, которые имеют длину больше, чем длина последнего слова строки
ввести строку. на печать, выдать все слова, которые имеют длину больше, чем длина последнего слова...

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

3
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
10.05.2019, 08:57 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
27
28
29
30
31
32
33
34
uses crt;
var s,s1:string;
    i,j,q:integer;
begin
clrscr;
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
s:=' '+s; {добавим пробел в начало для удобства}
i:=1;
q:=0;
writeln('Слова с удвоенными буквами');
while i<length(s) do{идем по строке}
if (s[i]<>' ')and(s[i-1]=' ') then {если не пробел, а перед ним пробел, новое слово}
 begin
  s1:='';
  j:=i;
  while(j<=length(s))and(s[j]<>' ') do {составим его}
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  j:=1;
  while(j<length(s1))and(s1[j]<>s1[j+1])do inc(j);
  if j<length(s1) then
   begin
    q:=1;
    write(s1,' ');
   end;
  i:=i+length(s1);{перешагнем через слово}
 end
else i:=i+1; {пропускаем пробелы}
if q=0 then write('Таких слов нет');
readln
end.
0
0 / 0 / 0
Регистрация: 03.05.2019
Сообщений: 15
12.05.2019, 23:04  [ТС] 3
эта программа немного не работает
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
13.05.2019, 09:07 4
Эта программа нормально работает в Turbo и Free Pascal.
Миниатюры
Ввести с клавиатуры строку S1 длиной до семидесяти символов.  В строку S2 перенести все слова которые имеют удвоение бук  
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.05.2019, 09:07
Помогаю со студенческими работами здесь

Ввести с клавиатуры строку символов.....если длина кратна 2 то удалаются числа которые делятся на 2
Ввести с клавиатуры строку символов.Признак окончания строки-нажатие клавиши ввод.программа должна...

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

Ввести с клавиатуры строку. Выдать на экран все слова из этой строки ...
Помогите сделать 2 задачи на С 1 Ввести с клавиатуры строку. Выдать на экран все слова из...

Ввести строку и определить, содержат ли все слова заданную с клавиатуры букву
Может кто-нибудь помочь с задачей?Хотя бы алгоритм решения,необязательно код прописывать


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

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

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