Бродячие кукольники ищут соратников

 

 

«Тема 4.7. Программирование алгоритмов формирования и обработки одномерных массивов»

 

 

Морозов Даниил

17 вариант

 

Лабораторная 4-0-7

1. Задание:

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

17)

Из одномерного массива, содержащего 20 целых элементов (значения элементов массива задать случайными числами из интервала [-4, 7]), получить новый массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в нечетных позициях исходного массива, а во второй половине — элементы, стоящие в четных позициях. В полученном массиве найти минимальный элемент и его номер.

2. Блок схемы:

		min=7
		min=y(i)

3. Скриншот

 

4. Листинг программы:

Option Explicit On

Imports System.Math

Public Class Form1

Dim x() As Single

 

Public Sub vivod(ByVal Z As Double, ByVal T As TextBox)

T.Text = CStr(Z)

End Sub

 

Public Sub mas(ByVal x() As Integer, ByRef y() As Integer)

Dim i As Integer

For i = 0 To 9

y(i) = x(2 * i)

Next i

For i = 10 To 19

y(i) = x((i - 10) * 2 + 1)

Next i

End Sub

Public Sub printl(ByRef x() As Integer, ByRef LB As ListBox)

Dim i As Integer

Dim z As String = " "

For i = 0 To UBound(x)

z = z + Format(x(i), "0") + Space(4)

Next i

LB.Items.Add(z)

End Sub

 

Public Sub vvod(ByVal y() As Integer, ByRef min As Integer, ByRef n As Integer)

Dim i As Integer

min = 7

For i = 0 To 19

If y(i) < min Then

min = y(i)

n = i

End If

Next i

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x(19) As Integer

Dim y(19) As Integer

Dim min, n As Integer

For i = 0 To 19

x(i) = Rnd(1) * 11 - 4

Next i

printl(x, ListBox1)

mas(x, y)

printl(y, ListBox2)

vvod(x, min, n)

TextBox1.Text = CStr(min)

TextBox2.Text = CStr(n)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End

End Sub

End Class

 

 

Бродячие кукольники ищут соратников

15:37 12 февраля 2013

Теги: кукольники, бродячий театр, театр кукол «Илиотропион»

Евгения Коробкова

Здесь проходит школа-кастинг. Мы с фотокором Аней Иванцовой пришлись по душе, и нас зачислили. Подвальчик заполнен игрушками. Нас знакомят с каждой. Здравствуйте, Жаба.

Она хоть и противная, зато очень представительная женщина. Что, впрочем, часто бывает с жабами... Аню нарядили в костюм крокодила, и, пока актриса чистила рептилии зубы обувной щеткой, меня пристроили работать в вертеп. Сооружение в виде шкафчика с двумя полочками, где вместо посуды располагаются кукольные фигурки.

— Не заваливайте ангела, посмотрите, он у вас упал, — то и дело командовала режиссер театра Галина Меир. Это только кажется, что работать в вертепе несложно.

— С февраля по июнь будем учить вас актерскому мастерству, сценической речи, покажем, как игрушки делать, — обещает режиссер. И добавляет, что в театре ждут всех, независимо от возраста. Но важно знать: легко не будет. После полугода занятий студентам предстоит поставить собственный кукольный спектакль, в котором все — даже самих кукол — они сделают сами. Отличников обучения бродячие артисты примут в свои ряды.

— Работа очень тяжелая, но она дает жизни смысл, — говорит Галина Меир.

Первое занятие в школе 13 февраля в 20.00 в подвале на улице Руставели, 15.

 

http://www.vmdaily.ru/news/2008/03/12/sekret-kukolnika-ne-smotret-na-zritelya-52334.html