Пример выполнения задания

Условие:

1. Описать переменные в явном виде a= 9, n= 789, v= 13,6789.

2. Описать переменные с помощью суффиксов b= 12, k= - 6, d= 67889.

3. Описать переменные с помощью префиксов W= 90, X= 365, C= 6,00067.

4. Вычислить переменные Z и P по формулам:





5. Задать в ячейках А1-С1 голубой цвет, А3-С3 – желтый, А5-С5 – пурпурный. В ячейках F1-G3 для шрифта установить 14 кегль Times New Roman любого цвета.
Программный код:

Subprimer1()

Dim a As Byte, n As Integer, v As Single

b%=12: k%=-6 :d!=67889

‘ByteW=90: intX=65: sngC=6.00067

z=(sqr(a+n)+log10(v))/(sin(b)^2)

p=log(W/X+d^(1/6)+C)

Cells(3,1)=vartype(b)

Cells(3,2)=vartype(k)

Cells(3,3)=vartype(d)

ByteW=Cells(1,1)

intX=Cells(1,2)

sngC=Cells(1,3)

Cells(5,1)=vartype(ByteW)

Cells(5,2)=vartype(intX)

Cells(5,3)=vartype(sngC)

Cells(1,”F”)=”z”

Cells(2,”F”)=Format(z,”###. ٮ###”)

Cells(3,”F”)=vartype(z)

Cells(1,”G”)=”p”

Cells(2,”G”)=Format(p,”###. ٮ###”)

Cells(3,”G”)=vartype(p)

ActiveSheet.Range("A1:C1").Cells.Interior.ColorIndex = 8

ActiveSheet.Range("A3:C3").Cells.Interior.ColorIndex = 6

ActiveSheet.Range("A5:C5").Cells.Interior.ColorIndex = 7

ActiveSheet.Range("F1:G3").Cells.Font.Size = 14

ActiveSheet.Range("F1:G3").Cells.Font.Name = "Times New Roman"

ActiveSheet.Range("F1:G3").Cells.Font.Color = 700

EndSUB

---

ЛАБОРАТОРНАЯ РАБОТА №2.

«Программирование разветвляющихся алгоритмов»
Цель работы: получение практических навыков разработки, программирования вычислительного процесса разветвляющейся структуры.
Задания:

Задание 1. Составить программу для вычисления значений функции z = x + y. Функции x и y приведены в табл. 8.

Таблица 8

Вариант	x	y	Константы
1			t = 24,683; s = -15000
2			a = 1,03; b = 1,735; r = 0,28
3			a = 14,534; r = -5,12
4			a = 1; r = 7
5			d = 1,243; r = 0,946
6			= 3,1415926; t = 2,347
7			= 3,1415926; t = -17,244; s = 5,12
8			a = 1,238; b = 1,237; r = 2,48
9			d = 1,243; a = 2,653; b = 3,751
10			t = -0,248; s = 0,262

---

Задание 2. Составить программу для определения попадания точки, координаты которой вводятся с клавиатуры, в заштрихованную область, включая ее границы (табл. 9).

Таблица 9

Вариант	Область		Вариант	Область
1	2		3	4
1			6
2			7
3			8

Окончание табл. 9
1	2		3	4
4			9
5			10

Пример выполнения задания

Условие: составить программу для вычисления значений функции z = x + y, где

---

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

SUBLabText()

Dim a As Single, b As Single, x As Single, y As Single, z As Single

a = 6.78: b = 13.65

If a < b

Then x = a + b ^ 2

Else

If a = b

Then x = a ^ 3 - 4 * b

Else x = Sqr(a + b)

If x >= 9 Then y = Log(x + 7) Else y = Sin(x) ^ 2

z = x + y

Range("a1:c1").Select

With Selection

.Merge

.HorizontalAlignment = xlCenter

.Font.Size = 14

.Font.Bold = True

.Font.Italic = True

.Font.Color = 30

.Font.Name = "Times New Roman"

.Borders.Color = RGB(100, 0, 100)

End With

Selection = "Z=" & Format(z, "00.00")

End SUB
ЛАБОРАТОРНАЯ РАБОТА №3.

«Программирование итерационных циклов»
Цель работы: получение практических навыков разработки, программирования вычислительного процесса циклических структур, в частности – итерационных циклов.
Задание: составить программу для вычисления значений функции y= -e^x+u+v, где x изменяется от 0 с шагом h. Цикл заканчивается при первом отрицательном значении y. Функции u, v и шаг h приведены в табл. 10.

Таблица 10

Вариант	u	v	Константы
1		123,5	a = 0,1; h = 0,2
2			d = 1,243; r = 0,946; h = 0,5
3		2x2 + 3x + 0,1u4	a = 12,14; h = 0,5
4		 – u3	= 3,1415926; t = 2,347; a = 2,143; h = 0,2
5	a – x2 + x + s		a = 11,2; s = 0,247; b = -0,13; h = 0,5
6			d = 1,243; a = 2,653; b = 3,751; h = 0,2
7			a = 1,03; b = 1,735; r = 0,28; h = 0,5
8	2,3x + a		a = 0,13; h = 0,5
9			a = 14,534; r = -5,12; h = 0,2
10		14,248	a = 17,5; b = 17; h = 1

---

Пример выполнения задания

Условие: составить программу для вычисления значений функции y= -e^x + u+ v, где x изменяется от 0 с шагом h. Цикл заканчивается при первом отрицательном значении y.

a = 1,35; b = 2,4; h = 0,5.

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

SUB Lab3()

ActiveSheet.Cells.Clear

Dim a As Single, b As Single, x As Single, y As Single, h As Single, u As Single, v As Single

h = 0.5

a = 1.35

b = 2.4

i = 1

x = 0

y = 8

Do While y >= 0

If a > y

Then u = Sqr(x)

Else

If a = x Then u = Sin(x)^2 Else u = x^2

If u > 3 * x Then v = 5 Else v = 3

y = -Exp(x) + u + v

Cells(i, 1) = Format(y, "00.000")

Cells(i, 2) = Format(x, "00.0")

i = i + 1

x = x + h

Loop

End SUB
ЛАБОРАТОРНАЯ РАБОТА № 4.

«Программирование алгоритмов вычисления суммы и количества»
Цель работы: изучение стандартных алгоритмов суммы и количества.
Задание: составить программу для вычисления значения функции y= f(x) при изменении x от 0 до 1 с шагом h. Подсчитать количество положительных, отрицательных и нулевых значений функции. Данные приведены в табл. 11.

Таблица 11

Вар-т	f(x)	Константы		Вар-т	f(x)	Константы
1	x3 – 0,6x 2 + 0,006	h = 0,1		6		a = 0,3; h = 0,1
2		s = 5,12; h = 0,2		7		= 3,1415; h = 0,1
3		b = 17; h = 0,1		8		a = 3; h = 0,2; w = 1; s = -4; d = 0,4; h = 0,1
4		a = 14,534; h = 0,2		9	ax3 – x2 + x + a2	a = 1,3; h = 0,2
5		d = 1,3; h = 0,1		10		a = 0,4; b = 0,5; h = 0,2

---

Смотрите также файлы

• История развития отечественной социальной психологии.docx

• Мои права и обязанности.docx

• 8 сынып Алгебра бжб 4 тосан. І нса. Тапсырма.docx

• Тренировка личного состава 185пч 22огпс на оппп. Вид занятия практическое Отведенное время 1 (ч) Цель занятия.doc

• Методические указания производственная практика (преддипломная практика).docx