Добрый вечер!
Интересует меня такой вопрос:
Допустим есть файл: matrix.ini
Его содержимое:
1 3 5 7 5
2 6 4 8 1
4 1 2 3 9
6 4 3 5 2
7 4 3 3 7
Нужно средствами vb найти все четные и нечетные числа методом "змейка" начиная с 1 и заканчивая 2.
затем созать файл любой и кунуть туда все четнае и нечетные цифры(новая строка)
Так вот как это мона реализовать?
Матрицы
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 9
• Страница 1 из 1
- KDima
- Постоялец
-
- Сообщения: 759
- Зарегистрирован: 14.07.2004 (Ср) 23:14
- Откуда: СПб
Re: Матрицы
KDima » 27.02.2005 (Вс) 17:55
BossXP писал(а):Добрый вечер!
Интересует меня такой вопрос:
Допустим есть файл: matrix.ini
Его содержимое:
1 3 5 7 5
2 6 4 8 1
4 1 2 3 9
6 4 3 5 2
7 4 3 3 7
Нужно средствами vb найти все четные и нечетные числа методом "змейка" начиная с 1 и заканчивая 2.
затем созать файл любой и кунуть туда все четнае и нечетные цифры(новая строка)
Так вот как это мона реализовать?
Что это занчит?
Хороший прогер не тот, кто всё знает, хороший прогер знает, где найти знание.
Последний раз редактировалось: Administrator (15.07.2004 (Вт) 00:01), всего редактировалось 999 раз(а)
Последний раз редактировалось: Administrator (15.07.2004 (Вт) 00:01), всего редактировалось 999 раз(а)
- GSerg
- Шаман
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 27.02.2005 (Вс) 17:59
Я, кажется, догадываюсь, что это значит, но если я догадывась правильно, то это редкостное извращение - так читать файл...
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
- BossXP
- Новичок
- Сообщения: 31
- Зарегистрирован: 23.10.2004 (Сб) 23:43
BossXP » 27.02.2005 (Вс) 18:12
GSerg писал(а):Я, кажется, догадываюсь, что это значит, но если я догадывась правильно, то это редкостное извращение - так читать файл...
Это не извращение... это просто интерес. Если знаешь то скажи как.
Или хотябы как найти четные из этих чисел:
1 2 3 4 5 6 7 8 9
И записать в другой файл четные.
- Вложения
-
Змейка.rar- Вид змейки...
- (683 байт) Скачиваний: 32
- GSerg
- Шаман
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 27.02.2005 (Вс) 18:26
dim i as long
open "even.dat" for output as #1
for i=1 to 9
if i mod 2=0 then ? #1,i
next
close #1
open "even.dat" for output as #1
for i=1 to 9
if i mod 2=0 then ? #1,i
next
close #1
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
- KDima
- Постоялец
-
- Сообщения: 759
- Зарегистрирован: 14.07.2004 (Ср) 23:14
- Откуда: СПб
KDima » 27.02.2005 (Вс) 18:26
BossXP писал(а):GSerg писал(а):Я, кажется, догадываюсь, что это значит, но если я догадывась правильно, то это редкостное извращение - так читать файл...
Это не извращение... это просто интерес. Если знаешь то скажи как.
Или хотябы как найти четные из этих чисел:
1 2 3 4 5 6 7 8 9
И записать в другой файл четные.
Первый класс! Если число делится без остатка на 2 => оно чётное!
If int(chislo / 2) * 2 = chislo Then
MsgBox "Vot MARAZM!"
End If
Хороший прогер не тот, кто всё знает, хороший прогер знает, где найти знание.
Последний раз редактировалось: Administrator (15.07.2004 (Вт) 00:01), всего редактировалось 999 раз(а)
Последний раз редактировалось: Administrator (15.07.2004 (Вт) 00:01), всего редактировалось 999 раз(а)
- Cryonyx
- Бывалый
-
- Сообщения: 292
- Зарегистрирован: 12.11.2004 (Пт) 15:40
- Откуда: Net_SubStream
Cryonyx » 27.02.2005 (Вс) 20:12
- Код: Выделить всё
Dim S As String
Open "Имя_твоего_файла" For Binary As #1
Get #1, LOF(1), S
Close #1
'А дальше выцепляешь из полученной строки S числа
Если тебе не по сердцу мой путь,
Выбери сам или выбери с кем,
А мне по барабану вся эта муть -
Я не червонец, чтобы нравиться всем!
© К.Кинчев
--
Мой блог: щёлкай сюда
Выбери сам или выбери с кем,
А мне по барабану вся эта муть -
Я не червонец, чтобы нравиться всем!
© К.Кинчев
--
Мой блог: щёлкай сюда
Сообщений: 9
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Majestic-12 [Bot] и гости: 146