Лабораторная работа "Циклические алгоритмы"

Скачать: 1-uroven.zip [286,32 Kb] (cкачиваний: 0)  

Циклические алгоритмы

Цель

Целью является изучение возможностей разработки приложений с циклическими алгоритмическими структурами

Циклические алгоритмы. Задания первого уровня сложности

Табулирование функции

Интерфейс программы:

Блок схема:

Текст программы:

Private Sub Command1_Click()

Dim y, x As Single

For x = 2 To 4 Step 0.2

y = 3 * x - 4 * Log(x) - 5

Picture1.Print "x = " & Round(x, 3) & vbTab & " y = " & Round(y, 3)

Next x

End Sub

Пример программы:

Вычисление суммы (произведения) ряда

Интерфейс программы:

Блок схема:

Текст программы:

Private Sub Command1_Click()

n = Val(Text1)

e = Val(Text3)

Dim s, s1, t As Double

s = 1

s1 = 0

t = 0

For i = 2 To n

t = 1 - (1 / ((2 * i + 1) ^ 3))

s = s * t

If t > e Then s1 = s1 + t

Next i

Text2 = s

Text4 = s1

End Sub

Пример:

Арифметические задачи

Интерфейс программы:

Блок схема:

Текст программы:

Private Sub Command1_Click()

Picture1.Cls

a = 123456789

For i = 9 To 81 Step 9

Picture1.Print "произв. на " & i & " = " & a * i

Next i

End Sub

Пример программы: