Пример 4

Пример 3

Пример 2

'Имя файла Input_Output_2.vbs

'Программа содержит процедуру ввода и процедуру вывода двумерного 'массива (матрицы)

Option Explicit

Dim A(4, 5) ' объявление двумерного массива А

Const m=4 ' m, n -индексы последнего элемента матрицы

Const n=5

'-------------------------------------------------------------------------------

Sub Input (A)

' процедура ввода элементов матрицы с клавиатуры

' процедура с параметрами

' A-параметр, передаваемый по ссылке

' m, n -глобальные константы

Dim i, j

For i=0 to m

For j=0 to n

A(i,j)=CDbl(InputBox("Введите элемент A("&i&","&j&")",_

"Ввод матрицы A:",5))

Next

Next

End Sub

'-------------------------------------------------------------------------------

Sub Output (A)

' процедура вывода на экран элементов матрицы

' процедура с параметрами

' A-параметр, передаваемый по ссылке

' m, n -глобальные константы

Dim i, j

Dim s ' строковая переменная, в которой будет сохранён массив

For i=0 to m

For j=0 to n

s=s+CStr(A(i,j))+" "

Next

s=s&vbCrLf

Next

MsgBox "Вы ввели двухмерный массив:"&vbCrLf&_

s,_

vbExclamation,_

"Вывод матрицы A:"

End Sub

'-------------------------------------------------------------------------------

Input A ' вызов процедуры ввода элементов массива

Output A ' вызов процедуры вывода элементов массива

' Имя файла Min_Max.vbs

' Программа находит минимальный и максимальный элемент вектора

Option Explicit

Dim s, i

Dim A(4) ' объявление одномерного массива А

Const k=4 ' k-индекс последнего элемента в векторе

'-------------------------------------------------------------------------------

Sub Input_Rnd (A)

' процедура заполнения одномерного массива целыми

' числами от 0 до 20, выбранными случайным образом

Dim i

For i=0 to k

Randomize

A(i)=Fix(Rnd(1)*20)

Next

End Sub

'-------------------------------------------------------------------------------

Function Min (A)

Dim i

Min=A(0)

For i=1 to k

If A(i)<Min Then

Min=A(i)

End If

Next

End Function

'-------------------------------------------------------------------------------

Function Max (A)

Dim i

Max=A(0)

For i=1 to k

If A(i)>Max Then

Max=A(i)

End If

Next

End Function

'-------------------------------------------------------------------------------

Input_Rnd A ' вызов процедуры ввода элементов массива

' Вывод введённого вектора:

For i=0 to k

s=s+CStr(A(i))+" "

Next

MsgBox "Вектор, полученный случайным образом:"&vbCrLf&_

s&vbCrLf&_

"Минимальный элемент данного вектора: "&Min (A)&vbCrLf&_

"Максимальный элемент данного вектора: "&Max (A)&vbCrLf,_

vbExclamation,_

"Результат:"

'Имя файла Simple_Nombers.vbs

'Программа находит все простые числа в двумерном массиве (в матрице)

Option Explicit

Dim k, i, j, p, s

Dim A(4, 5) ' объявление двумерного массива А

Const m=4 ' m, n -индексы последнего элемента матрицы

Const n=5

'-------------------------------------------------------------------------------

Sub Input (A)

' Процедура ввода элементов матрицы с клавиатуры

' процедура с параметрами

' A-параметр, передаваемый по ссылке

' m, n -глобальные константы

For i=0 to m

For j=0 to n

A(i,j)=CDbl(InputBox("Введите элемент A("&i&","&j&")","Ввод матрицы A:",5))

Next

Next

End Sub

'-------------------------------------------------------------------------------

Function Simple (k)

' Функция возвращает True, если число k окажется простым, и false - в противном случае

Dim x

Simple=True

If k<>1 Then

For x=2 to Int(sqr(k))

If k mod x =0 Then

Simple=False

End If

Next

Else Simple=False

End If

End Function

'-------------------------------------------------------------------------------

Input A ' Вызов процедуры ввода элементов матрицы

' В цикле происходит проверка, является ли элемент матрицы простым числом

For i=0 to m

For j=0 to n

If Simple(A(i,j)) Then ' Вызов процедуры, которая проверяет, является ли A(i,j) ' простым числом

p=p&A(i,j)&" " ' если да, то число записывается в строку p

End If

Next

Next

' Выводим введённую матрицу и те элементы массива, которые являются простыми числами

For i=0 to m

For j=0 to n

s=s+CStr(A(i,j))+" "

Next

s=s&vbCrLf

Next

MsgBox "Вы ввели двухмерный массив:"&vbCrLf&_

s&vbCrLf&_

"Элементы массива, которые являются простыми числами: "&vbCrLf&_

p,_

vbExclamation,_

"Результат:"

Дата добавления: 2014-12-29