Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 14.02.2016
Сообщений: 19
1

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

16.02.2016, 19:58. Показов 1757. Ответов 1
Метки нет (Все метки)

2. Дан текст, за которым следует точка. Напечатать все буквы, входящие в текст не менее 2-х раз.
ПОМОГИТЕ В АПЛИКЕЙШЕНЕ ЗДЕЛАТЬ
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.02.2016, 19:58
Ответы с готовыми решениями:

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

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

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

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

__________________
1
Модератор
63342 / 47051 / 32430
Регистрация: 18.05.2008
Сообщений: 114,046
16.02.2016, 21:13 2
Лучший ответ Сообщение было отмечено шынгысс как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    m1,m2:set of char;
    c:char;
    i:integer;
begin
s:=Edit1.Text;
m1:=[];
m2:=[];
for i:=1 to length(s) do
if s[i] in m1 then m2:=m2+[s[i]]
else m1:=m1+[s[i]];
if m2=[] then Edit2.Text:='Все буквы по 1 разу'
else
for c:=#33 to #255 do
if c in m2 then Edit2.Text:=Edit2.Text+' '+c;
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.02.2016, 21:13

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

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

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

Множества.Дан текст, за котоpым следует точка. В алфавитном поpядке напечатать (по pазу) все стpочные pусские гласные буквы , входящие в этот текст не
Доброго времени суток..помогите пожалуйста решить задачку по множествам : Дан текст, за котоpым...

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


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

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

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