У роботі розглядаються
- Комп'ютерна графіка
- Табличний процесор Excel
- Основи програмування
- Visual Basic
- Створення презентацій
- Автоматизований переклад
- Створення вебсторінок
Звіт з навчальної практики з дисципліни „Інформатика”
Інформація про навчальний заклад
ВУЗ:
Національний університет водного господарства та природокористування
Інститут:
Національний університет водного господарства та природокористування
Факультет:
Факультет комп'ютерних систем та прикладної математики
Кафедра:
Кафедра обчислювальної математики
Інформація про роботу
Рік:
2011
Тип роботи:
Звіт
Предмет:
Інформатика
Група:
ОІА-11
Коротко про документ
Про що ця робота
Звіт містить виконання завдань з навчальної практики з інформатики, включаючи комп'ютерну графіку, роботу в Excel та програмування у Visual Basic. У практичній частині наведено розв'язання систем лінійних рівнянь та обробку масивів даних.
Зміст і розділи
- Завдання
- Задачі Excel
- Система лінійних рівнянь
- Метод Крамера
- Програмування на Visual Basic
Для кого:Студенти вищих навчальних закладів, викладачі інформатики та прикладних дисциплін.
Викладачі:Савич В. О.
Ключові поняття
інформатиканавчальна практиказвітExcelVisual Basicматричний методметод Крамерамасивалгоритмпрограмування
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки, молоді та спорту України
Університет водного господарства та природокористування
Кафедра обчислювальної математики
Звіт
з навчальної практики з дисципліни „Інформатика”
[ім’я автора приховано]
Перевірила:
Савич В. О.
Рівне 2011
Варіант№20
Завдання
1.Комп'ютерна графіка
2.Робота в середовищі табличного процесора Exel
3.Основи програмування Visial Basic
4.Створення презентацій на тему „Мій шлях від школяра до студента”
5.Автоматизований переклад тексту
Створення електронної скриньки
Зробити комп’ютерний переклад
Відправити оригінал та переклад на скриньку викладача
6.Створення web-сторінки
Задачі Exel
1.Розвязати систему лінійних рівнянь АХ=В матричним способом та методом Крамера. Зробити перевірку.
Система лінійних рівнянь:
A=
3
4
9
1
2
-1
5
0
11
∆=
=МОПРЕД(B2:D4)
A -1=
=МОБР(B2:D4)
=МОБР(B2:D4)
=МОБР(B2:D4)
=МОБР(B2:D4)
=МОБР(B2:D4)
=МОБР(B2:D4)
=МОБР(B2:D4)
=МОБР(B2:D4)
=МОБР(B2:D4)
Перевірка AX=B
=МУМНОЖ(B2:D4;B13:B15)
=МУМНОЖ(B2:D4;B13:B15)
=МУМНОЖ(B2:D4;B13:B15)
B=
31
-1
33
=МУМНОЖ(B9:D11;G2:G4)
X=
=МУМНОЖ(B9:D11;G2:G4)
=МУМНОЖ(B9:D11;G2:G4)
Метод Крамера:
∆1=
0,7
2,8
1,9
=МОПРЕД(B19:D21)
1,1
3,4
1,8
=
2,8
-1,7
9,3
x1=∆1/∆=
=F20/B7
∆2=
4,7
0,7
1,9
=МОПРЕД(B24:D26)
2,1
1,1
1,8
=
4,2
2,8
9,3
x2=∆2/∆=
=F25/B7
∆3=
4,7
2,8
0,7
=МОПРЕД(B28:D30)
2,1
3,4
1,1
=
4,2
-1,7
2,8
x3=∆3/∆=
=F29/B7
2. Задано нелінійне рівняння f(x)=0.
№20. а)
Private Sub Command1_Click()
Const n% = 10
Dim R(1 To n%) As Single
Dim sum, tar, z, var As Single
Debug.Print " Масив вихідних дзвінків "
For i% = 1 To n%
Title$ = "Введіть тривалість дзвінка "
Prt$ = "Тривалість " & i% & "-го дзвінка"
R(i%) = Val(InputBox(Prt$, Title$))
Debug.Print R(i%); " ";
Next i%
Debug.Print
tar = 0.05
z = 0.25
sum = 0
For i% = 1 To n%
var = z + tar * R(i%)
sum = sum + var
Debug.Print
Debug.Print "Вартість " & i% & "-о дзвінка = "; Format(var, " ####.00"); "грн"
Next i%
Debug.Print
Debug.Print "Сума оплати за всі дзвінки = "; Format(sum, " ####.00"); "грн"
End Sub
б)
Private Sub Command1_Click()
Const n% = 13
Dim P(1 To n%) As Single
Debug.Print "Показники лічильника електроенергії сімї Степаненків"
For i% = 1 To n%
Title$ = "Ведіть показники лічильника"
Prt$ = "P(" & i% & ")"
P(i%) = Val(InputBox(Prt$, Title$))
Debug.Print P(i%); " ";
Next i%
Debug.Print
Riz = 0
For i% = 1 To n%
Riz = P(i% + 1) - P(i%)
Debug.Print "Сума на кінець місяця="; Format(Riz, "######.00000")
Next i%
Debug.Print "Загальна кількість за рік"
Sum = 0
For i% = 1 To n%
Sum = Sum + Riz(i%)
Debug.Print "Загальна сума яка надійшла за рік="; Format(Sum, "######.00000")
Next i%
End Sub
№6
Private Sub Command1_Click()
Const n% = 8
Const m% = 4
Dim przv(1 To n%) As String * 15
Dim bal(1 To n%, 1 To m%) As Integer
Dim sum, kil, delta, min, max As Single
For i% = 1 To n%
Title$ = " Введіть прізвище та ініціали " & i% & "-го студента "
prt$ = "Прізвище " & i% & "-го студента"
przv(i%) = InputBox(prt$, Title$)
Next i%
For i% = 1 To n%
For j% = 1 To m%
Title$ = " Введіть бали " & i% & "-го студента "
prt$ = "З " & j% & "-го іспиту"
bal(i%, j%) = Val(InputBox(prt$, Title$))
Next j%
Next i%
For i% = 1 To 64
Debug.Print "_";
Next i%
Debug.Print
Debug.Print "І І І Екзименаційна оцінка I"
Debug.Print "І № І Прізвище та І______________________________________І "
Debug.Print "І з/п I ініціали І Економічна І Вища І БЖД І Історія І"
Debug.Print "І І І інформатика І математикаІ І УкраїниІ"
For i% = 1 To 64
Debug.Print "_";
Next i%
For i% = 1 To n%
Debug.Print Tab(3); i%; Tab(9); Format(przv(i%), "#########"); Tab(27); Format(bal(i%, 1), "####"); Tab(40); Format(bal(i%, 2), "####"); Tab(50); Format(bal(i%, 3), "####"); Tab(58); Format(bal(i%, 4), "####");
Next i%
For j% = 1 To 64
Debug.Print " ";
Next j%
Debug.Print
min = bal(1, 1)
max = bal(1, 1)
For i% = 1 To n%
For j% = 1 To m%
If max < bal(i%, j%) Then max = bal(i%, j%)
If min > bal(i%, j%) Then min = bal(i%, j%)
Next j%
Next i%
Debug.Print "Мінімальний бал групи "; Format(min, "###.0")
Debug.Print "Максимальний бал групи "; Format(max, "###.0")
sum = 0
kil = 0
For i% = 1 To n%
For j% = 1 To m%
sum = sum + bal(i%, j%)
kil = kil + 1
Next j%
Next i%
delta = sum / kil
Debug.Print "Середній бал групи "; Format(delta, "###.0")
End Sub
Допоможи студентському архіву
Ми допомогли тобі — допоможи наступному студенту
Оголошення від адміністратора
Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!