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

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

04.03.2014, 20:36. Показов 1510. Ответов 1
Метки нет (Все метки)

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

Добавлено через 45 минут
набросал код,но прога не хочет запускаться...в чем причина..помогите пожалуйста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program sortirovka;
uses crt;
var
s,r:string;
l,j:integer;
odin:boolean;
begin
 
s:='блаблаблаоп";
 
r:='';
FOR l:=1 TO length(s) do
Begin
odin:=true;
for j:=1 to length(s) do if (s[l] =s[j]) and (l<>j) then odin:=false;
if odin then r:=r+s[l] +' ';
 
write (r);
 
readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.03.2014, 20:36
Ответы с готовыми решениями:

Получить те символы, принадлежащие последовательности, которые входят в нее одни раз
Задача Дана последовательность символов S1,s2...Sn n=&gt;2 . Получить те символы,принадлежащие...

Получить числа, которые входят в последовательность по одному разу
Доброго времени суток, прошу помощи в выполнении ниже перечисленных задач. №1 Даны целые числа...

Получить все числа, которые входят в последовательность по одному разу
Даны целые числа а1,а2...а15 ( могут быть повторяющиеся члены). Получить все числа, которые входят...

Получить все числа, которые входят в последовательность по одному разу
Пожалуйста , помогите одну единственную задачку решить!!!!! что-то не выполняется...

1
905 / 232 / 100
Регистрация: 21.10.2012
Сообщений: 565
04.03.2014, 22:08 2
Попробуйте такую прогу:
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
Program   Name;
uses      crt;
var
         i,j,st,k : integer;
         s        : string;
BEGIN
    ClrScr;textcolor(7);
    WriteLn('Введите последовательность символов:');
    textcolor(15);readln(s);textcolor(7);
    WriteLn('Символы, которые не повторяются во входной строке:');
    k:=0;textcolor(15);
    for i:=1 to length(s)-1 do
     begin
      st:=0;
      if s[i] <> #0 then
       begin
        for j:=i+1 to length(s) do
         begin
           if s[i] = s[j] then
            begin
              st:=1;s[j]:=#0;
            end;
         end;
        if st=0 then begin inc(k);write(s[i]);end;
       end;
     end;
    if s[length(s)] <> #0 then begin write(s[length(s)]);inc(k);end;
    if k=0 then write('Отсутствуют.');
    repeat until keypressed;
END.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.03.2014, 22:08
Помогаю со студенческими работами здесь

Получить все числа, которые входят в последовательность по одному разу
ввести с клавиатуры целое число n , целые числа a0,,,,,,,,an-1 (в последовательности могут быть...

Получить все числа которые входят в последовательность по одному разу
помогите написать программу даны целые числа A1..........An. получить все числа которые входят в...

Получить все числа, которые входят в последовательность по одному разу
Люди,пожалуйста,помогите решить задачу.я в VBA полный ноль,экзамены и сессия на носу,нужно рещить...

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


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

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

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