Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
Alex_244
0 / 0 / 0
Регистрация: 03.04.2013
Сообщений: 81
1

В слове имеются только две одинаковые буквы. Найти их.

29.07.2013, 15:55. Просмотров 1493. Ответов 2
Метки нет (Все метки)

В слове имеются только две одинаковые буквы. Найти их.

Помогите пожалуйста, не получается ничего.
Есть кусок наполовину рабочий и не доведенный до конца.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program lopata;
 
uses crt;
 
var s:string;
    i,c,j:integer;
 
 
begin
     clrscr;
     writeln('Введите слово: ');
     readln(s);
     c:=length(s);
 
     for i:=1 to c do
     begin
          for j:=2 to c-1  do
          if s[i]=s[j] then break
     end;
     writeln(s[i]);
     readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.07.2013, 15:55
Ответы с готовыми решениями:

Проверить, имеются ли в данном слове одинаковые буквы
помогите,пожалуйста, составить программу для проверки, имеются ли в данном...

Оставьте программу которая в слове «класс» две одинаковые буквы обозначались цифрой «1»
нужна срочная помощь!!! Составьте программу которая в слове «класс» две...

Выделить из предложения слова, содержащие две или более одинаковые буквы
Задание: Выделить из предложения слова, содержащие две или более ...

Определить какие буквы встречаются только в одном слове
Слова в тексте разделены пробелами. определить какие буквы встречаются только в...

Определить буквы, которые встречаются только в первом и во втором слове
Даны 4 слова, определить те буквы, которые встречаются только в первом и во...

2
papaDOS
31 / 31 / 6
Регистрация: 26.03.2013
Сообщений: 68
29.07.2013, 16:11 2
думаю как минимум стоит добавить условие i <> j или внутренний цикл начинать не с 2, а с i +1. Только придется внешний цикл пускать до с - 1, а внутренний до с
Что-то типо
Delphi
1
2
3
4
5
for i:=1 to c - 1 do
begin
for j:=i + 1 to с do
if s[i]=s[j] then break
end;
1
Samhain
690 / 565 / 413
Регистрация: 31.03.2013
Сообщений: 1,029
29.07.2013, 16:11 3
Alex_244, Строки и символы
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.07.2013, 16:11

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

встречаются ли в заданной строке только две буквы а?
Проверить, встречаются ли в заданной строке только две буквы а?

Найти среди 4 очередей две одинаковые.
Найти среди 4 очередей две одинаковые.


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

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

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