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

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

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

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);

p = 1

For i = 1 To m

For j = 1 To n

If i = j Then

p = p * A(i, j)

End If

A(2, n) = p

For i = 1 To m

For j = 1 To n

Print A(i, j);

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)

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. Редактор связей II
2. Политическая мысль в античном мире
3. Введение 2 Понятие и виды процессуальных сроков их значение 3
4. овладение всей системой социальных ролей взрослого человека- учебных гражданских профессиональ
5. Кант-основоположник классической немецкой философии
6. НА ТЕМУ- Врожденный порок сердца ВПС название темы
7. Лунтик 25 шаров 1 Ольга Г.html
8. Биогеохимические круговороты основных химических элементов
9. Валютные рынк
10. тема міжнародного співробітництва
11. Курсовой проект 230113 ПЦУ ДО 11
12. ТЕМА 3 ОБОРОТНЫЕ СРЕДСТВА Задание 1
13. 30 лет поэтому выбирать постельное белье и аксессуары для сна нужно тщательно
14. НА ТЕМУ- ОТЕЧЕСТВЕННАЯ ТРАГЕДИЯ Выполнил- Ермолаев Т
15. ВВЕДЕНИЕ.2
16. Выбор реактора для проведения реакции окисления сернистого ангидрида в серный ангидрид
17. у меня есть деньги а он хочет мне чтото втюхат
18. Основы идеологии белорусского государства
19. на тему- ldquo; РЫНОК ЗОЛОТА ldquo; МОСКВА 1997 г
20. Тема- Проставлення розмірів в КОМПАСГРАФІК 5

Материалы собраны группой SamZan и находятся в свободном доступе