Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
2 / 2 / 0
Регистрация: 04.06.2010
Сообщений: 20
1

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

08.06.2010, 11:06. Показов 926. Ответов 1
Метки нет (Все метки)

Дан текст из строчных латинских букв, за которыми следует точка. Напечатать все буквы, входящие в текст не менее двух раз.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.06.2010, 11:06
Ответы с готовыми решениями:

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

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

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

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

__________________
1
Идеи становятся силой...
121 / 121 / 64
Регистрация: 08.12.2009
Сообщений: 445
08.06.2010, 12:51 2
Лучший ответ Сообщение было отмечено Ledy-alina как решение

Решение

вот такой вариант:
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
var s : string;
i,j,buf,k, lp, m : integer;
A : Array[1..27,1..2] of string;
Aa : Array[1..200]of integer;
povtor : string;
begin
A[1,1]:='a';
A[2,1]:='b';
A[3,1]:='c';
A[4,1]:='d';
A[5,1]:='e';
A[6,1]:='f';
A[7,1]:='g';
A[8,1]:='h';
A[9,1]:='i';
A[10,1]:='j';
A[11,1]:='k';
A[12,1]:='l';
A[13,1]:='m';
A[14,1]:='n';
A[15,1]:='o';
A[16,1]:='p';
A[17,1]:='q';
A[18,1]:='r';
A[19,1]:='s';
A[20,1]:='t';
A[21,1]:='u';
A[22,1]:='v';
A[23,1]:='w';
A[24,1]:='x';
A[25,1]:='y';
A[26,1]:='z';
A[27,1]:=' ';
 
for i:=1 to 27 do begin
A[i,2]:='o';
end;
writeln('Vvedite tekst');
Readln(s);
for i:=1 to Length(s) do
  begin
    for j:=1 to Length(s) do
      begin
        if i<>j then
          begin
           if (s[i]=s[j]) then
            begin
                        povtor:=s[i];
              for m:=1 to 27 do
                begin
                  if s[i]=A[m,1]
                  then begin A[m,2]:='x'; ;end;
 
                end;
            end;
        end;
    end;
end;
 
//for j:=1 to 27 do
for i:=1 to 27 do
begin
if A[i,2]<>'o' then
writeln(A[i,1]);
end;
Readln;
end.
и такой:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
  var s:string;a:array[ord('a')..ord('z')] of byte;i:integer;
begin
s:='prived at midveda';
for i:=1 to length(s) do begin
 a[ord(s[i])]:=a[ord(s[i])]+1;
end;
for i:=ord('a') to ord('z') do begin
 if  a[i]>=2 then
  write(chr(i));
end;
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.06.2010, 12:51

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Множества. Дан текст. Вывести в алфавитном порядке все буквы текста, входящие в него не менее двух раз
Дан текст. Вывести в алфавитном порядке все буквы текста, входящие в него не менее двух раз. Текст...

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

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


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

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

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