Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
23
Добавлен:
02.05.2014
Размер:
162.3 Кб
Скачать

Министерство образования и науки Российской Федерации

Уфимский государственный авиационный технический университет

Кафедра информатики

Пояснительная записка

к контрольной работе

«Решение задач на языке программирования Visual Basic»

Вариант №11

Выполнил: студент

Проверила:

Уфа 2006

Содержание

«Линейные алгоритмы»

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

Даны два числа. Вычислить их сумму, разность, произведение и частное

    1. Блок-схема

    1. Исходные данные для отладки и тестирования программы

В качестве исходных данных будем выбирать произвольные значения первого и второго числа и проверим работу программы. Эти данные можно просмотреть в рабочем окне программы на рис. 1.

    1. Исходный текст программы

Private Sub Command1_Click()

a = Val(Text1): b = Val(Text2)

summa = a + b

raz = a - b

proiz = a * b

chast = a / b

Text3 = summa

Text4 = raz

Text5 = proiz

Text6 = chast

End Sub

    1. Экранная форма разработанного проекта

Рис. 1. Экранная форма программы

«Разветвляющиеся алгоритмы»

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

Даны три числа a, b, c. Определить какое из них равно d. Если ни одно не равно d, то найти max(d-a,d-b,d-c).

  1. Блок-схема

    1. Исходные данные для отладки и тестирования программы

В качестве исходных данных будем выбирать произвольные целые числа a, b, c, d и проверим работу программы. Эти данные можно просмотреть в рабочем окне программы на рис. 2.

    1. Исходный текст программы

Private Sub Command1_Click()

Picture1.Cls

a = Val(Text1): b = Val(Text2): c = Val(Text3): d = Val(Text4)

If (a = d) Or (b = d) Or (c = d) Then

If (a = d) Then Picture1.Print "A=D"

If b = d Then Picture1.Print "B=D"

If c = d Then Picture1.Print "C=D"

Else

m1 = d - a

m2 = d - b

m3 = d - c

Max = m1

If m2 > Max Then Max = m2

If m3 > Max Then Max = m3

Picture1.Print "max(d-a,d-b,d-c)=", Max

End If

End Sub

    1. Экранная форма разработанного проекта

Рис. 2. Экранная форма программы

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

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

Найти минимальный элемент в таблице a[1..20] вещественных чисел

  1. Блок-схема

    1. Исходные данные для отладки и тестирования программы

В качестве исходных данных будем выбирать количество элементов и сами элементы таблицы. Эти данные можно просмотреть в рабочем окне программы на рис. 3.

    1. Исходный текст программы

Dim A(20) As Double

Private Sub Command1_Click()

Picture1.Cls

b = Split(Text1, " ")

Min = Val(b(0))

For i = 1 To Text2 - 1

A(i) = Val(b(i))

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

Next i

Picture1.Print Min

End Sub

    1. Экранная форма разработанного проекта

Рис. 3. Экранная форма программы

«Одномерные массивы»

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

Вычислить количество отрицательных элементов в массиве.

  1. Блок-схема

    1. Исходные данные для отладки и тестирования программы

В качестве исходных данных будем выбирать количество элементов массива, сами элементы массива и проверим работу программы. Эти данные можно просмотреть в рабочем окне программы на рис. 4.

    1. Исходный текст программы

Dim M(50) As Double

Private Sub Command1_Click()

Picture1.Cls

k = 0

a = Split(Text2, " ")

For i = 0 To Text1 - 1

M(i) = Val(a(i))

If M(i) < 0 Then k = k + 1

Next i

Picture1.Print k

End Sub

    1. Экранная форма разработанного проекта

Рис. 4. Экранная форма программы

3