[Rasssel007]

Здравствуйте уважаемые пользователи сайта....
Помогите пожалуйста мне создать программку))

Дано натуральное число N. Выяснить, встречаются ли в данном числе соседние одинаковые цифры.


PS: заранее благодарен

[march]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 s:string;
 i,qu:integer;
begin
 qu:=0;
 s:=edit1.text;
 for i:=1 to length(s) do
  begin
   if copy(s,i,1)=copy(s,i+1,1) then
    qu:=qu+1;
  end;
 showmessage('Одинаковые соседние цифры встречаются: '+inttostr(qu)+' раз.');
end;

оно?

[Пиус Пиус]

Здравствуйте!
Подскажите, пожалуйста, как назначить на кнопку клавишу на клавиатуре, по нажатию которой воспроизводится звук=))
Собираюсь делать программу типа Piano Roll, "Фортепианная клавиатура", надо сделать что-то типа кнопок и по нажатию на каждую из них будет воспроизводиться соответствующий звук пианино.

[march]

Пиус Пиус, для своего вопроса надо создавать отдельную тему.
По твоему вопросу:
по событию (onevent) onKeyPress (у формы или чего-либо еще, на твое усмотрение) пишешь:

Код:

if key='w' then
 begin
  //твой код для воспроизведения звука для нажатой клавиши "w"  
 end;

думаю принцип ясен

[Пиус Пиус]

Сообщение от march

Пиус Пиус, для своего вопроса надо создавать отдельную тему.
По твоему вопросу:
по событию (onevent) onKeyPress (у формы или чего-либо еще, на твое усмотрение) пишешь:

Код:

if key='w' then
 begin
  //твой код для воспроизведения звука для нажатой клавиши "w"  
 end;

думаю принцип ясен

Большое спасибо!

[NIch]

Я бы немножко подправил

Код:

case Key of
 'a' : ...
 'b' : ...
 ...
end;

Т.е. использовать не if...then, а case ... of...
ИМХО

[a_h_e_l_e_s]

Здравствуйте,
Помогите Создать программу:
В массиве, состоящем из целых чисел размерностью 20х2 упорядочить элементы в каждом столбце по возрастанию или убыванию в зависимости от желания пользователя. Разработать визуальное приложение вывода на экран исходного и скорректированного массивов, воспользовавшись компонентами TMemo (с горизонтальной полосой прокрутки) и TListBox (с вертикальной полосой прокрутки). Организовать процедуру поиска фрагмента текста с его выделением при удачном завершении поиска.

Разработать процедуру разложения двух целых положительных чисел, не больших 255 на простые множители. Определить множество равное пересечению этих двух множеств. Полученные множества визуализировать с помощью компонентов, поддерживающих работу со списками. Организовать процедуры «сохранения в файле» и «загрузки из файла».

[lmikle]

a_h_e_l_e_s ,
Во-первых. Не надо писать в существующие темы, особенно, если тема треда отлична от вашего вопроса.
Во-вторых. Здесь вам не клую энтузиазистов. Либо делаете сами и спрашиваете конкретно что не получается, с выкладыванием своего кода. Либо идем в раздел "Работа" и объявляем цену за решение "под ключ".