Форумчанин Паскаля
77 / 90 / 55
Регистрация: 08.11.2013
Сообщений: 399
Записей в блоге: 2
1

Вывести буквы строки, которые встречаются 1 раз

22.03.2014, 19:23. Показов 4571. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Подскажите идею по строкам. Дан текст надо найти те буквы которые в данном тексте встречаются 1 раз, при чом вывести в том порядке в котором они встречаются.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.03.2014, 19:23
Ответы с готовыми решениями:

Распечатайте буквы, которые встречаются в каждом слове текста только один раз
Пусть дан текст. Распечатайте те буквы, которые встречаются в каждом слове текста только один раз.

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

Отсортировать массив и вывести элементы массива, которые встречаются ровно K раз
Напишите программу, которая сортирует массив и выводит все элементы массива, которые встречаются...

Дана символьная строка. Вывести на экран те символы которые встречаются в строке более 3х раз
Работа со строками. Дана символьная строка. Вывести на экран те символы которые встречаются в...

3
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,587
Записей в блоге: 1
23.03.2014, 07:29 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Var S:string;
    i,j,k:byte;
Begin
    write('Введите строку: ');readln(s);
    For i:=1 to Length(s) do
    Begin
      k:=0;
      For j:=1 to Length(s) do
       if s[i]=s[j] then inc(k);
      if k=1 then write(s[i]:2);
    End;
End.
Простой перебор
2
Форумчанин Паскаля
77 / 90 / 55
Регистрация: 08.11.2013
Сообщений: 399
Записей в блоге: 2
24.03.2014, 00:03  [ТС] 3
Я то так и думал но вот только не будет ли это очень долго если текст ну например 1000 символом и сложность будет 1000*1000 или 10000*10000??? Подскажите пожалуйста или просто перебором?
0
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,587
Записей в блоге: 1
24.03.2014, 14:01 4
Цитата Сообщение от code-n'-help Посмотреть сообщение
Я то так и думал но вот только не будет ли это очень долго если текст ну например 1000 символом и сложность будет 1000*1000 или 10000*10000??? Подскажите пожалуйста или просто перебором?
тогда можно так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var S:string;
    i,j,k:byte;
    ch:char;
Begin
    write('Введите строку: ');readln(s);
    i:=1;
    While i<=Length(s) do
    Begin
      k:=0;
      For j:=i+1 to Length(s) do
       if s[i]=s[j] then inc(k);
      if k=0 then write(s[i]:2);
      ch:=s[i];
      While Pos(ch,s)>0 do Delete(s,Pos(ch,s),1);
    End;
End.
Проверял на Pascal Abc.Net
2
24.03.2014, 14:01
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.03.2014, 14:01
Помогаю со студенческими работами здесь

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

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

Распечатайте те буквы, которые встречаются в каждом слове текста только один раз
Пусть дан текст. Распечатайте те буквы, которые встречаются в каждом слове текста только один раз

Распечатать те буквы, которые встречаются в каждом слове текста только один раз
Пусть дан текст. Распечатайте те буквы, которые встречаются в каждом слове текста только один раз....


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

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

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