Короче, я смотрел форум с достаточно коротким названием Задачка. Там куча новичков просят помощи у форумчанинов. Ну так вот - для всех таких лентяев я делаю тему. Задавайте здесь вопросы типа Помогите написать программу на Бейсике. Буду по возможности отвечать. И прошу не писать мне сообщения типа зачем тебе это надо и т.п.

Нужен код для программы сделаной с помощью Microsoft Visual Basic 2008 Express Edition.
В программу вставлена база данных сделаная с помощью Microsoft Access и программа должна сортировать и
искать данные в этой базе.
Так выглядит программа
 _____1.JPG ( 59.18 килобайт ) Кол-во скачиваний: 4

Так в запущеном види
 _____2.JPG ( 81.53 килобайт ) Кол-во скачиваний: 4

Ну помогите кто нибудь!!
Код совсем простой!

Помогите плиз с бейсиком...
задание:
Цель работы - разработать программу распечатки расписания в виде ежедневника на листе Excel. Строкам соответствуют время начала каждого занятия с 9=00 до 20=15, столбцам – даты.
Каждая клетка – пара по расписанию.
Исходные данные – традиционное расписание четных/нечетных недель (прилагается). Один лист распечатки должен соответствовать одному месяцу.
Программа должна обеспечивать возможность выполнения перечисленных ниже функций:
1. Ввод исходного расписания
2. Преобразование
3. Показ расписание на определенный месяц в пределах одного семестра.
4. возможность ручной корректировки полученного расписания.
5. явные действия
6. Защита

Добрый вечер! Ребята, такой вопрос.. очень надо мне блок схема... пробовала делать прогой что генерирует - получается не то.. выдаёт очень много лишнего и ненужного.. может кто сможет мне её сделать... очень надо.. Спасиб, если найдутся отзывчивые люди..

Здраствуйте, не могли бы вы мне помочь в решении задачи: Дана матрица размером M на N, найти в ней максимальный по модулю элемент, и строку содержащую его вывести на экран. Я не могу сделать код нахождения максимального по модулю элемента, просто не знаю как это делается в двумерных массивах.

Так же как и в одномерных.

max:=abs(A[1,1]);%не помню функцию модуля в пасе
max_line_num:=1
for i:=1 to M do
for k:=1 to N do
if max<abs(A[i,k]) then
begin
max:=abs(A[i,k]);
max_line_num:=i;
end

Сообщение отредактировал Ogion7 - 6:05:2008, 08:52

это ж не Visual Basic. на VB это примерно так

Max = Abs(A(1, 1))
max_line_num = 1
For i = 1 To M
    For k = 1 To N
        If Max < Abs(A(i, k)) Then
            Max = Abs(A(i, k))
            max_line_num = i
        End If
    Next
Next

Сообщение отредактировал Hetman - 6:05:2008, 20:30

промахнулся....

Уважаемый Герич! А там лентяев на всех хватит? или уже клиентов поделили? Я в эту сессию делал лабы однокурсникам, надо расти над собой

помогите, пожалуйста написать программу в basic! Нужно очень срочно!!!

Вычислите cos(1+cos(2+ … +cos(39+cos40)...)).



заранее спасибо!

для того чтобы вычислить косинус любого числа тебе нужна функция
Cos()
как всё просто, не правда ли?
а синуса?

Правильно! Sin()

Сообщение отредактировал Hetman - 17:05:2008, 12:21

На работе у меня есть куча файлов текстовых, когда их открываешь там каркули, мне нужно эти каракули перевести в читаемый вид в rtf формат. Этих файлов у меня от 20 000 до 25 000 штук и в ручную их перелопатить нет сил и времени да и как это сделать вручную я не знаю. Буду рад если кто поможет Файла хранятся на диске в папках по несколько тысяч. Ежемесячно получаю около 1000 - 1500 таких же файлов но уже в основном в читаемом виде но не в формате rtf. Заранее благадарю того кто откликнится помочь утопающему в файлах и разумеющему в программировании. Хоть я и не лентяй по жизни но в вашем форуме участвую как лентяй.

Составьте программу на языке VBA, которая вычисляет количество положительных, отрицательных и нулевых элементов в одномерном массиве из n чисел. Программа должна проверять правильность введенных пользователем данных и, если они неверные(n :<либо равно нулю, выдавать сообщение об ошибке.
1)Исходные данные:
Введите размерность массива n: -7
Результат:
Неверно введено n

2)Введите размерность матрицы n: 3
Результат:
Минимальный элемент диагонали равен 2.

Матрица:

7 0 2
11 2 7.7
2 3 2

ПОМОГИТЕ ПОЖАЛУЙСТА втечении этой недели

Сообщение отредактировал malinca - 14:05:2008, 18:55

Здравствуйте. Помогите пожалуйста. решить 2 задачки. Очень прошу.
1) Даны натуральное число n и вещественные числа b1, b2 ...Bn. Определить сумму тех вещественных чисел, которые больше p.
2) Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти: сумму всех чисел последовательности; количество всех числе последовательности.
Заранее огромное спасибо. Очень прошу выручите пожалуйста.

Забыла написать. Мне очень надо их сдать в эту субботу. Пожалуйста помогите!!!!

мой mail elvinkabest@mail.ru

Здравствуйте товарищи программисты! Помогите пожалуйства решить сию задачку:

Составить программу прямого и обратного криптографического преобразования методом Вижинера. В качестве алфавита открытого текста использовать русский язык.

Программу надо реализовать в Visual Basic!
Времени в обрез, так что надеюсь на вашу помощь! Plizzz, help me!
Заранее спасибо.

ElisaVeta для начала вот ]]>ссылка]]> где можно почитать про этот метод шифрования. далее дело за малы реализовать этот метод на языке программирования.
Надеюсь меня коллеги поддержат, что наиболее удобным будет реализовать таблицу Вижинера используя Одномерный (хотя можно и двумерный) строковый массив

Dim tabl() as string, CryptKey as String

затем определять его размерность исходя из длинны ключа

Cryptkey="шифроключ"
ReDim tabl(len(Cryptkey))

остаётся сделать небольшую функцию которая будет производить ротации строк (первый символ переносить в конец строки до тех пор пока он не равен символу ключа)
которую как я попозреваю можно будет использовать как для шифровани так и для дешифрования. Если суть уловил - дерзай.

Сообщение отредактировал Hetman - 15:05:2008, 20:42

Всем привет! Помогите пожалуйста написать программу в VB в Microsoft Office Excel. Программа по расчету металлургических печей. Сам расчет имеется, его надо оформить в этой программе. И еще в расчете есть номограммы, которые должны считываться. Если что пишите 333272188. Заплачу

необходим макрос, способный выгрузить определенные таблички из excel в word. просмотрела кучу информации, но видимо навык мой в вба слишком устарел, чтобы разобраться в этом. Помогите, пожалуйта - как установить в определенной форме текстового документа поля для последующей выгрузки в них определенных таблиц из excel. Очень прошу помочь, заранее спасибо!

Ребята пожалуйста помогите. Я в отчаянии. Завтра сдавать задачки, а я хоть убей не могу в них разобраться. А без них не видать мне зачета. Очень прошу помоги.
1) Даны натуральное число n и вещественные числа b1, b2 ...Bn. Определить сумму тех вещественных чисел, которые больше p.
2) Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти: сумму всех чисел последовательности; количество всех числе последовательности.
Заранее огромное спасибо. Очень прошу выручите пожалуйста.

мой mail elvinkabest@mail.ru

для этого есть соответствующий раздел ]]>тут]]>

ААА! Кто-нибудь помогите!
Даны два двумерных массива размерностью (3,4), заполненные случайными числами. нужно сделать третий двумерный массив (3,4), чтобы в нём нечетные столбики-это были нечетные столбцы из 1ого массива, а четные столбики-это были чётные столбцы из 2ого массива.
я сделала что-то похожее, но как довести до конца-непонятно!
P.S. еще нужно найти для третьего массива сумму значений в нечетных столбцах, но это я сама сделаю, главное-1 часть задания!

ВОТ ЧТО ПОЛУЧИЛОСЬ:




6 кнопок: 1)1 массив
2)2 массив
3)получить 3 массив
4)сумма элементов нечетных столбцов
5)очистка
6)выход

22. Напишите процедуру на языке VBA для нахождения функции
Y(x)=|cosx+0.5/cosx+0.7 |
Вычисление |cosx+k| оформить в виде функции.
Исходные данные: Результат:
x=2 y(2) =0,2954103538


22. Создайте пользовательскую форму на языке VBA, выводящую
сообщение “Досвидания, пользователь” на событие Terminate. Добавьте в форму
кнопку Отмена для завершения работы с пользовательской формой.



22. Составьте блок-схему и программу на языке VBA, которая вычисляет,
сколько раз последовательность меняет знак (длина последовательности не
ограничена). Признаком конца последовательности является ввод нуля.
Исходные данные: Результат:
1. Введите число: 10 1. Последовательность меняет знак 1 раз
Введите число: –15
Введите число: 13
Введите число: 1,7
Введите число: 0
2. Введите число: 17 2. Последовательность не меняет знак
Введите число: 12,4
Введите число: 0

Сообщение отредактировал malinca - 17:05:2008, 22:24

спасибо