Вопрос № 115606: Добрый вечер. При попытке упорядочивания массива s(i) по убыванию, для чего по s(i) закрепляю ячейки, программа выдает сообщение о повторяющимся определении. Предполагаю, что ошибка связанна с попыткой ввода значения в одну ячейку два раза (s(i) = 0 ...Вопрос № 115675: Доброе время суток господа Эксперты.
Имеется программа, написанная в Excell-е (АРМ), которая использует базу данных. БД не защищена паролем, открывается нормально.
Но при установке пароля на БД (к примеру "1234") программа ее откр...
Вопрос № 115.606
Добрый вечер. При попытке упорядочивания массива s(i) по убыванию, для чего по s(i) закрепляю ячейки, программа выдает сообщение о повторяющимся определении. Предполагаю, что ошибка связанна с попыткой ввода значения в одну ячейку два раза (s(i) = 0 и s(i) = s(i) + a(i, j) * a(i, n - k)). Пршу помоши
Приложение:
Отправлен: 23.12.2007, 20:49
Вопрос задал: Марсель (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Megaloman
Здравствуйте, Марсель !
Похоже, Ваш самый первый вопрос развивается.
Мне Ваша прога не нравится.
Dim a(n, n) As Integer
Integer - целое, а Вы в массив заносите результаты вычисления синусов-косинусов, они не могут быть целыми
В Basic, кажется, по умолчанию нумерация элемента массива начинается с 0.
А потом в цикле
DIM g(i) - это вообще непонятно, из-за этого и сообщение, похоже
Внимательно прочел вопрос № 114324 aij=(Cos(i!)+sin(n-j))/j
Я не видел ранее факториал.
Итак, ставим задачу:
Надо рассчитать массив Aij по приведенной формуле
Надо вычислить вектор Si, элементы которого равны скалярному произведению i строки на побочную диагональ
Упорядочить Si по убыванию
Легче написать заново прогу, чем разгребать ошибки
Опять я пишу на VBA, QBasic у меня нет
N = 5
Dim A(1 To 5, 1 To 5) As Single, S(1 To 5) As Single
' ------------------------------ Рассчитаваем матрицу Aij
Fak_i = 1
For i = 1 To N
Fak_i = Fak_i * i
For j = 1 To N
A(i, j) = (Cos(Fak_i) + Sin(N - j)) / j
Next j
Next i
' ---------------------- Рассчитаваем вектор, эл котор = скал произв строки на побоч диагональ
For i = 1 To N
S(i) = 0
For j = 1 To N
Dj = A(N - j + 1, j)
S(i) = S(i) + A(i, j) * Dj
Next j
Next i
' ---------------------- Упорядочим массив Si по убыванию
For i = 1 To N
For j = i To N
If S(i) < S(j) Then
Dj = S(i)
S(i) = S(j)
S(j) = Dj
End If
Next j
Next i
Проверил, в Excel работает, я тут только вывод результатов в таблицу убрал, Вам он не нужен.
--------- Нет времени на медленные танцы!
Ответ отправил: Megaloman (статус: Студент)
Ответ отправлен: 23.12.2007, 22:50 Оценка за ответ: 5
Вопрос № 115.675
Доброе время суток господа Эксперты.
Имеется программа, написанная в Excell-е (АРМ), которая использует базу данных. БД не защищена паролем, открывается нормально.
Но при установке пароля на БД (к примеру "1234") программа ее открыть не может. Все мой варианты прописать пароль в кодинге успеха не принесли.
Подскажите пожалуйста правильный кодинг открытия БД, защищенную папролем.
Приложение:
Отправлен: 24.12.2007, 09:26
Вопрос задал: deeppc (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Хабибуллин Венер Якупович!
Ответ на Ваш вопрос в приложении.
Евгений.
Приложение:
Ответ отправил: Тесленко Евгений Алексеевич (статус: Студент)
Ответ отправлен: 24.12.2007, 21:31 Оценка за ответ: 5 Комментарий оценки: 5+.
Огромное спасибо Евгений Алексеевич!
Вашу строку вписал в свой проект - ВСЕ РАБОТАЕТ.
