Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Національний університет водного господарства та природокористування
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра обчислювальної математики
Інформація про роботу
Рік:
2008
Тип роботи:
Практика
Предмет:
Економічна інформатика
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти та науки України
Національний університет водного господарства та природокористування
Кафедра обчислювальної математики
Звіт
з навчальної практики з дисципліни
«Економічної інформатики»
Варіант №10
Завдання
Завдання №1
Підготувати та оформити в середовищі Microsoft Word реферат обсягом 5-7 сторінок на тему: “Інформатика.Інформація.”
Завдання №2
Робота в середовищі ТП Excel
а) МВ 044-149, стор. 8
б) МВ 044-149, стор. 10
в) МВ 044-149, стор. 12
г) МВ 044-84, стор. 36
Завдання №3
Основи програмування мовою Visual Basic
а) МВ 044-145, стор.13
б) МВ 044-145, стор.30
в) МВ 044-66, стор. 10, 12,15
г)МВ 044-146, стор. 5
Завдання №4
Створення презентації в середовищі Microsoft PowerPoint на тему:
«Наші домашні улюбленці»
Завдання №5
а) створити особисту ЕПС
б) зробити комп’ютерний переклад довільного тексту з російської мови на українську за допомогою програм електронних перекладачів
в) переслати оригінал у скриньку викладача
Завдання №1.
Реферат на тему: «Інформатика.Інформація.»
План
Інформація та інформаційні процеси;
Кодування даних.
Предмет і задачі інформатики.
1. Інформація та інформаційні процеси;
Інформація є фундаментальним науковим поняттям. Воно є первинним і не має строгого наукового визначення. Особливість цього поняття є його універсальність – воно використовується практично у всіх сферах людської діяльності: природничих науках, філософії, біології, економіці. Разом з тим фундаментальної природничо-наукової дисципліни, яка б займалась природою інформації, не існувало. Фізика, хімія, біологія вивчають властивості інформації, а не її природу. Конкретний смисл поняття “інформація” залежіть від того, в якому контексті воно використовується.
В останні роки інформатика почала формуватись як природничо-наукова дисципліна, однак вона не вийшла ще за межі прикладної технічної науки, тому також не ввела до цих пір строгого поняття інформації. В кращому випадку її розглядають як змістовну частину даних, яка інтерпретується людиною.
Однак наукове визначення інформації дається досить просто, якщо припустити, що інформація – це динамічний об’єкт, не існуючий в природі сам по собі, а той, що утворюється в результаті взаємодії даних та методів. Він існує стільки, скільки триває ця взаємодія, а весь інший час він перебуває у вигляді даних.
Отже, інформація – це продукт взаємодії даних та методів, який розглядається в контексті цієї взаємодії.
Наприклад, книга – це сховище даних. Вона призначена для одержання інформації візуально, шляхом читання. Якщо спробувати різні книжки навпомацки, також можна одержати інформацію, хоча напевне не ту, яка передбачалась авторами. Даний приклад пояснює сутність контексту взаємодії даних та методів.
Контекстний метод опрацювання даних – це той метод, який призначений для обробки даних певного типу. Цей метод відомий як тому, хто створює дані, так і тому, хто їх використовує. Для графічних даних контекстним є метод спостереження. Для текстових даних контекстним є метод, оснований на зорові та знанні мови тексту. Для даних, що подаються радіохвилями, контекстними є методи перетворення даних за допомогою радіо або телевізійного приймача.
Є свої особливості і для комп’ютерної інформації. Для даних, що подаються в числовій формі і зберігаються у вигляді сигналів, зареєстрованих на магнітних ( або інших) носіях, контекстними є методи апаратні та програмні методи обчислювальної техніки.
З визначення інформації випливає важлива властивість інформації – динамічність. Тобто, інформація існує досить нетривалий термін часу – рівно стільки, скільки триває взаємодія даних та методів під час її створення, споживання та перетворення. Як тільки ця взаємодія завершується, ми знову маємо справу з даним, але поданими вже в іншій формі. В даному випадку ми маємо справу з інформаційним процесом. Такий процес являє собою цикл утворення інформації з даних і збереження її у вигляді нових даних. Інформація існує досить нетривалий термін часу, але інформаційний процес триває стільки, скільки існують носії інформації. Наприклад, вивчаючи старовинні надписи, вчені продовжують інформаційний процес, розпочатий багато років тому.
Особливість інформаційного процесу в обчислювальній техніці полягає у тому, що певні його етапи відбуваються автоматично, без участі людини. В ході цих етапів дані, подані у вигляді зареєстрованих сигналів. взаємодіють як з апаратними методами (комп’ютерами та іншим обладнанням), так і з програмними методами (комп’ютерними програмами). При цьому важливою особливістю комп’ютерних програм є їх двоїстість. З одного боку, вони ведуть себе як дані, а з іншого – як методи опрацювання даних.
2. Кодування даних.
Дані – діалектична складова інформації. Вони являють собою зареєстровані сигнали. При цьому фізичний метод реєстрації може бути довільним: механічним, електричним, магнітним, оптичним, тощо. Відповідно до методу реєстрації дані можуть зберігатись і транспортуватись на носіях різних видів. Самим розповсюдженим видом носія, хоча і не самим економічним та надійним, є папір. В обчислювальній техніці в ролі носіїв інформації виступають різноманітні магнітні диски, стрічки, оптичні диски, тощо.
В ході виконання інформаційного процесу дані перетворюються з одного виду в інший за допомогою методів. Опрацювання даних містить в собі багато операцій, серед яких можна виділити наступні:
· збір даних – накопичення даних з метою забезпечення їх повноти для прийняття рішень;
· формалізація даних – зведення даних, одержаних з різних джерел, до однакової форми;
· фільтрація даних – відкидання “зайвих” даних, які не потрібні для прийняття рішення;
· сортування даних – впорядкування даних за певною ознакою;
· групування даних – об’єднання даних за певною ознакою з метою їх більш зручного використання;
· архівація даних – організація збереження даних в зручній та легкодоступній формі, як правило, в більш економному форматі;
· захист даних – комплекс заходів, направлених на запобігання втрати, модифікації або відтворення даних;
· транспортування даних – прийом та передача даних між віддаленими учасниками інформаційного процесу;
· перетворення даних – перевід даних з однієї форми або однієї структури до іншої.
Повний перелік операцій з даними набагато більший. Тому можна зробити висновок : опрацювання інформації має високу трудомісткість і тому її потрібно автоматизувати.
Для автоматизації опрацювання даних різних типів їх потрібно подати в єдиній формі. Для цього використовують кодування даних. Звичайна людська мова є прикладом кодування даних. Азбука Морзе, нотна грамота, малюнки є також прикладами систем кодування. Своя система існує і в обчислювальній техніці. Вона основана на використанні двійкової системи числення. Для подання інформації використовується дві цифри : 0 та 1. Ці цифри називаються двійковими цифрами, або бітами. Таке подання є досить зручним. По-перше, одним бітом може бути виражене одне з двох понять : так (1) або ні (0).Один біт легко подати у вигляді сигналів різної фізичної природи : намагнічено (1) – не намагнічено (0); є струм (1) – не має струму (0); високий рівень напруги (1) – низький рівень напруги (0).
Двома бітами можна подати вже чотири стани, трьома – 8. Всього n бітами можливо подати 2n різних станів. Збільшуючи кількість розрядів на один, ми збільшуємо кількість можливих станів удвічі.
Біт є досить дрібною, а отже, і незручною одиницею виміру даних. Тому біти об’єднується у групи по 8 біт – байти. Два байти називаються машинним словом. Байти об’єднуються в кілобайти (1Кб = 1024 » 1000 байт), мегабайти (1 Мб = 1024 » 1000 Кб » 1000 000 байт), гігабайти , терабайти і т. д. Враховуючи сучасні можливості виготовлення носіїв інформації і об’єми даних, які потрібно зберігати, найбільш вживаними одиницями виміру даних є мегабайти та гігабайти.
Для кодування числової інформації групи з декількох байт. При цьому як правило, старший біт відповідає за знак числа: 0– число додатне, 1 – число від’ємне. Так, для цілих чисел використовується два байти, для дійсних чисел - 10 байт. В такому випадку деяка кількість біт відводиться під мантису (тобто, значущі цифри числа), а інші – під порядок (разом за знаком).
Для кодування текстової інформації кожному символу ставиться у відповідність деяке ціле додатне число – його код. Так, одним байтом можна подати 256 різних символів. Цього достатньо для запису всіх символів англійського, російського (українського) алфавітів, цифр та спеціальних символів типу знаків арифметичних операцій, дужок, розділових знаків, тощо. Кодування символів визначається стандартом, яких на даний час існує досить багато. Це призвело до певних суперечностей – текст, поданий в одній кодовій таблиці, неправильно відтворювався в іншій. Для позбавлення цього недоліку в даний час використовується універсальна таблиця кодування UNICODE, яка основана на 16-бітному поданні символів. Цього достатньо для розміщення в одній кодовій таблиці символів більшості мов нашої планети.
Графічне зображення на екрані складається з дрібних точок, які називаються пікселами. Вони утворюють характерний візерунок, який називається растром. Для кодування графічної інформації використовується принцип декомпозиції. Його сутність полягає у тому, що будь-який колір подається у вигляді комбінації трьох основних кольорів: червоного, зеленого та блакитного. Якщо для кодування інтенсивностей кожної складової використовувати 8 біт (256 різних значень), то на кодування однієї точки екрану потрібно 24 розряди. При цьому така система забезпечує кодування близько 16,5 млн. кольорів. Такий режим подання графічного зображення називається повнокольоровим (True Color).
Всі дані зберігаються на зовнішньому носієві. Для одержання швидкого доступу до даних потрібно, щоб вони мали впорядковану структуру. В ролі такої структури використовується об’єкт змінної довжини, який називається файлом. Отже, файл – це послідовність довільної кількості байт, записаних на зовнішньому носієві даних, яка має ім’я. Тип даних визначає тип файлу.
Збереження файлів організовується в ієрархічній структурі, яка називається файловою системою. Для зручності роботи файли групуються в каталоги, які , в свою чергу, можуть містити інші каталоги. Вони являють собою іменовані сукупності файлів. На найвищому рівні ієрархії розташований кореневий каталог. Унікальність імені файлу полягає у тому, що повне ім’я файлу містить як власне його ім’я разом з маршрутом доступу до файлу. Маршрут завжди починається з логічного імені носія. Більш детально цей матеріал буде розглянутий пізніше.
3. Предмет і задачі інформатики.
Інформатика – це технічна наука, що систематизує прийоми створення збереження, накопичення, опрацювання та передачі даних засобами обчислювальної техніки, а також принципи функціонування цих засобів і методи управління ними.
Інформатика досить близька до технології, тому її предмет часто називають інформаційними технологіями.
Предмет інформатики складають такі поняття:
· апаратне забезпечення засобів обчислювальної техніки;
· програмне забезпечення засобів обчислювальної техніки;
· засоби забезпечення апаратної та програмної складових;
· засоби взаємодії людини з апаратними та програмними складовими.
Як видно, в інформатиці велика увага надається взаємодії. Для цього використовується спеціальне поняття – інтерфейс. Відповідно до наведених завдань розрізняють апаратний, програмний, програмно-апаратний інтерфейси та інтерфейс користувача.
Основним завданням інформатики є систематизація прийомів та методів роботи з апаратними та програмними засобами обчислювальної техніки. Мета систематизації полягає у виділенні, впровадженні і розвиткові передових, найбільш ефективних технологій, в автоматизації опрацювання даних, а також методичному забезпеченні нових досліджень.
Інформатика – практична наука. Її досягнення повинні підтверджуватись практикою і прийматись в тих випадках, коли вони відповідають критерію підвищення ефективності. Основними завданнями для практичних застосувань є:
· архітектура обчислювальних систем;
· інтерфейси обчислювальних систем;
· програмування;
· перетворення даних;
· захист інформації від несанкціонованого доступу;
· автоматизація опрацювання даних.
При цьому головним є не як виконати ту чи іншу операцію, а я виконати її ефективно.
Узагальнення по темі.
Всі процеси в природі супроводжуються сигналами. Зареєстровані сигнали утворюють дані. Дані перетворюються, транспортуються та споживаються за допомогою методів. При взаємодії даних та методів утворюється інформація.
Інформаційний обмін відбувається у вигляді інформаційного процесу. Інформація – це динамічний об’єкт, що утворюється в ході інформаційного процесу. Він відображає діалектичний зв’язок між об’єктивними даними та суб’єктивними методами. Властивості інформації залежать як від властивостей методів, так і властивостей даних.
Дані розрізняються за типами. Це пов’язано відмінностями у фізичній природі сигналів, при реєстрації яких вони утворились. Для збереження та транспортування даних використовуються носії даних.
Інформатика займається питаннями систематизації методів створення, збереження, накопичення, опрацювання та передачі інформації. Для уніфікації прийомів та методів опрацювання даних в обчислювальній техніці застосовується двійкова система кодування. Елементарною одиницею подання даних є один двійковий розряд – біт. Групи по 8 біт називаються байтами.
Основною одиницею збереження даних є файл. Він являє собою сукупність байт, що мають ім’я . Файли об’єднуються в каталоги. Сукупність всіх каталогів утворює файлову структуру носія.
Завдання №2
Робота в середовищі ТП Excel
а) за даними дійсними числами a,b (b>a) і цілому n обчислити значення функцій fj (xi) (j=1,2,…,m) для значень аргументу xi = a+ih де , (I = 0,1,…,n).
Засобами ділової графіки побудувати:
графік кожної функції на окремій системі координат;
на спільній системі координат побудувати графік всіх функцій.
Функції:
1.sin3 x2; =(SIN(C8)^2)^3
2.|sin x|; =ABS(SIN(C8))
3.3-cos x; =3-COS(C8)
4.log5|sin(x2+6)|; =LOG((ABS(SIN(C8^2+6)));5)
5.1+2x. =1+2^C8
a=0 ; b=2π; n=7.
Значення а
0
Значення b
6,283185
Початкове зачення і
0
Кінцеве значення n
7
Крок зміни
1
h
0,897598
i
Xi
f1(X1)
f2(X1)
f3(X1)
f4(X1)
f5(X1)
0,000
0,000
0,000
0,000
2,000
-0,792
2,000
1,000
0,898
0,228
0,782
2,377
-0,432
2,863
2,000
1,795
0,859
0,975
3,223
-0,998
4,471
3,000
2,693
0,007
0,434
3,901
-0,285
7,466
4,000
3,590
0,007
0,434
3,901
-1,979
13,045
5,000
4,488
0,859
0,975
3,223
-0,104
23,440
6,000
5,386
0,228
0,782
2,377
-0,521
42,805
7,000
6,283
0,000
0,000
2,000
-0,002
78,880
б) Обчислення інтегралів
Обчислити значення інтегралу розбивши проміжок [a1;b1] на m1 рівних частин за формулою x1 = a + ih1, де i змінюється в межах i = 0.1,…m1 а крок розбиття проміжку [a1;b1] обчислюється за формулою . Побудувати графік функції f1(x).
У формулах чисельного інтегрування позначено n- число елементарних відрізків, на які поділяється проміжок інтегрування [a,b] h- крок інтегрування h=b-a/n; x= a+ih точки розбиття проміжка [a,b] (i= 0;n); xi+0.5= a+(i+0.5)h h- середня точка елементарного відрізка [xi; x i+1]; fi; f i+0.5; f i+1 – значення підінтегральної функції відповідно в точках xi; x i+0,5; xi+1 , значення функцій fi; fi+0.5; f i+1 визначається за формулами fi= f(xi), f i+0.5= f(xi+0,5), f i+1= f(xi+1)
Формула чисельного інтегрування Сімпсона:
f1(x)= (e-x+1)2 a1= 3 b1=4,5 m1=10
а
3
b
4,5
n
10
крок h
0,15
n
0
1
2
3
4
5
6
7
8
9
10
xi
f(xi)
xi+0,5
f(xi+0,5)
xi+1
f(xi+1)
3
2
3,075
1,094513
3,15
4
3,15
1,367879
3,225
1,081092
3,3
1,871094
3,3
1,135335
3,375
1,069607
3,45
1,288986
3,45
1,049787
3,525
1,059771
3,6
1,102053
3,6
1,018316
3,675
1,051341
3,75
1,036967
3,75
1,006738
3,825
1,044113
3,9
1,013521
3,9
1,002479
3,975
1,037911
4,05
1,004964
4,05
1,000912
4,125
1,032588
4,2
1,001825
4,2
1,000335
4,275
1,028018
4,35
1,000671
4,35
1,000123
4,425
1,024092
4,5
1,000247
4,5
1,000045
4,575
1,020719
4,65
1,000091
S1
12,58195
S2
11,54377
S3
15,32042
S
12,34624
S*h
1,851936
в) МВ 044-149, стор. 12
Задано нелінійне рівняння f(x)=0:
1.Протабулювати функцію y=f(x) та побудувати її графік.
2.Відокремити корені нелінійного рівняння графічним та аналітичним способом, тобто вказати проміжки, на яких точно є корені.
3.Знайти корені нелінійних рівнянь
x3-3x2-24x-5=0
x
F(x)
-7
-327
-6,5
-250,375
-6
-185
-5,5
-130,125
-5
-85
-4,5
-48,875
-4
-21
-3,5
-0,625
-3
13
-2,5
20,625
-2
23
-1,5
20,875
-1
15
-0,5
6,125
0
-5
0,5
-17,625
1
-31
1,5
-44,375
2
-57
2,5
-68,125
3
-77
3,5
-82,875
4
-85
4,5
-82,625
5
-75
5,5
-61,375
6
-41
6,5
-13,125
7
23
x
y
-3,5
-0,625
-0,5
6,125
6,5
-13,125
Підбір параметрів
x
Y
-3,48134
-2,7E-05
-0,5
6,125
6,5
-13,125
г) МВ 044-84, стор. 36
Побудувати електрону таблицю за допомогою функції пошуку.Шкала для пошуку теж записується в електрону таблицю , але при виведенні на друк звіту шкала не друкується. Після звіту надрукувати формули, дані всієї таблиці (включаючи шкалу).
Група обладнання
Кошторис витрат на утримання і експлуатацію обладнання за рік по групах тис. Крб.
Кількість машино-годин завантаження обладнання за рік тис.
Нормативна величина витрат на одну машино-годину роботи обладнання
Коефіцієнти витрат на одну машино-годину
Кількість коефіцієнто-машино-годин
Планова вартість однієї коефіцієнто-машино-години.коп.
1
2
3
4
5
6
7
А
280
560
0,5
1
560
0,5
Б
204
340
0,6
1,2
408
0,5
В
90
90
1
2
180
0,5
Г
126
180
0,7
1,4
252
0,5
Всього
700
1400
2
1
Група обладнання
2
Кошторис витрат на утримання і експлуатацію обладнання за рік по групах тис. Крб.
3
Кількість машино-годин завантаження обладнання за рік тис.
4
Нормативна величина витрат на одну машино-годину роботи обладнання
5
Коефіцієнти витрат на одну машино-годину
6
Кількість коефіцієнто-машино-годин
7
Планова вартість однієї коефіцієнто-машино-години.коп.
Формули, які використовуються в задачі:
Нормативна величина витрат на одну машино-годину = кошторис витрат/кількість машино-годин завантаження обладнання.
Кількість коєфіцієнто-машино-годин = кількість машино-годин завантаження обладнання * коефіцієнт витрат на одну машино-годину.
Планова вартість однієї коєфіцієнто-машино-години = кошторис витрат/ Кількість коєфіцієнто-машино-годин.
Функція пошуку = ВПР(А3;$А$12:$В$18;2)
Завдання №3
Основи програмування мовою Visual Basic
Розробити алгоритм та написати програму до кожного з нижче наведених завдань.
а)Вибрати серед чисел від’ємні на друк, якщо вони є, та надрукувати їх кубічні корені.
де l – номер групи, а -варіант. l=3, k=10
a=(l-k)/3
b=(l+k)/1
c=l*k-3
Програмний код:
Private Sub Command1_Click()
l = Val(Text1.Text)
k = Val(Text2.Text)
a = (l - k) / 3
b = (l + k) / l
c = l * k - 7
If a < 0 Then a1 = a ^ 1 / 3
If b < 0 Then b1 = b ^ 1 / 3
If c < 0 Then c1 = c ^ 1 / 3
Text3.Text = Str(a)
Text4.Text = Str(a1)
End Sub
б) Знайти середнє геометричне всіх непарних чисел від 1 до 15.
Програмний код:
Private Sub Command1_Click()
Dim newline, space As String
Dim x, xp, xk, dx As Single
xp = Val(Text1.Text)
xk = Val(Text2.Text)
dx = Val(Text3.Text)
newline = Chr(13) + Chr(10)
space = Chr(9)
Text4.Text = "x" + space + "Sg" + newline
x = xp
Do While x <= xk
Dob = 1
For x = 1 To xk Step 2
Dob = Dob * x
Next
Sg = Dob ^ (1 / 8)
Text4.Text = Str(Format$(Sg, "0.00"))
x = x + dx
Loop
End Sub
в) Скласти масив.Обчислити добуток модулів значення елементів масиву
Y(7)=(-2.2;0.2;3.1;2.1;-3.1;6.1;0.5.)
Програмний код:
Private Sub Command1_Click()
Const n% = 7
Dim Dob As Single
Dim Y(1 To n%) As Single
Debug.Print "Масив Y"
For i% = 1 To n%
Title$ = "Введіть значення елементів масивуY"
Prt$ = "елементY(" & i% & ")"
Y(i%) = Val(InputBox(Prt$, Title$))
Debug.Print Format(Y(i%)); " ";
Next i%
Debug.Print
Dob = 1
For i% = 1 To n%
Dob = Dob * Abs(Y(i%))
Next
Debug.Print "Добуток=", Format(Dob, "00.00")
End Sub
в) Скласти алгоритм одновимірні масиви.Знайти найменший серед додатніх елементів масиву.
А(11)=(-3.2;2.1;0.0;1.3;-4.2;-6.6;7.1;0.1;0.3;0.2;0.11).
Програмний код:
Private Sub Command1_Click()
Const n% = 11
Dim A(1 To n) As Single
Debug.Print "масив А"
For i% = 1 To n%
Title$ = "введіть елементи масиву А"
prt$ = "елемент A(" & i% & ")"
A(i%) = Val(InputBox(prt$, Title$))
Debug.Print Format(A(i%)); " ";
Next i%
Debug.Print
Debug.Print "найменший елементи серед додатніх"
For i% = 1 To n%
If A(i) > 0 And Min = A(i%) Then Debug.Print ; " ";
Next
For i% = 1 To n%
If A(i%) = Min Then Min = A(i%)
Next
Debug.Print , Format(Min, "0.0")
End Sub
в) МВ 044-66, стор. 15
Задана матриця
Z
Знайти С=Z Min +Z Max / 2 де Z Min = min{Z i, j} Z Max = max{Z i, j}
i = 1,3, j = 1,3
Програмний код:
Private Sub Command1_Click()
Const n% = 3
Const m% = 3
Dim C As Single
Dim Z(1 To n%, 1 To m%) As Single
Debug.Print "масив Z"
For i% = 1 To n%
For j% = 1 To m%
Title$ = "Введіть значення елементів масивуZ"
Prt$ = "елементZ(" & i% & "," & j% & ")"
Z(i%, j%) = Val(InputBox(Prt$, Title$))
Debug.Print Format(Z(i%, j%), "0.0"); " ";
Next j%
Debug.Print
Next i%
Debug.Print
Zmin = Z(1, 1)
For i% = 1 To n%
For j% = 1 To m%
If Z(i%, j%) < Min Then
Min = Z(i%, j%)
End If
Next j%
Next i%
Zmax = Z(1, 1)
For i% = 1 To n%
For j% = 1 To m%
If Z(i%, j%) > Max Then
Max = Z(i%, j%)
End If
Next j%
Next i%
For i% = 1 To n%
For j% = 1 To m%
If Zmin = Z(i%, j%) And Zmax = Z(i%, j%) Then
C = (Min + Max) / 2
End If
Next j%
Next i%
Debug.Print " елемент C=", Format(C, "0.00")
End Sub
г)Скласти блок-схему алгоритму та програму обчислення та виведення на екран таблиці значень функції у= f(x) де х- заданий масив а,b- задані константи у- проста змінна.
4 b*х, якщо х<7
Y = lg (a+x2), якщо 7<x<14
ebx , якщо х>14
a=24.3 b=2.17 x=( 5; 7; 14; 8.5;16; 2.4)
Програмний код:
Private Sub Command1_Click()
Const n% = 6
Dim a, b, y As Single
Dim newline, space As String
a = Val(Text1.Text)
b = Val(Text2.Text)
newline = Chr(13) + Chr(10)
space = Chr(9)
Dim X(1 To n%) As Single
Debug.Print "Масив X"
For i% = 1 To n%
Title$ = "Введіть знач.елементів"
Prt$ = "елемент X(" & i% & ")"
X(i%) = Val(InputBox(Prt$, Title$))
Debug.Print X(i%); " ";
Next i%
Debug.Print
Text3.Text = " X " + space + " Y" + newline
For i% = 1 To n%
If X(i%) < 7 Then y = (Sqr(b * X(i%))) ^ 4
If X(i%) > 7 And X(i%) <= 14 Then y = (Log(a + X(i%) ^ 2)) / Log(10)
If X(i%) > 14 Then y = Exp(b * X(i%))
Text3.Text = Text3.Text + Str(Format$(X(i%), "0.00")) + space + Str_ (Format$(y, "0.00")) + newline
Next
End Sub
Завдання №4
Створення презентації в середовищі Microsoft PowerPoint
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора