0 / 0 / 0
Регистрация: 06.03.2013
Сообщений: 5
1

Как определить, содержит последовательность хотя бы два равных соседних числа

19.03.2013, 22:12. Показов 1472. Ответов 1
Метки нет (Все метки)

Нужно написать в VBA. Заранее благодарю=)
Вводится последовательность чисел, 0 - конец последовательности. Определить, содержит последовательность хотя бы два равных соседних числа.

Я нашел на паскале она выглядит так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var 
   x0,x1:longint;
   f1:boolean;
begin
   f1:=false;
   read(x0);
   if x0<>0 then
      repeat
           read(x1);
           if x0<>x1 then x0:=x1
           else begin
               f1:=true;
               break;
            end;   
       until x1=0;
    case f1 of
         true: writeln('Yes');
         false: writeln('No');
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.03.2013, 22:12
Ответы с готовыми решениями:

Определить, содержит ли массив хотя бы два равных соседних числа
вот то что смог сделать, но программа не работает ((( Sub Slava1() Dim a(1 To 10) As Integer...

Определить , содержит ли последовательность хотя бы два равных соседних числа

Определить, содержит ли последовательность хотя бы два равных соседних числа
Вводится последовательность чисел, 0 - конец последовательности. Определить, содержит ли...

Определить, содержит ли последовательность хотя бы два равных соседних числа (цикл с постусловием)
Вводится последовательность чисел, 0 - конец последовательности. Определить, содержит ли...

1
6076 / 1320 / 195
Регистрация: 12.12.2012
Сообщений: 1,023
20.03.2013, 14:26 2
Здравствуйте, philipk,
Вот перевод кода на VBA:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub SearchEqvPairsInSeq()
    Dim x0 As Double, x1 As Double
    x0 = InputBox("Введите число последовательности (0 - конец последовательности):")
    Do While x0 <> 0
        x1 = InputBox("Введите число последовательности (0 - конец последовательности):")
        If x0 = x1 Then
            MsgBox "Последовательность содержит два равных соседних числа."
            Exit Sub
        Else
            x0 = x1
        End If
    Loop
    MsgBox "Последовательность не содержит ни одной пары равных соседних чисел."
End Sub
С уважением,
Aksima
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.03.2013, 14:26
Помогаю со студенческими работами здесь

Вложенные циклы: определить, содержит ли последовательность хотя бы два равных соседних числа
Вводятся последовательность из n целых чисел (n задается с клавиатуры) Определить , содержит ли...

Определить, содержит ли последовательность хотя бы 2 равных соседних числа
Уважаемые, форумчаны) помогите пожалуйста бедной девушке решить задачку... Вводится...

Определить содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками
Только начал изучать С, и не могу разобраться как делать если не тяжело помогите с 2мя задачами. ...

Определить, содержит ли последовательность хотя бы два соседних числа c одинаковыми знаками
Вводится последовательность ненулевых чисел, 0 — конец последовательности. Определить, содержит ли...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru