Студопедия — Табличний процесор 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; просмотров: 377. Нарушение авторских прав; Мы поможем в написании вашей работы!



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

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

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

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

Виды нарушений опорно-двигательного аппарата у детей В общеупотребительном значении нарушение опорно-двигательного аппарата (ОДА) идентифицируется с нарушениями двигательных функций и определенными органическими поражениями (дефектами)...

Особенности массовой коммуникации Развитие средств связи и информации привело к возникновению явления массовой коммуникации...

Тема: Изучение приспособленности организмов к среде обитания Цель:выяснить механизм образования приспособлений к среде обитания и их относительный характер, сделать вывод о том, что приспособленность – результат действия естественного отбора...

Трамадол (Маброн, Плазадол, Трамал, Трамалин) Групповая принадлежность · Наркотический анальгетик со смешанным механизмом действия, агонист опиоидных рецепторов...

Мелоксикам (Мовалис) Групповая принадлежность · Нестероидное противовоспалительное средство, преимущественно селективный обратимый ингибитор циклооксигеназы (ЦОГ-2)...

Менадиона натрия бисульфит (Викасол) Групповая принадлежность •Синтетический аналог витамина K, жирорастворимый, коагулянт...

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