Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Sobaker
0 / 0 / 0
Регистрация: 28.02.2018
Сообщений: 13
1

Как отсортировать числа

06.03.2018, 13:14. Просмотров 290. Ответов 4
Метки нет (Все метки)

У меня есть задание: есть файла in.txt out.txt в файле in.txt 9 чисел
3
5
7
9
11
88
3
7
0
Мне надо отсортировать и скопировать из файла in.txt в out.txt чтобы они были в порядке
0
3
3
5
7
7
9
11
88
Как это сделать?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.03.2018, 13:14
Ответы с готовыми решениями:

Как отсортировать
У меня есть задание: есть файла in.txt out.txt в файле in.txt 9 чисел 1 9 2 0...

Как отсортировать массив по столбцу с датой (CDate)?
Не хочет никак 'цепляться' дата. VB 'видит' ее только как 'первые два символа'...

Как отсортировать строки файла в порядке возрастания их длины
Помогите решить задачу!!!!!! Дан файл со строками, отсортировать строки в...

Как можно отсортировать по алфавиту текстовый массив методом пузырька
Здравствуйте, подскажите, как можно отсортировать по алфавиту текстовый массив...

Как сгенерировать случайным образом массив и отсортировать по возрастанию модулей
Сгенерировать случайным образом массив целых чисел (в дипазоне -100 до 100),...

4
ji2n
...
31 / 30 / 12
Регистрация: 08.10.2016
Сообщений: 139
06.03.2018, 19:40 2
Если забанили в google, то:
https://safezone.cc/resources/vb6-sortirovka-massivov.26210/
http://kbyte.ru/ru/Programming/Articles.aspx?id=12&mode=art

Иначе:

Предоставьте свой код, ошибки исправить помогут.

Конец.

Добавлено через 28 минут
Лентяй

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
Private Sub Form_Load()
Dim MyFile 'Объявляем переменную для свободного файла
Dim I As Integer 'Переменная для цикла
Dim Tmp As String
Dim S(0 To 8) As Integer 'Переменная для хранения окончательных данных
Dim J As Integer, Z As Integer 'Переменные сортировки
MyFile = FreeFile ' Присваиваем свободный канал, для работы с файлами
Open ("E:\in.txt") For Input As #MyFile 'Открываем файл in.TXT для чтения
For I = 0 To 8
Line Input #MyFile, Tmp 'Читаем файл in.TXT построчно
S(I) = CInt(Tmp)
Next I
Close MyFile 'Закрываем файл
'------------------------------------------------------------
'Сортировка простыми обменами, сортировка пузырьком
 
        For I = 0 To 9 - 1 Step 1
            For J = 0 To 9 - 2 - I Step 1
                If S(J) > S(J + 1) Then
                    Z = S(J)
                    S(J) = S(J + 1)
                    S(J + 1) = Z
                End If
            Next J
        Next I
'-----------------------------------------------------------
MyFile = FreeFile ' Присваиваем свободный канал, для работы с файлами
Open ("E:\out.txt") For Output As #MyFile 'Открываем файл out.TXT для записи
For I = 0 To 8
Print #MyFile, S(I)
Next
Close #MyFile 'Закрываем файл
End Sub
0
m-ch
5265 / 807 / 270
Регистрация: 25.02.2011
Сообщений: 1,134
Записей в блоге: 1
07.03.2018, 08:05 3
а код отсюда не подошел?
0
Alex77755
10760 / 3329 / 557
Регистрация: 13.02.2009
Сообщений: 9,800
08.03.2018, 16:53 4
У меня есть задание
Что мешает выполнить его?? Банальная лень??
0
kreotodr
27 / 25 / 8
Регистрация: 15.08.2014
Сообщений: 522
12.03.2018, 15:39 5
Цитата Сообщение от m-ch Посмотреть сообщение
а код отсюда не подошел?
пацаны не гоните пургу!

Вот нормальное решение вопроса

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Form_Load()
 
 Dim Vasia, Kolia As String
   Vasia = "программа которая, "
   Kolia = "уметь сартировать числа"
   Print  Vasia & Kolia
 
End Sub
0
12.03.2018, 15:39
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.03.2018, 15:39

Как переставить цифры числа так, чтобы образовалось максимальное и минимальное числа, записанные теми же цифрами
Дано натуральное число N. Переставить его цифры так, чтобы образовалось...

Как отсортировать файлы как числа а не как строки?
Щас он сортирует вот так: 1.tif 10.tif 100.tif 11.tif 12.tif 13.tif...

Как в квадратном массиве отсортировать числа по диагонали?
Здравствуйте! Имеется массив чисел и нужно их отсортировать в квадратном...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru