Для лентяев

[vitaminka]

Помогите пожалуйста решить задачу:
Массив 3х4 целых чисел заполнен случайным образом числами в диапазоне от –12 до +12. Определить, сколько раз менялся знак в каждой строке (считать, что 0 – это положительное число). Результат вывести в таблицу Excel.

Dim x(1 To 3, 1 To 4) As Intenger
upperbound = 12
lowerbound = -12
For i = 1 To 3
For j = 1 To 4
x(i, j) = Int(Rnd(-12) * 12) + 1
c = 0
a = InputBox("Введите число от -12 до 12")
If a >= 0 Then

Вот что я написала. Дальше не знаю как, может вообще всё неправильно))

 

[Guest]

Здравствуйте товарищи программисты. Я учусь на программиста уже год, то есть я ещё новичок в этой области. Сейчас изучаем Visual Basic. Дело к сессии, наш препод задал нам 2 задачи, без которых на экзамен не допускают. Проблема в том, что не получается у меня их решить. Задачи с массивами, но соль в том, что эти массивы закинуты в аксессовскую БД, то есть получается работа с БД в Визуал Бэйсике. Собственно, вот задачи. Помогите если есть время. Благодарю всех откликнувшихся. Про недопуск к экзаменам и про всякие подобные вещи писать не стану, ибо уже наверно вы наслышаны этим от таких же новичков, как и я.

1. В одномерном массиве, состоящем из n вещественных элементов, вычислить максимальный по модулю элемент массива; сумму элементов массива, расположенных между первым и вторым положительными элементами" также преобразовать массив таким образом, чтобы элементы, равные нулю, располагались после всех остальных.

2. Соседями элемента A(i,j) в матрице назовём новые элементы A(k,l), где i-1<=k<=i+1, j-1<=l<=j+1, (k,l)<>(i,j). Операция сглаживания матрицы даёт новую матрицу того же размера, каждый элемент которого получается как среднее арифметическое имеющихся соседей соответсвующего элемента исходной матрицы. Построить результат сглаживания заданной вещественной матрицы размером 10х10 (оформить в виде процедуры); также в сглаженной матрице найти сумму модулей элементов, расположенных ниже главной диагонали (оформить в виде функции).

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

 

[Guest]

Здравствуйте! мне кто нибудь может помочь сделать анимацию в QBasic????
если есть такие очень прошу ответить мне по почте bebylee@rambler.ru

 

[Guest]

Ребята!Помогите пожалуйста!
Нужно решить следующую задачу с помощью программирования,так наверное это называется,препод,что-то там про beisik говорилсама в этом полный нуль
Задача:
Дана длина ребра куба.Найти объём куба и площадь его боковой поверхности.

ЗАРАНЕЕ БЛАГОДАРЮ!!!!!!!!

 

[4erten0k]

Ну хоть кто-нибудь помогите с задачкой без нее никак зачет получить не могу, буду Оооочень благодарна
задачка: Подсчет количества русских согласных букв: что именно нужно сделать: 1. ввод исходного текста 2. подсчет количества русских согласных букв во введенном тексте и 3. вывод результата на экран

 

[tuborg777]

помогите составить программу!!! !!!!подсчет суммы отрицательных элементов массива!!!

 

[Dima89]

Ой йййой, зачем же так орать??))
Про то как инициализировать массив ты ниче не сказал, а

!!!!подсчет суммы отрицательных элементов массива!!!

вот такой:

Dim a(1 To 10) As Integer
Dim b As Integer

'......

b = 0
For i = 1 To 10
If a(i) < 0 Then b = b + a(i)
Next

где а - какой-то массив из 10-ти элементов, b - сумма неотрицательный элементов :Р

ЗЫ: что- то ветку забросили.... много вопросов незакрытых

 

[Hetman]

ЗЫ: что- то ветку забросили.... много вопросов незакрытых

сессия не только у тех кто задаёт вопросы, но и у тех кто может на них ответисть. А у кого, между прочим, и госы с дипломом в придачу + работа + прыткий и надоедливыый военкомат - тут поспать некогда, альтрузм сразу в организме падает до минимума.

 

[Dima89]

Да согласен Ну пока мне делать нечего поотвечаю чуть чуть если никто не против

Ветренная, слово "beisik" правильно пишется как "basic" Тягай прикрепленный файл, НО с все же кодом разберись, он не сложный, ведь препод же будет требовать обьяснения, че там как и че к чему.
Посмотреть вложение _________.rar

4erten0k, щазз че-нить сообразим...

 

[Guest]

видимо никто мне не поможет.... блин мне ж зачет не поставят..что ж делать то....аааааааа

 

[Dima89]

видимо никто мне не поможет.... блин мне ж зачет не поставят..что ж делать то....аааааааа

извеняйте с QBasic'ом незнаком.. стоп этож консольный компилятор, типа паскаля. Какая анимация......?

Ответ на пост № 122 и 128 одновременно :
На форме создаем текстбокс (text1) и кнопку (command1)

[codebox]Dim a(1 To 255) As Boolean
Dim b As Integer
Dim summa

Private Sub Command1_Click()

For j = 1 To Len(Text1.Text)
b = Asc(UCase(Right(Text1.Text, Len(Text1.Text) - j + 1)))
If a(B ) Then summa = summa + 1
Next

MsgBox summa
summa = 0
End Sub

Private Sub Form_Load()
summa = 0

'инициализация массива а
'записываем ИСТИНУ для больших согласных русских букв
a(201) = True
a(214) = True
a(202) = True
a(205) = True
a(195) = True
a(216) = True
a(217) = True
a(199) = True
a(213) = True
a(212) = True
a(194) = True
a(207) = True
a(208) = True
a(203) = True
a(196) = True
a(198) = True
a(215) = True
a(209) = True
a(204) = True
a(210) = True
a(193) = True

End Sub[/codebox]
Функцию Right попробуй заменить на GetChar, код будет проще. У меня GetChar не работала хз почему, пришлось поизвращаться с Right.

 

[nastenkas]

Ребята!Помогите пожалуйста...У меня есть код в бейсике 6.0 где связана база данных.Код огромный(на 3 страницы) но достаточно лёгкий для знающих людей.А так как яплохо в этом рахбираюсь,очень прошу помочь!Преподователь требует объяснения каждой строки...Посмотрите,кто-нибудь:
Программный код:[codebox]
Private Sub Form_Load()
Data1.DatabaseName = CurDir$ & "\prod.mdb"
Data1.RecordsetType = 0
Data1.RecordSource = "Таблица1"
End Sub

Private Sub mnuView_Click()
Dim i%, kz%, kp%

kz = Data1.Recordset.RecordCount
kp = Data1.Recordset.Fields.Count
fg.Rows = kz + 1: fg.Cols = kp
fg.FormatString = "^ Код |< Название предприятия |< Название продукции |^ Год начала " & _
"|^ Затр. на 1-ый год |> Затр. на 2-ой год |> Затр. на 3-ий год"
With Data1.Recordset
.MoveFirst
For i = 1 To kz
fg.TextMatrix(i, 0) = .Fields(0)
fg.TextMatrix(i, 1) = .Fields(1)
fg.TextMatrix(i, 2) = .Fields(2)
fg.TextMatrix(i, 3) = .Fields(3)
fg.TextMatrix(i, 4) = .Fields(4)
fg.TextMatrix(i, 5) = .Fields(5)
fg.TextMatrix(i, 6) = .Fields(6)
.MoveNext
Next i
End With
End Sub

Private Sub mnuSpravka_1_Click()
Dim kz%, sumzatr@, i%
Label1 = "Справка о суммарных затратах предприятий:"
With Data1.Recordset
kz = .RecordCount
fg1.Rows = kz + 1: fg1.Cols = 4
fg1.FormatString = "^ Код |< Название предприятия |^ Год начала реконструкции |> Сум. затраты "
.MoveFirst
For i = 1 To kz
fg1.TextMatrix(i, 0) = .Fields(0)
fg1.TextMatrix(i, 1) = .Fields(1)
fg1.TextMatrix(i, 2) = .Fields(3)

sumzatr = .Fields(4) + .Fields(5) + .Fields(6)
fg1.TextMatrix(i, 3) = sumzatr
.MoveNext
Next i
End With
End Sub

Private Sub mnuSpravka_2_Click()
Dim kz%, srz@, znach@, i%, j%
Label1 = "Справка о предприятиях со среднегодовыми затратами меньше заданного зпачения:"

kz = Data1.Recordset.RecordCount
fg1.Rows = 1: fg1.Cols = 4
fg1.FormatString = "^ Код |< Название предприятия |^ Год начала реконстр.|> Среднегод. затраты "
znach = InputBox("Введите заданное значение среднегодовых затрат", , 40000)
j = 0
With Data1.Recordset
.MoveFirst
For i = 1 To kz
srz = (.Fields(4) + .Fields(5) + .Fields(6)) / 3
If srz < znach Then
j = j + 1
fg1.Rows = fg1.Rows + 1
fg1.TextMatrix(j, 0) = .Fields(0)
fg1.TextMatrix(j, 1) = .Fields(1)
fg1.TextMatrix(j, 2) = .Fields(3)
fg1.TextMatrix(j, 3) = Round(srz, 2)
End If
.MoveNext
Next i
End With
End Sub

Private Sub mnuExport_Click()
Dim kod%, naimpred As String * 20, naimprod As String * 15
Dim god%, zatr1@, zatr2@, zatr3@, nf%, namf As String * 12, kz%, i%
Label1 = "Справка о предприятии по экспортированным в текстовый файл данным:"
kz = Data1.Recordset.RecordCount
fg1.Rows = kz + 1: fg1.Cols = 3
fg1.FormatString = "^ Код |< Название предприятия |< Название продукции "
nf = FreeFile
namf = "Таблица1.txt"
Open CurDir$ & "\" & namf For Input As #nf
i = 0
Do Until EOF(nf)
i = i + 1
Input #nf, kod, naimpred, naimprod, god, zatr1, zatr2, zatr3
fg1.TextMatrix(i, 0) = kod
fg1.TextMatrix(i, 1) = naimpred
fg1.TextMatrix(i, 2) = naimprod
Loop
Close #nf
End Sub

Private Sub mnuExit_Click()
frmZ7.Hide
frmTitul.Show
End Sub[/codebox]

 

[Guest]

Здравствуйте, знатоки! помогите плз с заданием по Basic!

Необходимо создать 2 кнопки, затем массив из 10ти чисел.
и кнопку, чтобы подсчитать количество отрицательных чисел

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

 

[Dima89]

Даша, а что будут делать 2 кнопки на форме? Скажи пожалуйста.. Создавать массив?
Сначала надо объявить этот массив (а) и некую переменнюю, ну скажем (x), в которую запишется сумма отр. чисел

Dim a(1 To 10) As Integer
Dim x As Integer

После заполнения массива эламентами (кстати каким образом?), приведенный ниже код считает кол-во отр. чисел и выводит это кол-во в окно сообщения msgbox

x = 0
For i = 1 To 10
If a(i) < 0 Then x = x + 1
Next
MsgBox x

 

[Guest]

to Дима

Первая кнопка - чтобы можно было вводить 10 чисел (и положительных, и отрицательных),
а вторая - чтобы посчитать количество именно отрицательных чисел

 

[Dima89]

Вот теперь понятно Собственно, правельно поставленный вопрос собдержит в себе половину ответа

Dim a(1 To 10) As Integer
Dim x As Integer

Private Sub Command1_Click()
For i = 1 To 10
a(i) = Int(InputBox("Введите " & i & "-й элемент массива"))
Next
MsgBox "Ввод элементов массива закончен"
End Sub

Private Sub Command2_Click()
x = 0
For i = 1 To 10
If a(i) < 0 Then x = x + 1
Next
MsgBox ("В массиве найдено " & x & " отрицательных элементов")
End Sub

B)
По желанию можно добавить 3 строки кода, чтоб введенный массив отображался на форме в компоненте label...

 

[Guest]

Дима, спасибо!!! Надеюсь, сдам весь этот ужас)))

 

[nastenkas]

а мне никто отвечать не хочет...

 

[Guest]

анимация в QBasic
нужно сделать 2 анимации.
первая: колобок слева катится в право,а справа должен стоять волк.
колобка сделать так:
круглый, оранжевый, RAD 15, DRO, TA30.
а волка любого.

и вторая анимация:
нарисовать девочку любую и чтоб она что нибудь делала.
ну например ходила или книжку перелистывала. на свое усмотрение.


ПОМОГИТЕ МНЕ!!!!!!!!!

 

[Guest]

Господа, помогите плз, горю на зачете!

Немогли бы вы составить в бэйсике
2 кнопки - первая - вводит массив из 10ти чисел
а вторая - подсчитывает произведение отрицательных чисел