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

@olya10 · Регистрация: 03.05.2019

Студворк — интернет-сервис помощи студентам

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

@Puporev · 11.05.2019, 12:51

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.

@Komar13 · 28.04.2021, 17:04

Puporev, можно ли тип string переобразовать в array of char ?

@Puporev · 28.04.2021, 19:47

А здесь и так символьный массив.

Pascal
2
var s1,s2,s:array[1..71] of char;

Новые блоги и статьи Все статьи Все блоги /
Генераторы Python для эффективной обработки данных AI_Generated 21.05.2025 В Python существует инструмент настолько мощный и в то же время недооценённый, что я часто сравниваю его с тайным оружием в арсенале программиста. Речь идёт о генераторах — одной из самых элегантных. . .	Чем заменить Swagger в .NET WebAPI stackOverflow 21.05.2025 Если вы создавали Web API на . NET в последние несколько лет, то наверняка сталкивались с зелёным интерфейсом Swagger UI. Этот инструмент стал практически стандартом для документирования и. . .	Использование Linq2Db в проектах C# .NET UnmanagedCoder 21.05.2025 Среди множества претендентов на корону "идеального ORM" особое место занимает Linq2Db — микро-ORM, балансирующий между мощью полноценных инструментов и легковесностью ручного написания SQL. Что. . .	Реализация Domain-Driven Design с Java Javaican 20.05.2025 DDD — это настоящий спасательный круг для проектов со сложной бизнес-логикой. Подход, предложенный Эриком Эвансом, позволяет создавать элегантные решения, которые точно отражают реальную предметную. . .	Возможности и нововведения C# 14 stackOverflow 20.05.2025 Выход версии C# 14, который ожидается вместе с . NET 10, приносит ряд интересных нововведений, действительно упрощающих жизнь разработчиков. Вы уже хотите опробовать эти новшества? Не проблема! Просто. . .
Собеседование по Node.js - вопросы и ответы Reangularity 20.05.2025 Каждому разработчику рано или поздно приходится сталкиватся с техническими собеседованиями - этим стрессовым испытанием, где решается судьба карьерного роста и зарплатных ожиданий. В этой статье я. . .	Cython и C (СИ) расширения Python для максимальной производительности py-thonny 20.05.2025 Python невероятно дружелюбен к начинающим и одновременно мощный для профи. Но стоит лишь заикнуться о высокопроизводительных вычислениях — и энтузиазм быстро улетучивается. Да, Питон медлительнее. . .	Безопасное программирование в Java и предотвращение уязвимостей (SQL-инъекции, XSS и др.) Javaican 19.05.2025 Самые распространёные векторы атак на Java-приложения за последний год выглядят как классический "топ-3 хакерских фаворитов": SQL-инъекции (31%), межсайтовый скриптинг или XSS (28%) и CSRF-атаки. . .	Введение в Q# - язык квантовых вычислений от Microsoft EggHead 19.05.2025 Microsoft вошла в гонку технологических гигантов с собственным языком программирования Q#, специально созданным для разработки квантовых алгоритмов. Но прежде чем погружаться в синтаксические дебри. . .	Безопасность Kubernetes с Falco и обнаружение вторжений Mr. Docker 18.05.2025 Переход организаций к микросервисной архитектуре и контейнерным технологиям сопровождается лавинообразным ростом векторов атак — от тривиальных попыток взлома до многоступенчатых кибератак, способных. . .

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

	В строку S2 перенести все слова, которые имеют удвоение букв 10.05.2019, 22:37. Показов 1043. Ответов 3 Метки нет (Все метки) Ввести с клавиатуры строку S1 длиной до семидесяти символов. В строку S2 перенести все слова которые имеют удвоение букв. Через масив 0

@Komar13 0 / 0 / 0 Регистрация: 10.03.2021 Сообщений: 42
	28.04.2021, 17:04
	Puporev, можно ли тип string переобразовать в array of char ? 0

Опции темы