Напечатать все буквы входящие в текст по одному разу

@Ocha · Регистрация: 18.12.2008

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

Прошу помоч. Очень надо.

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

@flegmatik · 18.01.2009, 14:13

вроде то, что требовалось

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var c:char;
     s,sd:set of char;
begin
s:=[ ];        {инициализация множества входных символов}
sd:=[ ];      {инициализация множества повторяющихся символов}
repeat
  read(c);
  if c in s then 
    sd:=sd+[c] {накопление множества повторяющихся символов}
  else s:=s+[c];      {накопление множества всех символов}
until c='.';
s:=s-sd-['.']; {получение множества неповторяющихся символов}
for c:=#33  to #255 do
  if (c in s)  then  
    write(c:3);
end.

@Nuytya · 28.01.2017, 06:24

На делфи можно

@Cyborg Drone · 28.01.2017, 10:19

Не по теме:

Это вопрос или утверждение? Если утверждение, то зачем создали сообщение, и без Вас понятно, что можно, если вопрос, то почему нет вопросительного знака и почему Ваш вопрос задан в безапелляционной форме?

Для Delphi 7:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
var i, j: integer;
    m: set of char;
    s: string;
begin
  m := [];
  for i := 0 to Memo1.Lines.Count - 1 do
    begin
      s := Memo1.Lines[i];
      for j := 1 to length(s) do include(m, s[j]);
    end;
  s := '';
  for i := byte(' ') to 255 do if char(i) in m then s := s + char(i);
  Label1.Caption := s
end;

@bormant · 29.01.2017, 11:40

Cyborg Drone,
но это решение не той задачи, что в сообщении #2

Двусмысленно поставлен сам вопрос:
1) напечатать символы, которые встречаются по одному разу в строке,
2) напечатать по одному разу символы, встречающиеся в строке.

@Cyborg Drone · 29.01.2017, 12:05

Ну да. Казнить нельзя помиловать. Если в тексте задания случится одна запятая, моё решение неверное, если две запятых - то всё нормально. Но я, конечно же, полагал, что ТС - грамотный человек, и такое написание - без запятых - было сделано, по неизвестной мне причине, умышленно. Такое написание, если, оно, конечно, проистекает не от неграмотности, предполагает наличие во фразе интонационной пунктуации. При умышленном опускании знаков пунктуаци во фразе предполагается ровное, безынтационное произнесение, которое, в свою очередь, предполагают уменьшение значимости отдельных смысловых частей фразы в порядке их произнесения. Так что, из моего предположения, что ТС - грамотный человек, следует, что решение, мною приведённое, - верное.

@bormant · 29.01.2017, 13:12

Сообщение от Cyborg Drone

ТС - грамотный человек

Тогда было бы

Напечатать все входящие в текст буквы по одному разу.

и никакой неоднозначности

Но там не так...

@кот Бегемот · 30.01.2017, 09:43

Сообщение от Cyborg Drone

Но я, конечно же, полагал, что ТС - грамотный человек

Сообщение от bormant

ТС - грамотный человек

Сообщение от Ocha

Прошу помоч.

И действительно грамотный...

Новые блоги и статьи Все статьи Все блоги /
влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .

@Ocha 4 / 3 / 1 Регистрация: 18.12.2008 Сообщений: 136

	Напечатать все буквы входящие в текст по одному разу 18.01.2009, 05:27. Показов 6890. Ответов 7 Метки нет (Все метки) Прошу помоч. Очень надо. Дан текст из строчных латинских букв, за которыми следует точка. Напечатать все буквы входящие в текст по одному разу. 1

@Nuytya 0 / 0 / 0 Регистрация: 23.01.2017 Сообщений: 14
	28.01.2017, 06:24
	На делфи можно 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,158 Записей в блоге: 1
	29.01.2017, 11:40
	Cyborg Drone, но это решение не той задачи, что в сообщении #2 Двусмысленно поставлен сам вопрос: 1) напечатать символы, которые встречаются по одному разу в строке, 2) напечатать по одному разу символы, встречающиеся в строке. 0

@Cyborg Drone Модератор 10412 / 5699 / 3401 Регистрация: 17.08.2012 Сообщений: 17,353
	29.01.2017, 12:05
	Ну да. Казнить нельзя помиловать. Если в тексте задания случится одна запятая, моё решение неверное, если две запятых - то всё нормально. Но я, конечно же, полагал, что ТС - грамотный человек, и такое написание - без запятых - было сделано, по неизвестной мне причине, умышленно. Такое написание, если, оно, конечно, проистекает не от неграмотности, предполагает наличие во фразе интонационной пунктуации. При умышленном опускании знаков пунктуаци во фразе предполагается ровное, безынтационное произнесение, которое, в свою очередь, предполагают уменьшение значимости отдельных смысловых частей фразы в порядке их произнесения. Так что, из моего предположения, что ТС - грамотный человек, следует, что решение, мною приведённое, - верное. 0

Напечатать все буквы входящие в текст по одному разу

Решение