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

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

10.05.2019, 22:37. Показов 883. Ответов 3
Метки нет (Все метки)

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

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

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

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

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

3
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
11.05.2019, 12:51 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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
uses crt;
var s1,s2,s:array[1..71] of char;
    c:char;
    n,m,k,i,j,p:integer;
begin
clrscr;
writeln('Введите посимвольно строку из слов длиной до 70 символов разделенных пробелами');
writeln('в том числе слова с удвоенными буквами, окончание ввода Enter');
n:=1;
s1[1]:=' ';//первым запишем пробел
repeat
c:=readkey;
if (n<=71)and(c<>#13) then
 begin
  write(c);
  inc(n);
  s1[n]:=c;
 end
else writeln
until (n=71)or(c=#13);
m:=0;{размер масссива s2}
for i:=2 to n do
if(s1[i]<>' ')and(s1[i-1]=' ') then {если не пробел, и перед ним пробел, новое слово}
 begin
  k:=0;
  j:=i;
  while (j<=n)and(s1[j]<>' ') do
   begin
    inc(k);
    s[k]:=s1[j];
    inc(j);
   end;
  j:=1;
  while(j<k)and(s[j]<>s[j+1]) do inc(j);
  if j<k then
   begin
    for p:=1 to k do
     begin
      inc(m);
      s2[m]:=s[p];
     end;
    inc(m);
    s2[m]:=' ';
   end;
 end;
if m=0 then write('Слов со сдвоенными буквами нет')
else
 begin
  writeln('Слова со сдвоенными буквами');
  for i:=1 to m do
  write(s2[i]);
 end;
readln
end.
0
0 / 0 / 0
Регистрация: 10.03.2021
Сообщений: 42
28.04.2021, 17:04 3
Puporev, можно ли тип string переобразовать в array of char ?
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
28.04.2021, 19:47 4
А здесь и так символьный массив.
Pascal
2
var s1,s2,s:array[1..71] of char;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.04.2021, 19:47
Помогаю со студенческими работами здесь

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

Вывести все слова строки, в которых есть удвоение букв
Здравствуйте! Задание в сабже. Ввожу в TextBox1 строку, а в итоге нужно получить список слов с...

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

Напечатать те слова, отличные от последнего слова, которые имеют максимальное количество гласных букв
Вообщем помогите разобратся в чём я не прав и в какую сторону мне ровнять руки. Программа...


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

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

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