Блок-схема алгоритма

Код

Dim A() As Single, I As Integer, N As Integer

Private Sub CommandButton1_Click()

N = Val(TextBox1)

ReDim A(1 To N)

For I = 1 To N

A(I) = Val(InputBox("Введите массив"))

ListBox1.AddItem "A(" + Str(I) + ")=" + Str(A(I))

Next I

End Sub

Private Sub CommandButton2_Click()

For J% = 1 To N - 1

For I = J + 1 To N

If A(I) > A(J) Then

v! = A(I)

A(I) = A(J)

A(J) = v

End If

Next I

Next J

For I = 1 To N

ListBox2.AddItem "A(" + Str(I) + ")=" + Str(A(I))

Next I

End Sub

На форму нанесены элементы управления: ListBox1, ListBox2, TextBox1, Label1, Label2, Label3, CommandButton1, CommandButton2.

Варианты контрольных работ для студентов заочной формы обучения

Контрольная работа состоит из трех заданий:

1. Реферативный ответ на первое задание должен содержать полное раскрытие темы на 8-10 печатных листах формата А4.

2. Задача на составление алгоритма линейной структуры. Решение данного задания должно содержать блок-схему и словесное описание алгоритма, листинг программы и рисунок с формой.

3. Задача на составление алгоритма сложной структуры. Решение данного задания должно содержать блок-схему и словесное описание алгоритма, листинг программы и рисунок с формой. (Для отображения формы используйте клавишу PrtScr, которая позволяет сфотографировать активный рабочий стол).

Выбор варианта для контрольной работы осуществляется по последней цифре зачетки.

Для студентов, в учебном плане которых информатика разбита на два семестра, данная контрольная работа выполняется во втором семестре и состоит из двух заданий – второго и третьего.

Варианты контрольных работ

Первое задание

1. Язык как способ представления информации, двоичная форма представления информации, ее особенности и преимущества.

2. История развития ЭВМ.

3. Современное состояние электронно-вычислительной техники.

4. Ноутбук – устройство для профессиональной деятельности.

5. WWW. История создания и современность.

6. Устройства ввода информации.

7. Игровые программы (виды, влияние на человека, рассмотреть любые три программы, представляющие разные жанры).

8. Офисные программы (системы автоматизированных вводов документов, электронные переводчики).

9. Информатика и законы естественных наук.

10. Правонарушения в сфере информационных технологий.

Второе задание

1. Вычислите значение функции

2. Найдите координаты вершины параболы

3. Вычислите расстояние между двумя точками, лежащими в пространстве и .

4. Вычислите время t, за которое физическое тело пройдет расстояние S с постоянной скоростью V.

5. Вычислите время свободного падения тела с высоты h (h>0).

6. Вычислите площадь круга по заданному значению диаметра d.

7. Вычислите объем параллелепипеда, если известны все его измерения.

8. Вычислите значение функции .

9. По координатам трех вершин некоторого треугольника найти его периметр.

10. Вычислите значение функции .