III. Рабочий лист с диалоговым окном для ввода длины стороны а:

4. Рабочий лист с диалоговым окном для ввода длины стороны В:

4. Рабочий лист с диалоговым окном для ввода длины стороны С:

4. Рабочий лист с окном сообщения о выводе периметра:

Задание 2. Вычислить значение по формуле: .

Программа на VBA:

Public Sub zadanie_2 ()

Dim x As Integer

Dim z As Single

x = Val(InputBox (”Введите аргумент”))

z=SQR(ABS((x^2+6)/SIN(x)))

MsgBox ”z = ” & z

End Sub

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

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

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

Программа на VBA:

Public Sub zadanie_3 ()

Dim a As Integer, b As Integer, c As Integer

Dim z As Single

a = Val(InputBox (”Введите значение переменной a – положительное число”))

b = Val(InputBox (”Введите значение переменной b – положительное число”))

с = Val(InputBox (”Введите значение переменной с – положительное число”))

IF a+b<=c OR b+c<=a OR a+c<=b THEN

MsgBox ”Введенные числа не могут быть сторонами треугольника”

ELSEIF a=b AND a=c THEN

MsgBox ”треугольник – равносторонний”

ELSEIF a=b OR a=c OR b=c THEN

MsgBox ”треугольник – равнобедренный”

ELSE

MsgBox ”треугольник – разносторонний”

END IF

End Sub

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

Задание 4. Работа с одномерными массивами (простые циклы). Определить сумму и количество элементов массива а(15), значения которых больше 10.

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

Программа на VBA:

Public Sub zadanie_4 ()

DIM a(15) AS Single

DIM s AS Single

DIM k AS Integer

DIM i AS Integer

FOR i=1 TO 15

a(i) = Val(InputBox (”Введите элемент массива))

NEXT i

s=0

k=0

FOR i=1 TO 15

IF a( i ) > 10 THEN

s=s+a( i )

k=k+1

NEXT i

MsgBox ”сумма = ” & s & vbNewLine & “кол-во = ” & k

End Sub

Задание 5. Работа с двумерными массивами (сложные циклы). Определить и вывести для каждой строки двумерного массива с(10,12) количество элементов, значения которых больше 10, но меньше 20.

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

Программа на VBA:

Public Sub zadanie_5 ()

DIM c(1 TO 10, 1 TO 12)

DIM i As Integer

DIM j As Integer

DIM k As Integer

RANDOMIZE TIMER

FOR i=1 TO 10

FOR j=1 TO 12

c(i , j)=INT(RND*21)

NEXT j

NEXT i

FOR i=1 TO 10

k = 0

FOR j=1 TO 12

IF c(i , j)>10 AND c(i , j)<20 THEN k= k+1

NEXT j

MsgBox I & ”строка - ” & k & ”элементов”

NEXT i

End Sub

Варианты расчетно-графической работы

Вариант 1

1. Составить программу, которая запрашивает длины катетов прямоугольного треугольника, а выводит его площадь.

2. Вычислить значения по формуле: .

3. В небоскребе N этажей и всего один подъезд: на каждом этаже 3 квартиры; лифт может останавливаться только на нечетных этажах. Человек садится в лифт и набирает номер нужной ему квартиры М. На какой этаж должен доставить лифт пассажира?

4. Дан массив Х(20). Вывести элементы массива Y, каждый из которых представляет собой квадрат элемента массива Х, стоящий на нечетном месте.

5. Дана матрица А(10,10). Найти минимальный элемент среди отрицательных элементов в каждой строке матрицы, выводя на печать значение этого элемента и номер строки.

Вариант 2

1. Составить программу, которая запрашивает два числа, а выводит среднее арифметическое кубов этих чисел.

2. Вычислить значения по формуле: .

3. Услуги телефонной сети оплачиваются по следующему правилу: за разговоры до А минут в месяц оплачиваются В руб., а разговоры сверх установленной нормы оплачиваются из расчета С руб. в минуту. Написать программу, вычисляющую плату за пользование телефоном для введенного времени разговоров за месяц.

4. Дан массив А(30). Получить новый массив С по правилу: в массив С включить по порядку все элементы массива А за исключением тех, значения которых равны 0.

5. В массиве С(10,12) определить количество нулевых элементов в каждой строке. Вывести номер строки и количество нулевых элементов для тех строк, где полученное количество больше 3.

Вариант 3

1. Пассажирский самолет может поднять груз общим весом 30 т. Составить программу, которая запрашивает количество пассажиров (условный вес одного пассажира 100 кг), зарегистрированных на рейс, и определяет вес почтового груза, который можно поместить ещё в самолет.

2. Вычислить значения по формуле: .

3. Вводится число x. Если -1 ≤ x ≤ 1, вывести на экран значение функции:

при x ≤ 0

при x > 0

Если x < -1 или x > 1, вывести на экран сообщение «Функция не определена».

4. Дан массив Х(20). Заменить максимальный элемент (или все, если их несколько) на 0.

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

Вариант 4

1. Составить программу, которая запрашивает длину ребра куба, а выводит объем куба и площадь его боковой поверхности.

2. Вычислить значения по формуле: .

3. В зависимости от перевыполнения плана начисляется премия:

Процент перевыполнения плана	≤ 10%	>10% и ≤20%	>20% и ≤30%	> 30%
Премия (в процентах от оклада)	1%	1,5%	2%	5%

Рассчитать размер премии, если известен оклад, план и фактическое выполнение плана.

4. Дан массиве К(15) .Определить, сколько в массиве отрицательных элементов. Вывести номер только первого и последнего отрицательного элемента.

5. Дана матрица Х(15,15). Вычислить сумму и количество положительных элементов, расположенных ниже побочной диагонали.

Вариант 5

1. Составить программу, которая запрашивает величину трех сопротивлений, а выводит величину сопротивления последовательного их соединения.

2. Вычислить значения по формуле: .

3. Расстояние между городами А и Б равно S. Из города А в город Б выехал велосипедист со скоростью V₁, через t часов вслед ему выехал второй велосипедист со скоростью V₂. Догонит ли второй велосипедист первого, прежде чем тот доедет до города Б?

4. Дан массив S(20). Получить массив А(20) по правилу:

5. В массиве В(10,10) подсчитать произведение элементов в каждом нечетном столбце. Найти сумму этих произведений.

Вариант 6

1. Даны стороны треугольника a, b, c. Вычислить его площадь.

2. Вычислить значения по формуле: .

3. Составить программу, которая по введенному коду операции выполнит одно из следующих действий: 01 – сложение; 02 – вычитание; 03 – умножение; 04 – деление.

4. Дан массив А(20). Получить массив В(20), в котором В(1)=А(2), В(2)=А(1), В(3)=А(4), В(4)=А(3) и т.д. Вывести массив В.

5. Найти количество ненулевых элементов в каждом столбце матрицы М(10,20). Полученные числа напечатать с указанием номера столбца в том случае, если они больше 2.

Вариант 7

1. Найти разность длин окружностей кольца, если вводится величина внешнего радиуса R1 и внутреннего радиуса R2.

2. Вычислить значения по формуле: .

3. В театр пришло А зрителей. Из них В человек купили билеты по 70 руб., а остальные – по 50 руб. Получит ли театр прибыль, если расходы на спектакль составили Z руб.?

4. Дан массив К(40). Определить разность между максимальным среди элементов, стоящих на нечетных местах, и минимальным среди элементов, стоящих на четных местах.

5. Дан массив S(10,16). Вывести номера строк, имеющих отрицательную сумму элементов.

Вариант 8

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

2. Вычислить значения по формуле: .

3. Составить программу, которая по количеству битов выводит количество этой информации в байтах или килобайтах или и т.д.

4. Дан массив В(20). Получить массив С(20) по правилу:

5. Дан массив А(10,10). Поменять на 0 все элементы, стоящие выше главной диагонали. Определить количество замененных элементов.

Вариант 9

1. Составить программу, которая запрашивает коэффициенты уравнения ax²+bx+c=0, а выводит решение этого уравнения.

2. Вычислить значения по формуле: .

3. Мотоциклист должен прибыть в город через t часов после выезда из пункта, находящегося на расстоянии S км от города. Успеет ли он вовремя прибыть в город, если в первый час он проедет А км, а все оставшееся время будет ехать со скоростью v км в час?

4. Вычислить среднее арифметическое положительных элементов массива М(25), исключая элементы, кратные 3.

5. Имеется массив М(10,50). Определить сумму элементов, стоящих в четных строках на четных местах. Вывести эту сумму, если она меньше 100.

Вариант 10

1. Составить программу, которая запрашивает количество пятерок, четверок, троек и двоек в группе за экзамен, а выводит средний балл группы за экзамен.

2. Вычислить значения по формуле: .

3. Составить программу для определения подходящего возраста для вступления в брак, используя следующее условие: возраст девушки равен половине возраста мужчины плюс 7, а возраст мужчины определяется соответственно как удвоенный возраст девушки минус 14.

4. Дан массив D(30). Вывести значения элементов, которые попадают в интервал от 5 до 15, а также общее количество таких элементов.

5. Найти суммы элементов каждой строки матрицы А(20,10). Если полученное значение суммы отрицательно, уменьшить ее в 3 раза, иначе увеличить в 3 раза и вывести.

Вариант 11

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

2. Вычислить значения по формуле: .

3. Даны два числа. Заменить второе число нулем, если оно меньше первого, оставить прежним, если оно равно первому и поменять значениями эти числа, если второе число больше первого.

4. Дан массив А(30). Сформировать два массива В и С. В массив В включить положительные элементы массива А, имеющими четный индекс, а в массив В – отрицательные элементы массива А, имеющими нечетный индекс.

5. Найти среднее арифметическое значение в каждой строке матрицы F(18,20). Полученные значения вывести, указав номер строки.

Вариант 12

1. Составить программу, которая запрашивает информацию о количестве выигрышей (2 очка), ничьих (1 очко) и проигрышей (0 очков) в команде за сезон, а выводит количество очков, набранное командой за сезон.

2. Вычислить значения по формуле: .

3. Дано число х. Напечатать в порядке возрастания числа Sin(x), Cos(x), Ln(x). Если при каком-либо х некоторые из выражений не имеют смысла, вывести об этом сообщение и сравнивать значения только тех, которые имеют смысл.

4. Определить среднее арифметическое всех положительных элементов массива F(40), стоящих на нечетных местах.

5. Дан массив Z(5,15). Вычислить сумму квадратов отрицательных элементов каждой строки. Сумму и номер строки выводить, если сумма больше 1000.

Вариант 13

1. Составить программу, которая запрашивает стоимость материала, а выводит цену одного метра, если известно, что на изделие ушло 3 м этого материала.

2. Вычислить значения по формуле: .

3. Валя взяла у подруги книгу на 3 дня. В первый день она прочитала А страниц, во второй день она прочитала в В раз больше, чем в первый, в третий день она прочитала на С страниц меньше, чем во второй. Успела ли Валя прочитать книгу вовремя, если в книге 194 страницы?

4. В массиве S(30) заменить все отрицательные элементы, стоящие на четных местах, их модулями. Подсчитать количество таких замененных элементов.

5. Дан массив С(10,15). Каждый элемент массива, равный 0, заменить 10. Остальные удвоить и новые значения присвоить соответствующим элементам массива В(10,15), который вывести.

Вариант 14

1. Составить программу, которая запрашивает радиус окружности, а выводит сторону квадрата, в которой эта окружность вписана.

2. Вычислить значения по формуле: .

3. Написать программу, которая по номеру месяца выдает название следующего за ним месяца.

4. Даны массивы С(20) и D(20). Анализируя D(i), получить элементы массива Z: . Если D(i)=0, то такое частное в массив Z не включать.

5. В массиве В(3,10) определить сумму в каждом столбце и найти из них минимальную. Вывести эту сумму и номер столбца.

Вариант 15

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

2. Вычислить значения по формуле: .

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

4. Даны массивы А(20) и В(20). Получить массив S, включив в него только те элементы массива А, которые больше соответствующего элемента массива В, т.е. если A(i)>B(i).

5. Дана матрица Z(12,12). Найти количество положительных, отрицательных и нулевых элементов в главной диагонали матрицы.

Вариант 16

1. Составить программу, которая запрашивает длину одного катета и гипотенузы прямоугольного треугольника, а выводит его периметр.

2. Вычислить значения по формуле: .

3. Петя встал утром в 7 часов, Коля – на 13 минут раньше него, Сережа на 4 минуты позже Коли, а Саша встал на 10 минут позже Сережи. Кто встал раньше, Петя или Саша?

4. Дан массив А(20). Получить и вывести массив В, включив в него только удвоенные положительные элементы массива А.

5. В массиве Х(8,12) определить и вывести сумму элементов до первого встретившегося нуля в каждом столбце этого двумерного массива.

Вариант 17

1. Составить программу, которая запрашивает два числа, а выводит куб среднего арифметического этих чисел.

2. Вычислить значения по формуле: .

3. Написать программу, которая по введенному номеру месяца выдает все приходящиеся на этот месяц праздничные дни (например, для января – 1 января – Новый год, 7 января – Рождество). Если таковых нет, то выдается сообщение об этом.

4. Дан массив С(24). Определить произведение элементов массива, не равных 0. Вывести частное от деления этого произведения на количество его сомножителей.

5. В массиве Х(10,5) поменять все нулевые элементы на 1, все отрицательные на 0. Подсчитать и вывести сумму положительных элементов в каждом столбце полученного массива..

Вариант 18

1. Дана сторона равностороннего треугольника. Определить площадь этого треугольника.

2. Вычислить значения по формуле: .

3. К финалу конкурса лучшего по профессии были допущены три участника. В финале проводилось три тура. Участники в первом туре набрали m1, m2, m3 балла, во втором туре соответственно – n1, n2, n3 балла, а в третьем – p1, p2, p3 балла. Сколько баллов набрал победитель?

4. Дан массив Х(20). Вывести элементы массива Y, каждый из которых представляет собой квадрат элемента массива Х, стоящего на нечетном месте.

5. В массиве А(10,10) определить сумму и количество отрицательных элементов в каждом четном столбце.

Вариант 19

1. Составить программу, которая запрашивает объем куба, а выводит длину ребра куба и площадь его боковой поверхности.

2. Вычислить значения по формуле: .

3. Составить программу, которая по числу в месяце определяет номер декады (декада – 10 дней).

4. Даны два массива Х(10) и Y(10). Вывести номера тех пар, для которых X(i)>Y(i). Удалить эти элементы из массивов Х и Y, сжав их. Вывести измененные массивы Х и Y.

5. Дан массив А(8,8). Подсчитать сумму произведений элементов каждой четной строки массива

Вариант 20

1. Составить программу, которая запрашивает стоимость трех покупок, а выводит общую стоимость.

2. Вычислить значения по формуле: .

3. Вводятся две даты. Вывести более позднюю дату. Дата вводится как три числа (день, месяц, год).

4. Дан массив С(30). Вставить в этот массив числа 10, 20 и 30 после 10-го, 20-го и 30-го элементов массива С соответственно. Вывести полученный массив.

5. Дан массив Х(6,6). В каждой строке найти сумму положительных элементов и их количество. Для каждой строки вывести произведение полученной суммы на количество.

Вариант 21

1. Составить программу, которая запрашивает высоту, с которой падает камень, а выводит время падения.

2. Вычислить значения по формуле: .

3. Составить программу, в которой вычисляются комиссионные, начисляемые по следующему правилу: если продукции продано не менее чем на 1 млн. руб., то комиссионные составляют 2% от стоимости реализованной продукции, а если меньше, то 1%. Кроме того, если стаж работы в фирме не меньше 5 лет, то дополнительно начисляется сумма в размере 0,5% от стоимости реализованной продукции.

4. Даны массивы А(30) и В(30). Вывести элементы массива С, полученного из массива А по правилу: не включать А( i ), если А( i )=В( i ).

5. В массиве С(2,7) заменить все отрицательные элементы на их модули. В полученном массиве найти количество ненулевых элементов.

Вариант 22

1. Треугольник задан длинами сторон. Найти длины высот треугольника.

2. Вычислить значения по формуле: .

3. Составить программу, позволяющую получить словесное описание оценок (1 – плохо, 2 – неудовлетворительно, 3 – удовлетворительно и т.д.

4. Дан массив К(22). Сформировать новый массив С, включая в него положительные элементы массива К, имеющие четные значения. Сколько таких элементов?

5. Дана матрица Х(10,10). Определить среднее арифметическое элементов этой матрицы, исключая нулевые элементы.

Вариант 23

1. Составить программу, которая запрашивает цену одной газеты, а выводит стоимость партии газет - 100 экземпляров.

2. Вычислить значения по формуле: .

3. Составить программу, которая по номеру месяца выводит название времени года и номер квартала (квартал – три месяца).

4. В массиве С(14) заменить все отрицательные элементы на 0, а положительные на 1. Сколько нулевых элементов стало в массиве и сколько элементов со значением, равным 1? Вывести новый массив.

5. Дан массив Z(10,5). Подсчитать количество положительных элементов в каждой нечетной строке массива. Вывести номер строки, в которой это количество максимальное.

Вариант 24

1. Составить программу, которая запрашивает коэффициенты линейного уравнения ax+b=0, а выводит решение этого уравнения.

2. Вычислить значения по формуле: .

3. Дано трехзначное целое число. Есть ли в этом числе одинаковые цифры? Если есть, то сколько?

4. Даны массивы А(30) и В(30). Вывести элементы массива С, включая в него как элементы произведения A(i)*B( i ) при условии, что ни A( i ), ни B( i ) не равны 0.

5. В матрице В(12,6) определить, есть ли строки, в которых все элементы положительные. Если есть, вывести номера таких строк.

Вариант 25

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

2. Вычислить значения по формуле: .

3. Составить программу, реализующую применение персонального компьютера в магазине. Компьютер запрашивает стоимость книг, сумму денег, вносимых покупателем. Если сдачи не требуется, то выводится: «Спасибо»; если денег внесено больше требуемого, то печатается: «Возьмите сдачу» и указывается сумма сдачи; если денег недостаточно, то печатается об этом сообщение и указывается размер недостающей суммы.

4. Дан массив К(40). Определить что больше – количество положительных элементов среди первых N элементов или количество положительных элементов среди остальных элементов. N вводится с клавиатуры.

5. В массиве D(12,5) определить и вывести номера столбцов, в которых количество отрицательных элементов больше количества положительных.

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ

РОССИЙСКОЙ ФЕДЕРАЦИИ

НОВОСИБИРСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ЭКОНОМИКИ И УПРАВЛЕНИЯ «НИНХ»

Институт	Прикладной информатики
Кафедра	Экономической информатики