Страница: 1 |
Страница: 1 |
Вопрос: HELP!!
Добавлено: 16.05.08 18:12
Автор вопроса: Нюся | ICQ: 350039706
я не огу сделать массив в Access методом пузырька, я его не поняла, помогите пож-та!!!
задача такая:переставить элементы массива Z, состоящего из N элементов, таким образом , чтобы в начале оказались положительныеЭ, а в конце отрицательные числа.Результат вывести в файл.
ПОМОГИТЕ, люди добрые...........
Ответы
Всего ответов: 7
Номер ответа: 1
Автор ответа:
Нюся
ICQ: 350039706
Вопросов: 2
Ответов: 3
Профиль | | #1
Добавлено: 16.05.08 19:36
Public Sub d()
Dim Z(25) As Single
Dim n%, ostan%
n = InputBox("Ââåäèòå êîë-âî ýëåìåíòîâ â ìàññèâå"
fn = FreeFile: Open ":\1.txt" For Output As fn
For i = 1 To n
Z(i) = Int(Rnd * 20 - 10)
Next i
For i = 1 To n
Print #fn, Z(i);
Next i
For x = 1 To n - 1
For y = x + 1 To n
это начало, условие не знаю как=(((
Номер ответа: 2
Автор ответа:
J. Smith
ICQ: ненавижу
Вопросов: 40
Ответов: 477
Web-сайт:
Профиль | | #2
Добавлено: 16.05.08 20:00
Я тоже не могу Не проще это сделать в Экзеле? По моему там и вывести в таблицу удобно.
Номер ответа: 3
Автор ответа:
Нюся
ICQ: 350039706
Вопросов: 2
Ответов: 3
Профиль | | #3
Добавлено: 16.05.08 20:04
мне надо и там и там=((
Номер ответа: 4
Автор ответа:
AgentFire
ICQ: 192496851
Вопросов: 75
Ответов: 3178
Профиль | | #4
Добавлено: 16.05.08 23:41
А в блокноте не надо? :D
Номер ответа: 5
Автор ответа:
Нюся
ICQ: 350039706
Вопросов: 2
Ответов: 3
Профиль | | #5
Добавлено: 16.05.08 23:44
мне помогите тока в аксесе дописать, дальше сама...плизззззз
Номер ответа: 6
Автор ответа:
J. Smith
ICQ: ненавижу
Вопросов: 40
Ответов: 477
Web-сайт:
Профиль | | #6
Добавлено: 16.05.08 23:44
Agent что с сайтом?
"Срок действия демо версии завершен"
Номер ответа: 7
Автор ответа:
AgentFire
ICQ: 192496851
Вопросов: 75
Ответов: 3178
Профиль | | #7
Добавлено: 17.05.08 10:52
ну как что.. поставил движок, а он сцуко, обиделся что я им так и не занялся и выдал такую хрень Придеццо вообщем либо бесплатный искать либо с кряками)