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

Из заданного предложения выбрать и напечатать только те символы, которые встречаются в нем только 1 раз

08.06.2019, 14:12. Показов 2129. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите, пожалуйста, сделать задачу, чтобы если неповторяющихся символов нет, то выводило что нет таких символов.
Из заданного предложения выбрать и напечатать только те символы, которые встречаются в нем только 1 раз. (в том порядке, в котором они встречаются в тексте).
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.06.2019, 14:12
Ответы с готовыми решениями:

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

Выбрать и напечатать только те символы что встречаются в тексте один раз
Из заданного текста предложения выбрать и напечатать только те символы что встречаются в нем только...

Выбрать из файла только те символы, которые встречаются в нём один раз
Задание: Дан файл,содержащий текст на русском языке,выбрать из него только те символы, которые...

Из заданной символьной строки выбрать те символы, которые встречаются в ней только один раз
Из заданной символьной строки выбрать те символы, которые встречаются в ней только один раз, в том...

1
2373 / 775 / 561
Регистрация: 15.01.2019
Сообщений: 2,394
08.06.2019, 18:32 2
Лучший ответ Сообщение было отмечено anzhela97 как решение

Решение

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
program Project1;
var
  str1: string; //  Переменная для хранения исходной строки.
  str2: string; //  переменная для хранения вычисляемой строки.
  str3: string; // Промежуточная переменная для операций над строками.
  i,j,k,g: integer;   // Вспомогательные переменные для организации циклов.
  ind: integer;       // Вспомогательная переменная для хранения индекса повторяящегося символа.
begin
  str3:='';
  Writeln('Введите строку:');
  Readln(str1);
  str2:= str1;   // Копирование информации из исходной строки в конечную.
  for i:= 1 to length(str1) do   // Цикл для перебора всех символов в строке.
   begin
   k:= 0;
   for j:= i to length(str1) do
     begin
        if (copy(str1,j,1) = copy(str1,i,1)) then  // Условие сравнения символов.
            inc(k);   // Подсчет случаев совпадения.
        if k > 1 then   // Если случаев совпадения больше одного, то ...
          begin
            str3:= copy(str1,i,1); // ... распознается что это за символ
            for g:= 1 to length(str2) do   // ... для всех символов в конечной строке
              begin
                ind:= pos(str3,str2);     // ... узнается индекс найденного символа
                delete(str2,ind,1);        // ... символ удаляется согласно найденному индексу.
              end;
          end;
     end;
 
   end;
  Writeln;
  Writeln('Строка без повторяющихся символов:');
  Writeln(Str2);  // Вычисленная строка выводится на экран.
  Readln;
end.
Добавлено через 12 минут
Забыл написать код про вывод предупреждения о повторяющихся символах.

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
program Project1;
var
  str1: string; //  Переменная для хранения исходной строки.
  str2: string; //  переменная для хранения вычисляемой строки.
  str3: string; // Промежуточная переменная для операций над строками.
  i,j,k,g: integer;   // Вспомогательные переменные для организации циклов.
  ind: integer;       // Вспомогательная переменная для хранения индекса повторяющегося символа.
  reg: boolean;      // Переменная для регистрации события, повторяющихся символов.
begin
  str3:='';
  reg:= false;
  Writeln('Введите строку:');
  Readln(str1);
  str2:= str1;   // Копирование информации из исходной строки в конечную.
  for i:= 1 to length(str1) do   // Цикл для перебора всех символов в строке.
   begin
   k:= 0;
   for j:= i to length(str1) do
     begin
        if (copy(str1,j,1) = copy(str1,i,1)) then  // Условие сравнения символов.
            inc(k);   // Подсчет случаев совпадения.
        if k > 1 then   // Если случаев совпадения больше одного, то ...
          begin
            str3:= copy(str1,i,1); // ... распознается что это за символ
            for g:= 1 to length(str2) do   // ... для всех символов в конечной строке
              begin
                ind:= pos(str3,str2);     // ... узнается индекс найденного символа
                delete(str2,ind,1);        // ... символ удаляется согласно найденному индексу.
              end;
            reg:= true;
          end;
     end;
 
   end;
  Writeln;
  if reg then  // Проверка на событие повторяющихся символов.
    begin
     Writeln('Строка без повторяющихся символов:');
     Writeln(Str2);  // Вычисленная строка выводится на экран.
    end
  else
     Writeln('Повторяющихся символов в данной строке нет.');
  Readln;
end.
1
08.06.2019, 18:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.06.2019, 18:32
Помогаю со студенческими работами здесь

Из заданной символьной строки выбрать те символы, которые встречаются в ней только один раз
Из заданной символьной строки выбрать те символы ,которык встречаются в ней только один раз,в том...

Вывести только те символы, которые встречаются в тексте только один раз
Из заданного текста предложения выберите и выведите на экран только те символы, которые встречаются...

Напечатать слова, которые встречаются в предложениях только 1 раз
Ребята! Такая задача - Даны 2 предложения.Напечатать слова, которые встречаются в предложениях...

Вывести на экран те символы, которые встречаются в строке только один раз
Для заданной символьной строки вывести на экран те символы, которые встречаются в ней только один...


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

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

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