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

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

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

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

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

@flegmatik · 18.01.2009, 14:13

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

Pascal

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

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

Прошу помоч.

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

@Ocha 4 / 3 / 1 Регистрация: 18.12.2008 Сообщений: 136
		1
	Напечатать все буквы входящие в текст по одному разу 18.01.2009, 05:27. Показов 6533. Ответов 7 Метки нет (Все метки) Прошу помоч. Очень надо. Дан текст из строчных латинских букв, за которыми следует точка. Напечатать все буквы входящие в текст по одному разу. 1

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

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

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

@bormant Модератор 7771 / 4600 / 2824 Регистрация: 22.11.2013 Сообщений: 13,080 Записей в блоге: 1
	29.01.2017, 13:12	7
	Сообщение от Cyborg Drone ТС - грамотный человек Тогда было бы Напечатать все входящие в текст буквы по одному разу. и никакой неоднозначности Но там не так... 0

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	30.01.2017, 09:43	8
	Сообщение от Cyborg Drone Но я, конечно же, полагал, что ТС - грамотный человек Сообщение от bormant ТС - грамотный человек Сообщение от Ocha Прошу помоч. И действительно грамотный... 0

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

Решение