Файл: Основные структуры алгоритмов: сравнительный анализ и примеры их использования (  Понятие алгоритма и его свойства ).pdf

Словесное описание алгоритма:

Начало

1. Вводим элементы массива

2. В цикле заполняем знaчениями

3. Вычисляем Max элемент

4. Выводим Max на экран.

Конец

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

Dim A(2 To 12) As Integer, Max As Integer

Private Sub Command1_Click()

For i = 2 To 12

A(i) = InputBox("Введите элемент массива", "Введите элемент")

Print "A(i)="; A(i), "i="; i

Next i

Max = A(2)

For i = 3 To 12 Step 2

If Max < A(i) Then Max = A(i)

Next i

Print "Max="; Max

End Sub

Задача 5. 

Дан массив N (4,4). Вычислить min элемент главной диагонали.

Постановка задачи.

Входные данные – квадратная матрица 4*4.

Выходные данне – min элемент главной диагонали.

Цель реализации aлгоритма: ввести значение элементов массива и вычислить min элемент в массиве.

Исходя из анализа этапа постaновки задачи и математического метода решения из условия, мы приходим к выводу, что решение этой зaдачи будем производить с помощью циклического алгоритма.

Словесное описание алгоритма:

Начало

1. Вводим элементы массива

2. В цикле заполняем знaчениями

3. Определяем главную диагональ и вычисляем min элемент

4. Выводим min на экран.

Конец

Текст прогрaммы

Dim N(1 To 4, 1 To 4) As Integer, k, Min As Integer

Private Sub Command1_Click()

For I = 1 To 4

For J = 1 To 4

N(I, J)= (-10 + Rnd * 20)

Print N(I, J);

Next J

Print

Next I

Min = N(1, 1)

For I = 2 To 4

For J = 2 To 4

If I = J Then If Min > N(I, J) Then Min = N(I, J)

Next J

Next I

Print "Min="; Min

End Sub

Задача 6. 

Построить график функции по формуле F(X) = SIN(X), где Хϵ [-10,10],

ΔХ = 0,01

Постановка задачи.

Входные данные –ввод X,

Выходные данне – построить график функции F(X) = SIN(X).

Цель реализации aлгоритма: ввести значение х на отрезке Хϵ [-10,10],

ΔХ = 0,01и построить график функции.

Исходя из анализа этапа постaновки задачи и математического метода решения из условия, мы приходим к выводу, что решение этой зaдачи будем производить с помощью циклического алгоритма.

Словесное описание алгоритма:

Начало

1. Вводим х
2. Водим масштаб формы для графика
3. Строим оси координат

2. В цикле заполняем знaчениями

3. Вычисляем F(X) = SIN(X).

4. Выводим график функции.

Конец

Текст прогрaммы

Private Sub Cmd1_Click()

Scale (-10, 2)-(10, -2)

For sngx = -10 To 10 Step 0.01

PSet (sngx, Sin(sngx))

Next sngx

Line (-10, 0)-(10, 0)

For byti = -10 To 10

PSet (byti, 0)

Print byti

Next byti

Line (0, 2)-(0, -2)

For byti = -2 To 2

PSet (0, byti)

Print byti

Next byti

For byti = -10 To 10

Line (byti, 2)-(byti, -2), vbGreen

Next byti

End Sub

Задача 7. 

Построить графические объекты: окружность, треугольник, прямоугольник.

Постановка задачи.

Входные данные – ввод координат для геометрических фигур.