Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Інші
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра обчислювальної математики
Інформація про роботу
Рік:
2011
Тип роботи:
Звіт
Предмет:
Інформатика
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки, молоді та спорту України
Університет водного господарства та природокористування
Кафедра обчислювальної математики
Звіт
з навчальної практики з дисципліни „Інформатика”
Підготувала:
Студентка ОА-11
Лук’янчук Ю. М.
Перевірила:
Савич В. О.
Рівне 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
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора