У вас вопросы?
У нас ответы:) SamZan.net

тематическая модель- lnX0 i1n lnX lnX x 1 ^ i - i x Блоксхема- Код программы- Privte Sub Commnd1Click Dim

Работа добавлена на сайт samzan.net: 2015-07-05

Поможем написать учебную работу

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

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 6.4.2025

1. Вычислить значение Функции /при X > 0.5/

lnX=

Для отладки программы  значения Х и n выбрать самостоятельно.

Входящие данные: x – вещественного типа n – целого типа

Выходящие данные: lnX() – вещественного типа

Математическая модель:

lnX=0

i=1…n

lnX = lnX + (x - 1) ^ i / i * x

Блок-схема:

Код программы:

Private Sub Command1_Click()

Dim lnX As Single, x As Single, n As Integer, i As Integer

x = InputBox("x=")

n = InputBox("n=")

If x > 0.5 Then

lnX = 0

Print "x=" & x & "n=" & n

For i = 1 To n

lnX = lnX + (x - 1) ^ i / i * x

Next

Print "lnX=" & lnX

Else

Print "x dolzhen bit' >0.5"

End If

End Sub

Пример:

2. Определить  произведение  элементов на главной диагонали квадратной матрицы, найденное  значение  присвоить последнему элементу второй строки. Для отладки программы матрицу выбрать самостоятельно.

Входящие данные: m, n – целого типа A() – вещественного типа

Выходящие данные: A() – вещественного типа

Математическая модель:

p=1

i=1…m

j=1…n

Если i=j тогда

p=p*A(i,j)

A(2,n)=p

Блок схема:

Код программы:

Private Sub Command1_Click()

Dim A() As Single, m As Integer, n As Integer, i As Integer, j As Integer, p As Single

m = InputBox("m=")

n = InputBox("n=")

ReDim A(m, n)

For i = 1 To m

For j = 1 To n

A(i, j) = InputBox("A(" & i & "," & j & ")")

Print A(i, j);

Next

Print

Next

Print

p = 1

For i = 1 To m

For j = 1 To n

If i = j Then

p = p * A(i, j)

End If

Next

Next

A(2, n) = p

Print

For i = 1 To m

For j = 1 To n

Print A(i, j);

Next

Print

Next

End Sub

Пример:


Нет

Да

а

Начало

n, x

lnX

Конец

i=1

i≤n

i=i+1

lnX = lnX +(x-1)^i/i * x

lnX=0

Нет

x>0.5

x должен быть >0.5

Да

Нет

Да

Нет

Нет

Да

Да

Нет

Нет

Да

Начало

m, n

i=1

i≤m

j=1

j≤n

i=i+1

A(i,j)

A(i,j)

j=j+1

p=1

i=1

i≤m

j=1

j≤n

p=p*A(i,j)

j=j+1

i=i+1

A()

Конец

i=j

A(2,n)=p




1. тематики и информатики - Миловидов В
2. Первый фактор ~ это культура общества нравственные ценности народные традиции наполненные знаниями.html
3. 00588 ССБТ. Общие санітарногигиенические требования к воздуху рабочей зоны
4. АТ 80-50 мм рт ст ЧСС 120-хв
5. то взять инициативу в свои руки и превратиться в предпринимателя действующего от своего имени свободно воп.html
6. Разработка и применение пакетов прикладных программ
7. Учение о душе человека
8. ранний ледостав; снеж
9. реферату- Номінальний та реальний ВВПРозділ- Макроекономіка Номінальний та реальний ВВП Хід заняття.html
10. удлинением ногтевой пластины длина 13