МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
ДОНЕЦЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ
НАВЧАЛЬНО-НАУКОВИЙ ІНСТИТУТ ЕКОНОМІЧНА КІБЕРНЕТИКА
КАФЕДРА ЕКОНОМІЧНОЇ КІБЕРНЕТИКИ
ЗВІТ ПО ЛАБОРАТОРНОЇ РОБОТІ № 1
з дисципліни: Основи програмування економічних завдань
на тему: Обчислення за формулами. Розгалуження. Цикли
Студента I курсу Нагорнюка Ігоря
Викладач С.І. Левицький
Мета роботи : навчити обчислювати за формулами в Microsoft Visual Basic, з використанням функції If, а також застосовуючи цикли і розгалуження.
Умови :
Візуальні об'єкти VB :
Завдання А)
У Form1 додаємо об'єкти:
Скролінг Frame :
Frame1 =a)
текстове поле Label додаємо наступні значення параметрів:
Label1 = Laquo; Результат: С=,
Label2 = Laquo; X=,
Label3 = Laquo; Y=,
Label4 = Laquo; a= Label5 = Laquo; b=
поля введення даних Text :=text1. text=text2. text=text3. text=text4. text=text5. text
кнопку Обчислити Command1_Click
Рис 1. Блок-схема наприклад а)
Програмний код:
Private Sub Command1_Click (). Text=Cos (Text1. Text) ^ 2 - Log (Text3. Text). Text=Sqr (Text3. Text + 4 + Sin (Text1. Text)). Text=(Cos (Text4. Text - Text5. Text) + 1)/(Exp (Text4. Text) + Text5. Text)
End Sub Завдання Б)
У Form1 додаємо об'єкти:
Скролінг Frame :
Frame2 =б)
текстове поле Label додаємо наступні значення параметрів:
Label6 = Laquo; Результат: S=,
Label7 = Laquo; a=,
Label8 = Laquo; b=,
поля введення даних Text :
S=text6. text=text7. text=text8. text
кнопку Обчислити Command2_Click
Рис 2. Блок-схема наприклад б)
Програмний код:
Private Sub Command2_Click () Text7. Text * Text8. Text gt; Sin (Text7. Text) Then Text6. Text=0.873 * Cos (Text7. Text ^ 3) - Text8. TextText7. Text * Text8. Text=Sin (Text7. Text) Then Text6. Text=2.3 - Cos (Text8. Text) ^ 2 - Text7. TextText7. Text * Text8. Text lt; Sin (Text7. Text) Then Text6. Text=Log ((Text7. Text ^ 3) + (Text8. Text ^ 2))
End Sub
Завдання В)
У Form1 додаємо об'єкти:
Скролінг Frame :
Frame3 =в)
текстове поле Label raquo ;, що містять такі значення:
Label9 = Laquo; b ,
Label10 = Laquo; h ,
Label11 = Laquo; X ,
Label11 = Laquo; c ,
Label12 = Laquo; z
поля Text raquo ;, для введення наступних значень:
h=text10. text=text11. text and text12. text
текстове поле ListBox raquo ;, що містять обчислення наступних змінних:
ListBox1 =B
ListBox2 =C
ListBox3 =Z
кнопку Обчислити Command3_Click
Рис 3. Блок-схема наприклад в)
Програмний код:
Private Sub Command3_Click () x=Val (Text11. Text) To Val (Text12. Text) Step Val (Text10. Text)=0.01 * x + Exp (0.7)=1/x + Log (Abs (x) ). AddItem (Str (b)). AddItem (Str (C)) x lt;=- 0.9 Then s=x ^ 3 + 2 * bx gt;- 0.9 And x lt;- 1.3 Then s=C * Sqr (Abs (x) ^ 3 + 2) x gt;=1.3 Then s=Log (Sqr (Abs (x ^ 3 + 2)))= 0 + S. AddItem (s)=
Next x
End Sub
розгалуження цикл алгоритм програмний
Висновки
У результаті зробленої лабораторної роботи я:
) Навчився використовувати умовний оператор If
2) Вводити змінні, а також визначати тип даних
) Складати алгоритм вирішення поставлених завдань
) Навчився правильно застосовувати і записувати математичні оператори
