| Вопрос: СРОЧНО! Горю.. Нужна помощ по задачам. | Добавлено: 11.01.09 21:19 |
Автор вопроса:  oneill
|
|
Надо сдать до конца недели контрольные. Для тех кто разбирается, я думаю это не составит труда. А я в этом полный нол. ПОМОГИТЕ ПОЖАЛУЙСТА!!
Зад.1. составить программу вычисления значения функции: {sinx, если X< либо = A Y={cosx, если A < X < B {tg, если X Контрольный варинат: X=0.2, A=1, B=0 (3 скобочки { - это одна большая фигурная скобка.) зад. 2 Детали цилиндрической формы характеризуются параметрами: H -высота, R-радиус основания, P - плотность материала из которого изготовлены детали. Пресс штампует детали отличающиеся только по высоте (H=1 до N) на 1. Составить программу расчета массы деталей. Контрольный варинат: R=5, P=7.8г/см, N=5 Зад.3. Задан массив A из N элементов. Составить программу, подсчитывающую число положительных элементов в массиве. Контрольный вариант: A(I): 1,2,-3,-11,-33,0,5,100,99,-8. ЗАРАНЕЕ ВАС БЛАГОДАРЮ. |
| Ответы | Всего ответов: 15 |
|
Номер ответа: 1 Автор ответа:  AngryBadger Вопросов: 33 Ответов: 245 |
Профиль | Цитата | #1 | Добавлено: 12.01.09 10:11 |
|
В первой задаче, не могу понять условия.
Вторая: Sub mass()
Dim P As Single Dim R As Single Dim h As Integer Dim n As Single Dim m As Single P = 7.8 R = 5 h = 1 n = InputBox("Введите максимальную высоту детали" 
For h = 1 To n m = 2 * 3.14 * R * h * P MsgBox "При высоте детали равной" & h & ", ее масса ровна " & m Next h End Sub _______________________________________________________ Третья: Sub arr()
Dim A As Variant Dim i As Integer Dim item As Variant A = Array(1, 2, -3, -11, -33, 0, 5, 100, 99, -8) i = 0 For Each item In A If item > 0 Then i = i + 1 Next item MsgBox "В массиве (А) - " & i & " положительных элементов" End Sub |
||
|
Номер ответа: 2 Автор ответа: AngryBadgerВопросов: 33 Ответов: 245 |
Профиль | Цитата | #2 | Добавлено: 12.01.09 10:14 |
|
Во второй задаче замени строку: Dim n As Single
на Dim n As Integer
|
||
|
Номер ответа: 3 Автор ответа:  oneill Вопросов: 1 Ответов: 7 |
Профиль | Цитата | #3 | Добавлено: 12.01.09 11:14 |
|
БОЛЬШОЕ СПАСИБО МИХАИЛ!
Михаил а можно в 2 задаче сделать так, чтоб числа массива можно было вводить самому? Еще раз огромное спасибо! Может кто посмотрит 1 задачу. вот я условие выложил для нее в виде картинки. http://ifolder.ru./9986489 |
||
|
Номер ответа: 4 Автор ответа: FatherВопросов: 0 Ответов: 159 |
Профиль | Цитата | #4 | Добавлено: 12.01.09 11:45 |
MsgBox problem1(0.2, 1, 0) |
||
|
Номер ответа: 5 Автор ответа: oneillВопросов: 1 Ответов: 7 |
Профиль | Цитата | #5 | Добавлено: 12.01.09 12:03 |
| Father ОГРОМНОЕ СПАСИБО ТЕБЕ! Сразу вопрос. я не могу разобраться че то ! как мне ее в VB в worde который вставить? и оформить, чтоб можно было значения в форме вводить! | ||
|
Номер ответа: 6 Автор ответа: AngryBadgerВопросов: 33 Ответов: 245 |
Профиль | Цитата | #6 | Добавлено: 12.01.09 12:38 |
|
чтоб числа массива можно было вводить самому?
Замени строку: A = Array(1, 2, -3, -11, -33, 0, 5, 100, 99, -8)
На: A = Split(InputBox("Через запятую, введите все элементы массива."
, "," |
||
|
Номер ответа: 7 Автор ответа: AngryBadgerВопросов: 33 Ответов: 245 |
Профиль | Цитата | #7 | Добавлено: 12.01.09 12:38 |
| Где смайлы, должны быть закрывающие скобки. | ||
|
Номер ответа: 8 Автор ответа: AngryBadgerВопросов: 33 Ответов: 245 |
Профиль | Цитата | #8 | Добавлено: 12.01.09 12:46 |
|
Public Function problem1(x As Double, A As Double, B As Double) As Double
Select Case True Case x <= A problem1 = Sin(x) Case x > A And x < B problem1 = Cos(x) Case Else problem1 = Tan(x) End Select End Function Sub TestOf() MsgBox problem1(InputBox("X=" , InputBox("A=", InputBox("B=")
End Sub |
||
|
Номер ответа: 9 Автор ответа: oneillВопросов: 1 Ответов: 7 |
Профиль | Цитата | #9 | Добавлено: 12.01.09 12:58 |
|
Public Function problem1(x As Double, A As Double, B As Double) As Double
Select Case True Case x <= A problem1 = Sin(x) Case x > A And x < B problem1 = Cos(x) Case Else problem1 = Tan(x) End Select End Function Sub TestOf() MsgBox problem1(InputBox("X=" , InputBox("A=", InputBox("B=")
End Sub[/ote] а значение функции вычисляется? у меня что то не идет.. |
||
|
Номер ответа: 10 Автор ответа: oneillВопросов: 1 Ответов: 7 |
Профиль | Цитата | #10 | Добавлено: 12.01.09 13:00 |
| ВСЕМ СПАСИБО! ПОШЛО! УРА!!! РЕБЯТА СПАСИБО))))))))))))))) | ||
|
Номер ответа: 11 Автор ответа: oneillВопросов: 1 Ответов: 7 |
Профиль | Цитата | #11 | Добавлено: 12.01.09 15:35 |
|
Public Function problem1(x As Double, A As Double, B As Double) As Double
Select Case True Case x <= A problem1 = Sin(x) Case x > A And x < B problem1 = Cos(x) Case Else problem1 = Tan(x) End Select End Function Sub TestOf() MsgBox problem1(InputBox("X=" , InputBox("A=", InputBox("B=")
End Sub и всетаки она не работает!Михаил, пришлите пожалуйста файлы проекта на ugtu_upi@mail.ru |
||
|
Номер ответа: 12 Автор ответа: FatherВопросов: 0 Ответов: 159 |
Профиль | Цитата | #12 | Добавлено: 12.01.09 15:57 |
| в InputBox дробные значения вводить через запятую. | ||
|
Номер ответа: 13 Автор ответа: oneillВопросов: 1 Ответов: 7 |
Профиль | Цитата | #13 | Добавлено: 12.01.09 16:59 |
| ла это ясно. при запуске проекта он выделяет первую строчку. Я хотел повешать его на кнопку. Типа вот эта программа может расчитать эту функцию. И кнопка расчитать. | ||
|
Номер ответа: 14 Автор ответа: AngryBadgerВопросов: 33 Ответов: 245 |
Профиль | Цитата | #14 | Добавлено: 12.01.09 17:16 |
|
Тогда пиши
Public Function problem1(x As Double, A As Double, B As Double) As Double
Select Case True Case x <= A problem1 = Sin(x) Case x > A And x < B problem1 = Cos(x) Case Else problem1 = Tan(x) End Select End Function Sub CommandButton1_Click() 'Вместо CommandButton1, пишешь название своей кнопки, например CommandButton3 или Кнопка2, вместо Click, может понадобиться написать Щелкнуть MsgBox problem1(InputBox("X=" , InputBox("A=", InputBox("B=")
End Sub |
||
|
Номер ответа: 15 Автор ответа: oneillВопросов: 1 Ответов: 7 |
Профиль | Цитата | #15 | Добавлено: 12.01.09 20:51 |
| Спасибо МИХАИЛ!)) РЕСПЕКТ! | ||
Страница: 1 |