Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 07.06.2015, 22:44
yrook yrook вне форума
Прохожий
 
Регистрация: 07.06.2015
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Массивы и ряды

Помогите срочно сделать программу.
Задание: Даны натуральное число n, символы s1,...,sn. Получить первое натуральное число i, для которого каждый из si и si+1 совпадает с буквой А. Если такой пары символов в последовательности s1,...,sn нет, то ответом должно быть число 0.
Прошу помогите.
Ответить с цитированием
  #2  
Старый 07.06.2015, 23:23
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Пиши прямо: не помогите, а сделайте. По этому сообщению очевидно, что сам ты делать не собираешься ровным счетом ничего.
Такие сообщения нужно создавать в соответствующих разделах "Работа"/"Код на шару".
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
  #3  
Старый 07.06.2015, 23:24
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Как бы... а в чем помощь-то требуется?
Смотрим что такое натуральное число (собственно, это просто целое число). Ну тебе дан массив символов длинной n. Надо найти такой индекс в этом массиве, при котором i-ый и i+1-ый элементы равны букве 'A' (кстати, англ или русской?). Что, цикл сложно написать?
Код:
Удалено по просьбе ТС.

Можно переприсать так, что б на вход подавать просто строку, внутри функции при этом ничего не поменяется, кроме описания цикла.

Последний раз редактировалось lmikle, 08.06.2015 в 07:39.
Ответить с цитированием
Этот пользователь сказал Спасибо lmikle за это полезное сообщение:
yrook (08.06.2015)
  #4  
Старый 08.06.2015, 00:17
yrook yrook вне форума
Прохожий
 
Регистрация: 07.06.2015
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Вот если ты можешь это написать и тебе это легко, то я тебя поздравляю.
Только вот не забывай что есть люди которые это не понимают и им тяжеловато без помощи сделать.
Ответить с цитированием
  #5  
Старый 08.06.2015, 00:19
yrook yrook вне форума
Прохожий
 
Регистрация: 07.06.2015
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

А те кто может помочь не задирая нос тем Огромное человеческое спасибо.
Ответить с цитированием
  #6  
Старый 08.06.2015, 07:38
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну, значит, тебе моя помощь не нужна.
ОК, удаляю.
Ответить с цитированием
  #7  
Старый 08.06.2015, 12:22
yrook yrook вне форума
Прохожий
 
Регистрация: 07.06.2015
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

это было адресовано "Bargest", не Вам.
Ответить с цитированием
  #8  
Старый 08.06.2015, 22:22
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну так надо выражаться яснее, бо я тоже немного поерничал...
Ну что, восстановить код?
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:23.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025