Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
antoshk
0 / 0 / 0
Регистрация: 04.12.2015
1

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

05.06.2012, 01:18. Просмотров 746. Ответов 3
Метки нет (Все метки)

из предложения выбрать и напечатать символы повторяющиеся один раз (в том порядке, как они встречаются в тексте) ответ не получается, просто выдает последний символ
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  s:string;
  j,i:integer;
  begin
  readln(s);
  for i:=0 to length(s)  do
      for j:=1 to length(s) do
          if i<>j then;
            if s[i]<>s[j] then;
   writeln('vstrechayutsya 1 raz',s[i],',','l=',length(s));
end.
в правильном ли я направлении мыслю?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.06.2012, 01:18
Ответы с готовыми решениями:

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

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

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

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

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

3
TheSN
153 / 95 / 101
Регистрация: 25.02.2012
Сообщений: 232
05.06.2012, 08:08 2
Это для "В том порядке, как они встречаются в тексте". Иначе было бы намного проще использовать множество.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  a: array [0..255] of integer;
  s: string;
  i, n: integer;
 
begin
  writeln('Введите строку:');
  readln(s);
  for i := 1 to length(s) do inc(a[ord(s[i])]);
  writeln('Символы, встречающиеся ДВА раза:');
  for i := 1 to length(s) do 
  begin
    n := a[ord(s[i])];
    if n = 2 then a[ord(s[i])] := -1 else
    if n = -1 then write(s[i]:4)
  end;
  readln
end.
1
antoshk
0 / 0 / 0
Регистрация: 04.12.2015
05.06.2012, 09:41 3
ты не правильно меня понял, символ должен встречаться только единожды, и к тому же есть ограничение на используемые встроенные подпрограммы можно использовать только "Length"
0
TheSN
153 / 95 / 101
Регистрация: 25.02.2012
Сообщений: 232
05.06.2012, 12:01 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  s: string;
  i, j, k: integer;
 
begin
  writeln('Введите строку:');
  readln(s);
  writeln('Символы, которые встречаются один раз:');
  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]:4)
  end;
  readln
end.
1
05.06.2012, 12:01
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.06.2012, 12:01

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru