1. Програмування алгоритмів циклічної структури із заданим числом повторень
2. Алгоритми роботи з одновимірними масивами
3. Програмування алгоритмів із структурою вкладених циклів і обробка матриць
1 . Програмування алгоритмів циклічної структури із заданим числом повторень
Постановка задачі. Розробити алгоритм та програму знаходження суми n членів ряду
Виконати тестування для перевірки правильності функціонування програми для значень n=3, x =2.
| Змінна алгоритму | n | s | x |
| Ідентифікатор | n | s | x |
| Тип | integer | single | single |
Текст програми:
Возможно вы искали - Реферат: Декілька класичних прикладів комп ютерних вірусів
Sub Zavdannya_5()
Dim x As Single, s As Single
Dim i As Integer, n As Integer
Dim fact As Integer
x = InputBox("x")
Похожий материал - Реферат: Операционные системы 8
n = InputBox("n")
s = 0
For i = 0 To n
s = s + ((-1) ^ n) * 1 / ((2 * n + 1) * (x ^ (2 * n + 1)))
Next i
Очень интересно - Курсовая работа: Работа с программой Компас-3D V6
MsgBox ("сума значень" + Str(s))
End Sub
Контрольний приклад
Виконуємо обчислення для даних тестового прикладу. Результати роботи програми на екрані монітора мають виглядВиконуємо на калькуляторі підрахунки значення згідно з формулами: –0.042782738
Увести x
Вам будет интересно - Курсовая работа: Разработка и эксплуатация автоматизированных информационных систем
2
Увести n
3
Висновок: Порівнюючи результати тестового приклада обрахованого за допомогою калькулятора та комп'ютерної програми бачимо що розходження склало – 0.042782738 +0.0464286)/0.042782738 *100 = 0,0006%.Програма виконана вірно.
2.Алгоритми роботи з одновимірними масивами
Постановка задачі: Обчислити середнє геометричне елементів масиву Y , які задовольняють умові yi >0 .
Блок схема:
|
Похожий материал - Курсовая работа: Розробка інформаційно-пошукової системи Абітурієнт на базі СУБД FoxPro
Таблиця ідентифікаторів:
| Змінна алгоритму | n | s | p | Y(20) | i |
| Ідентифікатор | n | s | p | Y(20) | i |
| Тип | integer | single | integer | integer | integer |
Текст програми:
Sub Odnovymirniy_masiv()
' Оголошення змінних
Dim Y(20) As Integer
Dim n As Integer
Dim i As Integer
Dim s As Single
Dim p As Integer
' Уведення даних
n = InputBox("Задайте кiлькiсть елементiв n=")
' Встановлення початкового значення суми
s = 1
p = 0
For i = 1 To n
Y(i) = InputBox("Задайте елемент масива Y(" + Str(i) + ")=")
If Y(i) > 0 Then
s = s * Y(i)
p = p + 1
End If
Next i
s = s ^(1/p)
MsgBox ("Середнє геометричне s=" + Str(s))
End Sub
Контрольний приклад. Виконуємо обчислення для даних тестового прикладу. Результати роботи програми на екрані монітора мають вигляд
Y = 