Вопрос № 130358: Скажите, а можно ли как-нибудь сделать так, чтобы главная форма, которая всплывает сразу при открытии access, всплывала в полном развернутом виде? А то как-то некрасиво она открывается при открытии программы - на пол размера. Руководство требует, что...Вопрос № 130362: Помогите до завтра сделать эту программу.Очень надо . Язык программирования Бэйсик.
ДАНО: x-действительнoе числo.
ВЫЧИСЛИТЬ:
(x-2)*(x-4)*(x-8)*…*(x-64)
------------------------------------
(x-1)*(x-3)*(x-7)*…...Вопрос № 130370: Сделайте пожалуйста программку. Я язык Бэйсик
Обработка текстовой информации.
Дан текст. Выяснить, является ли этот текст идентификатором переменной;
...
Вопрос № 130.358
Скажите, а можно ли как-нибудь сделать так, чтобы главная форма, которая всплывает сразу при открытии access, всплывала в полном развернутом виде? А то как-то некрасиво она открывается при открытии программы - на пол размера. Руководство требует, чтобы было идеально все :(
Отвечает: Черников Игорь Владимирович
Здравствуйте, Мухина Мария!
Откройте базу в Access, выделите название Вашей формы, нажмите Конструктор.
Щёлкните 2 раза левой кнопкой мыши, где написано "Область данных" и на вкладке "Макет" установите требуемую высоту. Затем из выпадающего меню выберите "Форма" и на вкладке "Макет" установите требуемую ширину.
Удачи!
--------- От каждого по способностям, каждому по труду
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Мухина Мария!
Самый простой способ - добавить в код процедуры открытия формы строку:
...
DoCmd.Maximize
...
Евгений.
Отправлен: 03.04.2008, 12:58
Вопрос задала: Лиза (статус: Посетитель)
Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Коровин Александр
Здравствуйте, Лиза !
Попробуйте следующие функции:
Function FF_1(b As Double) As Double
Dim res As Double
Dim i As Integer
res = 1
i = 2
Do While i <= 64
res = res * (b - i)
i = i * 2
Loop
FF_1 = res
End Function
Function FF_2(b As Double) As Double
Dim res As Double
Dim i As Integer, j As Integer
res = 1
i = 1
j = 1
Do While i <= 63
res = res * (b - j)
i = i * 2
j = j + i
Loop
FF_2 = res
End Function
Ответ отправил: Коровин Александр (статус: 4-ый класс)
Ответ отправлен: 03.04.2008, 13:53 Оценка за ответ: 5
Отвечает: Павленко Александр Геннадьевич
Здравствуйте, Лиза !
код программы смотрите в приложении.
Приложение:
Ответ отправил: Павленко Александр Геннадьевич (статус: 2-ой класс)
Ответ отправлен: 03.04.2008, 16:26 Оценка за ответ: 5
Отвечает: Andrey_K
Здравствуйте, Лиза !
Не надо лениться, а надо сесть и составить программу - это институтский курс Бейсика - только и всего. Делается все в одном цикле, если сложно в одном - то делайте в двух. Кроме того, подходят все ответы, которые Вам уже предоставили.
Ответ отправил: Andrey_K (статус: 1-ый класс)
Ответ отправлен: 03.04.2008, 16:53 Оценка за ответ: 5
Отвечает: Черников Игорь Владимирович
Здравствуйте, Лиза !
Вы не указали на каком именно Бейсике нужно писать, поэтому 2 варианта:
QBasic:
'Объявляем переменные
DIM x AS INTEGER
DIM y AS LONG
DIM i AS INTEGER
PRINT "Введите значение х " 'Выводим надпись на экран
y = 1 'Если первоначально у будет =0, ответ тоже будет 0, поэтому 1
INPUT x 'Ввод данных с клавиатуры
FOR i = 1 TO 6 'Повторяем цикл 6 раз
y = y * (x - 2 ^ i) 'Вычисляем Ваше выражение
NEXT i 'Конец цикла
PRINT y 'Выводим ответ на экран
--------------------------------------
DIM x AS INTEGER
DIM y AS LONG
DIM i AS INTEGER
PRINT "Введите значение х "
y = 1
INPUT x
FOR i = 1 TO 6
y = y * (x - (2 ^ i) - 1)
NEXT i
PRINT y
А это на VBA:
Sub Макрос2()
Dim x As Integer
Dim y As Long
Dim i As Integer
x = InputBox("Введите значение х ")
y = 1
For i = 1 To 6
y = y * (x - 2 ^ i)
Next i
MsgBox y
End Sub
------------------------------------
Sub Макрос2()
Dim x As Integer
Dim y As Long
Dim i As Integer
x = InputBox("Введите значение х ")
y = 1
For i = 1 To 6
y = y * (x - (2 ^ i) - 1)
Next i
MsgBox y
End Sub
--------- От каждого по способностям, каждому по труду
Обработка текстовой информации.
Дан текст. Выяснить, является ли этот текст идентификатором переменной;
Отправлен: 03.04.2008, 14:15
Вопрос задала: Лиза (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Павленко Александр Геннадьевич
Здравствуйте, Лиза !
Идентификатор переменной в QBasic подразумевает:
1) состоит из латинских букв и цифр
2) первый символ - буква
3) длина от 1 до 40 символов
проверим все эти условия в обратном порядке.
Приложение:
Ответ отправил: Павленко Александр Геннадьевич (статус: 2-ой класс)
Ответ отправлен: 03.04.2008, 16:49 Оценка за ответ: 5
Отвечает: Черников Игорь Владимирович
Здравствуйте, Лиза!
Вот Ваша программа на QBasic
DIM Perem AS STRING
PRINT "Введите название переменной ";
10 INPUT Perem
IF LEN(Perem) = 0 THEN PRINT "Данные не введены, повторите ввод": GOTO 10
IF LEN(Perem) > 40 THEN PRINT "Переменная не может быть больше 40 символов"
FOR i = 1 TO LEN(Perem)
SELECT CASE ASC(LCASE$(MID$(Perem, i, 1)))
CASE 48 TO 57, 97 TO 122
CASE ELSE
PRINT "Переменная должна состоять только из латинских букв и цифр"
END SELECT
NEXT i
IF VAL(MID$(Perem, 1, 1)) > -1 THEN PRINT "Переменная не может начинаться с цифры"
END
Удачи!
--------- От каждого по способностям, каждому по труду
