Вычисления по формулам. Разветвления. Циклы

/

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ УКРАИНЫ

ДОНЕЦКИЙ НАЦИОНАЛЬНЫЙ УНИВЕРСИТЕТ

УЧЕБНО-НАУЧНЫЙ ИНСТИТУТ 'ЭКОНОМИЧЕСКАЯ КИБЕРНЕТИКА'

КАФЕДРА ЭКОНОМИЧЕСКОЙ КИБЕРНЕТИКИ

ОТЧЕТ ПО ЛАБОРАТОРНОЙ РАБОТЕ № 1

по дисциплине: 'Основы программирования экономических задач'

на тему: 'Вычисления по формулам. Разветвления. Циклы'

Студента I курса Нагорнюка Игоря

Преподаватель С.И. Левицкий

2014

Цель работы: научить вычислять по формулам в Microsoft Visual Basic, с использованием функции If, а также применяя циклы и разветвления.

Условия:

Визуальные объекты VB:

Задание А)

В Form1 добавляем объекты:

- Скроллинг 'Frame':

'Frame1'= a)

текстовое поле 'Label' добавляем следующие значения параметров:

'Label1' = 'Результат: С=',

'Label2' = 'X=',

'Label3' = 'Y=',

'Label4' = 'a=' 'Label5' = 'b='

поля ввода данных 'Text':

Y = text1. text

C = text2. text

X = text3. text

a = text4. text

b = text5. text

кнопку 'Вычислить' Command1_Click

Рис 1. Блок-схема к примеру а)

Программный код:

Private Sub Command1_Click ()

Text4. Text = Cos (Text1. Text) ^ 2 - Log (Text3. Text)

Text5. Text = Sqr (Text3. Text + 4 + Sin (Text1. Text))

Text2. Text = (Cos (Text4. Text - Text5. Text) + 1) / (Exp (Text4. Text) + Text5. Text)

End Sub Задание Б)

В Form1 добавляем объекты:

- Скроллинг 'Frame':

'Frame2'= б)

текстовое поле 'Label' добавляем следующие значения параметров:

'Label6' = 'Результат: S=',

'Label7' = 'a=',

'Label8' = 'b=',

поля ввода данных 'Text':

S = text6. text

a = text7. text

b = text8. text

кнопку 'Вычислить' Command2_Click

Рис 2. Блок-схема к примеру б)

Программный код:

Private Sub Command2_Click ()

If Text7. Text * Text8. Text > Sin (Text7. Text) Then Text6. Text = 0.873 * Cos (Text7. Text ^ 3) - Text8. Text

If Text7. Text * Text8. Text = Sin (Text7. Text) Then Text6. Text = 2.3 - Cos (Text8. Text) ^ 2 - Text7. Text

If Text7. Text * Text8. Text < Sin (Text7. Text) Then Text6. Text = Log ( (Text7. Text ^ 3) + (Text8. Text ^ 2))

End Sub

Задание В)

В Form1 добавляем объекты:

Скроллинг 'Frame':

'Frame3'= в)

текстовое поле 'Label', содержащие следующие значения:

'Label9' = 'b',

'Label10' = 'h',

'Label11' = 'X',

'Label11' = 'c',

'Label12' = 'z'

поля 'Text', для ввода следующих значений:

h = text10. text

X = text11. text and text12. text

текстовое поле 'ListBox', содержащие вычисления следующих переменных:

'ListBox1' = b

'ListBox2' = c

'ListBox3' = Z

кнопку 'Вычислить' Command3_Click

Рис 3. Блок-схема к примеру в)

Программный код:

Private Sub Command3_Click ()

For x = Val (Text11. Text) To Val (Text12. Text) Step Val (Text10. Text)

b = 0.01 * x + Exp (0.7)

C = 1/x + Log (Abs (x))

List1. AddItem (Str (b))

List2. AddItem (Str (C))

If x <= - 0.9 Then s = x ^ 3 + 2 * b

If x > - 0.9 And x < - 1.3 Then s = C * Sqr (Abs (x) ^ 3 + 2)

If x >= 1.3 Then s = Log (Sqr (Abs (x ^ 3 + 2)))

s = '0' + s

List3. AddItem (s)

s = ''

Next x

End Sub

разветвление цикл алгоритм программный

Выводы

В результате сделанной лабораторной работы я:

1) Научился использовать условный оператор If

2) Вводить переменные, а также определять тип данных

3) Составлять алгоритм решения поставленных задач

4) Научился правильно применять и записывать математические операторы