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

Преобразовать массив так, чтобы в нём сначала следовали цифры, а за ними – буквы. Преобразованный массив вывести на экран

22.06.2013, 06:14. Показов 1070. Ответов 2
Метки нет (Все метки)

Добрый день .
Задание:Преобразовать массив так, чтобы в нём сначала следовали цифры, а за ними – буквы. Преобразованный массив вывести на экран.
Помогите !
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.06.2013, 06:14
Ответы с готовыми решениями:

Отсортировать массив так, чтобы в нем сначала шли буквы латинского алфавита, затем цифры и, в конце, остальные элементы
Задан символьный массив размера N. Отсортировать массив так, чтобы в нем сначала шли буквы...

Преобразовать массив так, чтобы сначала в нем располагались простые числа, потом остальные
Привет, очень нужна помощь в решении двух задач по паскалю. 1) преобразовать массив так, чтобы...

Отсортировать массив так, чтобы сначала в нем в алфавитном порядке шли согласные буквы латинского алфавита
хмм, странно... в универе делал задачу на windows XP программа работала, пробую дома на Seven...

В строке заданы буквы и цифры. Преобразовать строку так, чтобы в ней сначала шли цифры, отсортированные по убыванию
В строке заданы буквы и цифры. Преобразовать строку так, чтобы в ней сначала шли цифры,...

2
4377 / 661 / 36
Регистрация: 17.01.2010
Сообщений: 2,134
22.06.2013, 10:44 2
Здравствуйте! А где сам массив?

Добавлено через 32 минуты
Если Вам нужно с 1D массивом...:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim mARR(), i&, j&, tmpV
   ActiveSheet.Cells.Delete
   mARR = Array("mom", 212, "cat", "num99last", "922-56-18", 34, "twenty", 76)
   Cells(1, 1).Value = "SOURCE ONE-DIMENSIONAL ARRAY"
   Cells(2, 1).Resize(1, UBound(mARR) + 1).Value = mARR
      For i = LBound(mARR) To UBound(mARR) - 1
         For j = i + 1 To UBound(mARR)
            If IsNumeric(mARR(i)) Then Exit For
            If IsNumeric(mARR(j)) Then
               tmpV = mARR(i): mARR(i) = mARR(j): mARR(j) = tmpV
               Exit For
            End If
         Next 'j
      Next 'i
   With ActiveSheet.Cells(Rows.Count, 1).End(xlUp)
      .Offset(2, 0).Value = "SORTING ONE-DIMENSIONAL ARRAY"
      .Offset(3, 0).Resize(1, UBound(mARR) + 1).Value = mARR
   End With
End Sub
2
0 / 0 / 0
Регистрация: 22.06.2013
Сообщений: 7
22.06.2013, 14:07  [ТС] 3
Цитата Сообщение от Igor_Tr Посмотреть сообщение
Здравствуйте! А где сам массив?

Добавлено через 32 минуты
Если Вам нужно с 1D массивом...:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim mARR(), i&, j&, tmpV
   ActiveSheet.Cells.Delete
   mARR = Array("mom", 212, "cat", "num99last", "922-56-18", 34, "twenty", 76)
   Cells(1, 1).Value = "SOURCE ONE-DIMENSIONAL ARRAY"
   Cells(2, 1).Resize(1, UBound(mARR) + 1).Value = mARR
      For i = LBound(mARR) To UBound(mARR) - 1
         For j = i + 1 To UBound(mARR)
            If IsNumeric(mARR(i)) Then Exit For
            If IsNumeric(mARR(j)) Then
               tmpV = mARR(i): mARR(i) = mARR(j): mARR(j) = tmpV
               Exit For
            End If
         Next 'j
      Next 'i
   With ActiveSheet.Cells(Rows.Count, 1).End(xlUp)
      .Offset(2, 0).Value = "SORTING ONE-DIMENSIONAL ARRAY"
      .Offset(3, 0).Resize(1, UBound(mARR) + 1).Value = mARR
   End With
End Sub
Спасибо за помощь !
Уже сам разобрался !
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2013, 14:07
Помогаю со студенческими работами здесь

Известно, что в строке есть буквы и цифры. Преобразовать строку так, чтобы сначала размещались цифры в прямом порядке, а
Известно, что в строке есть буквы и цифры. Преобразовать строку так, чтобы сначала размещались...

Составить массив так, чтобы элементы матрицы следовали в нем параллельно побочной диагонали
Добрые люди помогите пожалуйста..Вот задачка: Составить одномерный массив В так, чтобы элементы...

Составить массив B так, чтобы элементы массива A[0..6, 0..6] следовали в нем в последовательности диагоналей параллельно побочной диагонали
Дали лабораторную работу по информатике Задание: Составить массив В так, чтобы элементы массива A...

Массив: Преобразовать массив так, чтобы сначала располагались элементы, стоявшие в нечетных позициях...
В одномерном массиве, состоящем из n целых элементов, вычислить произведение элементов массива,...

Массив: Преобразовать массив так, чтобы сначала шли элементы, модуль которых не превышает 1, а потом - остальные...
Преобразовать массив таким образом, чтобы сначала располагались, все элементы, модуль которых не...

Преобразовать строку так, чтобы сначала шли цифры, а затем все буквы исходной строки, но в обратном порядке
1)Дана строка,содержащая буквы и цифры.Преобразовать строку так,что бы сначала шли цифры,а затем...


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

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

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