Облік розрахунків через внутрішньобанківську міжфілійну платіжну систему

Дата добавления: 2015-10-15; просмотров: 554

В масиві Z(12)=(1800, 2200, 1950, 1800, 1850, 2000, 2320, 2400, 2530, 2120, 1900, 1550) записані суми нарахованої заробітної плати муляра С. К. Іваненка за минулий рік. В масиві V(12)=(234.20, 315.08, 290.00, 234.20, 240.00, 300.50, 348.70, 360.00, 309.00, 285.00, 245.00, 167.20) записані суми відрахувань від його заробітної плати. Створити масив О(12), в який записати суми отриманої Іваненком зарплати (різниця між нарахованими і відрахованими сумами). Обчислити також середню заробітну плату муляра Іваненка за минулий рік.

Private Sub Command1_Click()

Const n% = 12

Dim a(1 To n%) As Single

Dim b(1 To n%) As Single

Dim O(1 To n%) As Single

Debug.Print "Значення елементів масиву Z"

For i% = 1 To n%

Title$ = " Значення елементів масиву Z "

Prt$ = "Суми нарахованої зарплати(" & i% & ")"

a(i%) = Val(InputBox(Prt$, Title$))

Debug.Print a(i%); " ";

Next i%

Debug.Print

Debug.Print "Суми відрахувань від зарплати"

For i% = 1 To n%

Title$ = "Значення елементів масиву V"

Prt$ = " Суми відрахувань від зарплати (" & i% & ")"

b(i%) = Val(InputBox(Prt$, Title$))

Debug.Print b(i%); " ";

Next i%

Debug.Print

Debug.Print "Нарахована зарплата:";

For i% = 1 To n%

O(i%) = a(i%) - b(i%)

Debug.Print O(i%); " ";

Next i%

Debug.Print

Debug.Print "Середня зарплата:";

Sum = 0

For i% = 1 To n%

Sum = Sum + O(i%)

Next i%

Avg = Sum / n%

Debug.Print Avg;

End Sub

В масиві V(14)=(345.38, 270.50, 693.29, 747.83, 748.49, 34.00, 247.98, 362.23, 588.53, 546.48, 343.87, 434.76, 323.22, 76.34) записані щоденні суми виручки магазину “Бджілка” за два тижні. Обчислити суму виручки за кожен тиждень окремо. Визначити також номери днів, коли сума виручки була найменшою і найбільшою та знайти середнє значення виручки за весь період.

Private Sub Command1_Click()

Const n% = 14

Dim a(1 To n%) As Single

Dim max, min As Single

Debug.Print "Введіть виручку"

For i% = 1 To n%

Title$ = "Значення елементів масиву V"

Prt$ = "Сума виручки(" & i% & ")"

a(i%) = Val(InputBox(Prt$, Title$))

Debug.Print a(i%); " ";

Next i%

Debug.Print

Debug.Print "Сума виручки за 1 тиждень скаладає";

Sum = 0

For i% = 1 To 7

Sum = Sum + a(i%)

Next i%

Debug.Print Sum; "ãðí"

Debug.Print

Debug.Print "Сума виручки за 2 тиждень скаладає";

Sum = 0

For i% = 8 To 14

Sum = Sum + a(i%)

Next i%

Debug.Print Sum; "грн"

Debug.Print

Debug.Print

Sum = 0

For i% = 1 To n%

Sum = Sum + a(i%)

Avg = Sum / n%

Next i%

Debug.Print "Середня виручка ="; Avg; "грн"

For i% = 1 To n%

min = a(i%)

max = a(i%)

Next i%

For i% = 1 To n%

If a(i%) < min Then

min = a(i%)

End If

If a(i%) > max Then

max = a(i%)

End If

Next i%

Debug.Print

Debug.Print "Мінімальна виручка="; min; "грн"

Debug.Print "Максимальна виручка="; max; "грн"

End Sub

Створити двовимірний масив BAL(8,4), в який записати оцінки (бали) студентів, отримані ними на іспитах. Вивести дані з масиву BAL на екран у вигляді таблиці. Виконати обчислення згідно варіанту: обчислити кількість оцінок “задовільно” за сесію усіх студентів групи. (Оцінка “задовільно” ставиться, коли бал знаходиться в межах від 60 до 73.)

Private Sub Command1_Click()

Const n% = 2

Const m% = 4

Dim przv(1 To n%) As String * 9

Dim Bal(1 To n%, 1 To m%) As Integer

For i% = 1 To n%

Title$ = "ПРІЗВИЩА СТУДЕНТІВ"

prt$ = "Прізвище" & i% & "-го студента"

przv(i%) = InputBox(prt$, Title$)

Next i%

For i% = 1 To n%

For j% = 1 To m%

Title$ = "ОЦІНКИ СТУДЕНТІВ"

prt$ = Оцінка " & j% & "-го іспиту"

Bal(i%, j%) = Val(InputBox(prt$, Title$))

Next j%

Next i%

Debug.Print "| | | ОЦІНКИ |"

Debug.Print "| | | ЕКЗАМЕНІВ |"

For i% = 1 To 73

Debug.Print "_";

Next i%

Debug.Print

Debug.Print "| № | Прізвище | Економічна | Вища | БЖД | Історія |"

Debug.Print "| по/п | по-батькові | Інформатика| математика | | |"

For i% = 1 To 73

Debug.Print "_";

Next i%

Debug.Print

For i% = 1 To n%

Debug.Print Tab(4); i%; Tab(15); Format(przv(i%), "#########"); _

Tab(35); Format(Bal(i%, 1), "#"); Tab(48); Format(Bal(i%, 2), "#"); _

Tab(60); Format(Bal(i%, 3), "#"); Tab(67); Format(Bal(i%, 4), "#")

Next i%

For j% = 1 To 73

Debug.Print "_";

Next j%

Debug.Print

Sum = 0

For i% = 1 To n%

Sum = Sum + Bal(i%, 2) / n%

Next i%

Debug.Print "Середній бал з вищої математики="; Sum

Debug.Print

kil = 0

For i% = 1 To n%

For j% = 1 To m%

If Bal(i%, j%) > 60 And Bal(i%, j%) < 73 Then

kil = kil + 1

End If

Next j%

Next i%

Debug.Print "Кількість задовільних оцінок="; kil

End Sub

Табличний процесор Excel

Зміст

Тема: Мета і завдання курсу......................................................................................................1

Тема: Області застосування електронних таблиць Excel. Загальні принципи організації

таблиць в Excel.............................................................................................................................3

Тема: Форматування робочих листів в Excel............................................................................8

Тема Побудова формул в Ехсе1. Функції в Ехсе1...................................................................11

Тема: Створення та модифікація діаграм.................................................................................14

Тема: Елементи управління в Excel...........................................................................................18

Тема: Аналіз даних......................................................................................................................21

Додаток А.....................................................................................................................................23

Тема: Мета і завдання курсу

Мета: Визначити завдання курсу та зміст табличних процесорів, як систем обробки, та

підсистему. Надати знання та розуміння основних положень курсу. Пояснити

основні вимоги, що до роботи та організації навчання по курсу.

Обладнання і матеріали:клас, робоча програма

План.

Вступ