Студопедия — Табличний процесор Excel
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

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






В масиві 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

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

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

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

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

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

План.

Вступ







Дата добавления: 2015-10-19; просмотров: 378. Нарушение авторских прав; Мы поможем в написании вашей работы!



Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...

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

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

ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...

Этапы творческого процесса в изобразительной деятельности По мнению многих авторов, возникновение творческого начала в детской художественной практике носит такой же поэтапный характер, как и процесс творчества у мастеров искусства...

Тема 5. Анализ количественного и качественного состава персонала Персонал является одним из важнейших факторов в организации. Его состояние и эффективное использование прямо влияет на конечные результаты хозяйственной деятельности организации.

Билет №7 (1 вопрос) Язык как средство общения и форма существования национальной культуры. Русский литературный язык как нормированная и обработанная форма общенародного языка Важнейшая функция языка - коммуникативная функция, т.е. функция общения Язык представлен в двух своих разновидностях...

Кишечный шов (Ламбера, Альберта, Шмидена, Матешука) Кишечный шов– это способ соединения кишечной стенки. В основе кишечного шва лежит принцип футлярного строения кишечной стенки...

Принципы резекции желудка по типу Бильрот 1, Бильрот 2; операция Гофмейстера-Финстерера. Гастрэктомия Резекция желудка – удаление части желудка: а) дистальная – удаляют 2/3 желудка б) проксимальная – удаляют 95% желудка. Показания...

Ваготомия. Дренирующие операции Ваготомия – денервация зон желудка, секретирующих соляную кислоту, путем пересечения блуждающих нервов или их ветвей...

Studopedia.info - Студопедия - 2014-2024 год . (0.01 сек.) русская версия | украинская версия