2 / 2 / 0
Регистрация: 22.03.2010
Сообщений: 146
1

Создать форму для вычисления значений функции на заданном интервале (а,b) с заданным шагом h

07.02.2012, 14:43. Показов 3938. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
5. Создать форму для вычисления значений функции на заданном интервале (а,b) с заданным шагом h и вывести результат вычислений в список. Значения аргумента и функции занести в соответствующие ячейки электронной таблицы Excel.
6. Дан массив размерности MxN. Определить минимальный элемент среди положи-тельных и максимальный элемент среди отрицательных элементов.
7. Ввести текст. Вывести через запятую номера слов, в которых встречается буква «н».

Добавлено через 2 минуты
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub slovo()
Dim a, text, answ, char As Variant
text = InputBox("text")
a = Split(text, " ")
For i = 0 To UBound(a)
For j = 1 To Len(a(i))
char = Mid(a(i), j, 1)
If char = "n" Then
answ = answ & i + 1 & " "
Exit For
End If
Next j
Next i
MsgBox answ
End Sub
Добавлено через 37 секунд
последнюю нашел
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.02.2012, 14:43
Ответы с готовыми решениями:

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

Вывести таблицу значений функции на заданном интервале с заданным шагом
найти функцию у(х) где х - с шагом h (-1,8], h=0,6

Вычисление значений функции указанной в таблице 2 в заданном интервале [xa, xb] с заданным шагом
Напишите программу на Python для вычисления значений функции указанной в таблице 2 в заданном...

Составьте программу вычисления значений функции F(x), на интервале (a;b) с заданным шагом
Составьте программу вычисления значений функции F(x), на интервале (a;b) с шагом h=0,1. 1....

1
761 / 268 / 57
Регистрация: 13.12.2009
Сообщений: 1,101
08.02.2012, 14:41 2
задача 6
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub CommandButton1_Click()
 
Dim B() As Integer, n As Integer, m As Integer, i As Integer, j As Integer
Dim Max As Integer, Min As Integer, z As Integer, v As Integer
n = InputBox("Введите число строк", , 9)
m = InputBox("Введите число столбцов", , 7)
Cells.Clear
ReDim B(n, m)
Max = -1000: Min = 900
Randomize
For i = 1 To n
For j = 1 To m
B(i, j) = Rnd() * 100 - 50
Cells(i + 1, j + 1) = B(i, j)
 
If B(i, j) < 0 Then
 
If Max < B(i, j) Then
Max = B(i, j)
End If
Else
If Min > B(i, j) Then
Min = B(i, j)
End If
End If
 
Next
Next
 
Cells(i + 3, 2) = "Максимальный среди отрицательных " & Max
Cells(i + 4, 2) = "Минимальный среди положительных " & Min
 
End Sub
Добавлено через 21 час 49 минут
задача 5
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
Dim a As Single, b As Single, h As Single, n As Integer
Cells.Clear
a = TextBox1.Text
b = TextBox2.Text
h = CSng(TextBox3.Text)
n = CInt((b - a) / h)
x = a
For i = 1 To n
x = x + h
Cells(i + 1, 2) = x
y = x * x
Cells(i + 1, 3) = y
Next
End Sub
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.02.2012, 14:41
Помогаю со студенческими работами здесь

Составьте программу вычисления значений функции на заданном интервале [x0,x1] с шагом dx
Составьте программу вычисления значений функции на заданном интервале с шагом dx. Значения x0,x1,...

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

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

Табулирование функции на заданном интервале с заданным шагом
Табулирование функции.дан отрезок от 1 до 11 с шагом 0.5,первое значение у меня берется 1.5,а...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru