Проверить, чередуются ли в массиве положительные и отрицательные числа (Pascal -> VB)

@Юлия9999 · Регистрация: 03.12.2018

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var
  A: array[1..255] of integer;
  N, i: byte;
begin
  writeln(' Массив какого размера вы хотите задать? ');
  write('  N = ');
  readln(N);
  writeln(' Введите ', N, 'ненулевых элементов массива(через пробел):');
  write('  ');
  for i := 1 to N do
   read(a[i]); //Вводим элементы массива
  i := 2;
  //Находим произведение знаков двух соседних элементов массива.
  //Пока это произведение отрицательное,
  while sign(a[i-1]) * sign(a[i]) < 0 do 
    inc(i); //то увеличиваем номер на единицу.
  writeln(' Результат: ');
  if i > N then 
   write('  0(положительные и отрицательные числа чередуются)')
  else
   begin
     write('  ', i, '-й элемент массива нарушил чередование');
     write(' положительных и отрицательных чисел')
   end
end.

@Юлия9999 · 03.12.2018, 15:23 **[ТС]**

Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нем положительные и отрицательные числа. Если чередуются, то вывести 0, если нет, то вывести порядковый номер первого элемента , нарушающего закономерность

@fever brain · 03.12.2018, 18:49

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 Sub Result(ByVal arr, ByVal i&, ByVal nameArr$)
     MsgBox "Положительные и отрицательные числа в " & nameArr & " нечередуются." & vbLf & _
        "Значение нарушающее порядок: " & arr(i) & vbLf & _
        "Размер массива: " & UBound(arr) & vbLf & _
        "Нижний индекс массива: = " & LBound(arr) & vbLf & _
        "Индекс массива нарушающий порядок: " & i, vbInformation, "Проверка массива: " & nameArr
 End Sub
 
Sub example()
    
    Dim i&, N&, v, arr1, arr2
    arr1 = Array(1, -1, 2, -2, 3, -3, 4, -4)
    arr2 = Array(1, -1, 2, -2, 3, 3, 4, -4)
 
    For i = 1 To UBound(arr1)
        If arr1(i - 1) = arr1(i) Then Result arr1, i, "arr1": GoTo 1
    Next
    MsgBox "Числа в arr1 чередуются", vbInformation, "Проверка массива: arr1"
1
    For i = 1 To UBound(arr2)
        If arr1(i - 1) = arr2(i) Then Result arr2, i, "arr2": GoTo 2
    Next: GoTo 2
    MsgBox "Числа в arr2 чередуются", vbInformation, "Проверка массива: arr2"
2
End Sub

@Catstail · 04.12.2018, 10:54

fever brain, у Вас не проверка знакочередования, а проверка равенства, нет?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub checkArr(A() as integer)
  n1%=LBound(A)
  z%=sgn(A(n1%))
  f%=0
  for i%=n1%+1 to UBound(A)
      if sgn(A(i%))=-z% then
        z%=-z%
      else
        Debug.print i%
        f%=-1
        Exit for
      end if
  Next i% 
  if f%=0 then Debug.print 0
End Sub

@fever brain · 04.12.2018, 11:21

Да действительно, извиняюсь за невнимательность
исправил

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub Result(ByVal arr, ByVal i&, ByVal nameArr$)
     MsgBox "Положительные и отрицательные числа в " & nameArr & " нечередуются." & vbLf & _
        "Значение нарушающее порядок: " & arr(i) & vbLf & _
        "Размер массива: " & UBound(arr) & vbLf & _
        "Нижний индекс массива: = " & LBound(arr) & vbLf & _
        "Индекс массива нарушающий порядок: " & i, vbInformation, "Проверка массива: " & nameArr
 End Sub
 
Sub example()
    
    Dim i&, N&, v, arr1, arr2
    Dim b1 As Boolean, b2 As Boolean
    
    arr1 = Array(1, -1, 2, -2, 3, -3, 4, -4)
    arr2 = Array(1, -1, 2, -2, 3, 3, 4, -4)
 
    For i = 1 To UBound(arr1)
        
        b1 = arr1(i - 1) < 0 'К примеру значение первого индекса = False
        b2 = arr1(i) < 0 'Тогда если порядок соотв. то  здесь должно True
        
        'Условие ( False = True ) = False - не выполнится
        If b1 = b2 Then Result arr1, i, "arr1": GoTo 1
    Next
    MsgBox "Числа в arr1 чередуются", vbInformation, "Проверка массива: arr1"
1
    For i = 1 To UBound(arr2)
    
        b1 = arr2(i - 1) < 0 'То-же самое и здесь
        b2 = arr2(i) < 0
        
        If b1 = b2 Then Result arr2, i, "arr2": GoTo 2
    Next
    MsgBox "Числа в arr2 чередуются", vbInformation, "Проверка массива: arr2"
2
End Sub

PS изменил *лучший ответ* Вам и себе тоже ) надеюсь мне такое простят

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Проверить, чередуются ли в массиве положительные и отрицательные числа (Pascal -> VB)

Решение

Решение

@Юлия9999 0 / 0 / 0 Регистрация: 03.12.2018 Сообщений: 15
	03.12.2018, 15:23 [ТС]
	Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нем положительные и отрицательные числа. Если чередуются, то вывести 0, если нет, то вывести порядковый номер первого элемента , нарушающего закономерность 0