| Автор | Пара задач по Basic'у. Помогите решить |
|---|
Знаю, тут есть мегамозги, кто осилит это за минуты. Коллега попросила помочь, завтра экзамен, у неё конь не валялся, а у меня, соотв-но, знаний тоже - не в зуб ногой.
Помогите решить, нужно полное решение - математическая модель, алгоритм решение, обозначение переменных, блок-схема, код в Бэйсике и чтобы это всё работало!
В долгу не останусь - эль, танцующие топлес фурии, всё к вашим услугам!
Задание 1.
Имеется информация о количестве для N наименований продуктов на складе. Определить номер продукта, количество которого максимально.
Задание 2.
На междугородней телефонной станции имеется информация об оплате следующего вида: номер телефона, сумма за междугородние телефонные переговоры (МТР), сумма, внесенная абонентом. Составить список номеров телефонов тех абонентов, которые должны АТС (остаток меньше 0). Исходные данные вывести в виде таблицы. |
| А не проще SQL'ем |
экзамен по бэйсику)
VBA кажись. |
готов одарить золотом...
по 5к чистого имперского за задачу. |
по 5к чистого имперского за задачу.
С барского плеча шуба. |
с паршивой овцы, как говориться, хоть шерсти клок!
вы главное решите - деньги не проблема. |
| Честно скажу, что не знаю. Но мне интересно, зачем Вам это? |
VBA для чего? Для экселя? Или аксэса? Или может корела?)
Задачи простые, но что есть "математическая модель"? Ну и с блок-схемкой, что есть солидный лишний кусок геморроя, на дорого потянет. Никак не на 5к, и даже не на 20к.
И да, чтобы сделать все как надо - обязательна методичка, т.к. способов много разных, а требуется один конкретный, которому учили, преподаватель может просто не понять решения. Не думаю, что у нас тут водятся экстрасенсы.
Мои соболезнования коллеге. |
а вот от методички в эл.виде я отказался, думал задания хватит.
ну уж вы не перегибайте, мне пару-тройку лет назад посложнее задачи решали и далеко не за 20к.
VBA для экселя, по крайней мере она в экселе мучилась сегодня.
сам код за пятеру накидать кто-нибудь в силах? остальное сама оформит. |
CLS
PRINT "N="
INPUT n
PRINT "Vvedite massiv"
FOR i = 1 TO n
INPUT a(i)
NEXT
max = a(1)
FOR i = 1 TO n
IF a(i) > max THEN maxID = i
IF a(i) > max THEN max = a(i)
NEXT
PRINT "Max ID = "
PRINT (maxID)
END
Это для первой.
Сначала вводишь N, потом N цен, и затем он выводит номер самой высокой. |
для Balmung:
Математическая модель - формула) |
Наконец-то нагуглилил инфу, как заставить if выполнить несколько операторов. Из-за паскаля я уже давно забыл про это извращение.
Так что, вот так правильнее
CLS
PRINT "N="
INPUT n
PRINT "Vvedite massiv"
FOR i = 1 TO n
INPUT a(i)
NEXT
max = a(1)
FOR i = 1 TO n
IF a(i) > max THEN
maxID = i
max = a(i)
END IF
NEXT
PRINT "Max ID = "
PRINT (maxID)
END |
| Боже! как же всё-таки хорошо, что я отказался сдавать информатику! |
для Self-Deception:
а у неё примерно такое решение:
Программа на VBA имеет вид:
Sub Задание1()
Dim K() As Single
Dim Max As Single
Dim N, i, nm As Integer
N = InputBox("Введите количество наименований продуктов на складе")
ReDim K(N) As Single
For i = 1 To N
K(i) = InputBox("Введите" & i & "-й элемент массива")
Debug.Print i; "количество", K(i)
Next i
Max = K(1)
nm= 1
For i = 2 To N
If K(i) < Max Then
Max = K(i)
nm = i
End If
Next i
Debug.Print "Номер дня с максимальным расходом="; K
Debug.Print "Максимальный расход предприятия= "; Max
End Sub |
| Потому как Бейсик и ВизуалБейсик все таки вещи разные. Тем более в задании даны таблицы. |
| в общем, если 1ая задача у неё более менее нормально решена, сделайте по-возможности 2ую. |
для Lucky_Cat:
ЕГЭ по информатике вполне адекватная работа, я гарантирую. Впрочем, во времена моего поступления ЕГЭ по этой дисциплине требовалось всего в 1 вуз из более или менее адекватных. Сейчас этот косяк в зачислении исправили, вроде.
ВБ - ужас. Паскаль лучше. |
Как я понял из примера, в первой задаче данные вводятся средствами VBA, а не берутся из таблицы.
Во второй вроде как все берется из таблицы и записывается в таблицу. Так ведь? Как обозначаются или находятся диапазоны входных данных?
Яркий пример необходимости методички:
Dim K() As Single
Dim Max As Single
Dim N, i, nm As Integer
Вот из этого уже следует, что работаем с Option Explicit, видимо, препод требует, иначе можно объявление переменных опустить, а для таких небольших задач я бы так и сделал. |
методичку попробую раздобыть утром, экзамен в 13 по серверу.
надеюсь к этому времени что-нибудь замутим! |
18+
и оно бы нихрена не работало потом, если бы там, где проверялось, этот режим был установлен по умолчанию через интерфейс. |
