Файл: Е. А. Рябухина, О. А. Гущина, Д. А. Губанов, Д. В. Емельянов.doc
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 01.12.2023
Просмотров: 601
Скачиваний: 5
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Пример выполнения заданияУсловие: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 Singleb%=12: k%=-6 :d!=67889‘ByteW=90: intX=65: sngC=6.00067z=(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 = 8ActiveSheet.Range("A3:C3").Cells.Interior.ColorIndex = 6ActiveSheet.Range("A5:C5").Cells.Interior.ColorIndex = 7ActiveSheet.Range("F1:G3").Cells.Font.Size = 14ActiveSheet.Range("F1:G3").Cells.Font.Name = "Times New Roman"ActiveSheet.Range("F1:G3").Cells.Font.Color = 700EndSUB
ЛАБОРАТОРНАЯ РАБОТА №2.«Программирование разветвляющихся алгоритмов»Цель работы: получение практических навыков разработки, программирования вычислительного процесса разветвляющейся структуры.Задания:Задание 1. Составить программу для вычисления значений функции z = x + y. Функции x и y приведены в табл. 8.Таблица 8
Задание 2. Составить программу для определения попадания точки, координаты которой вводятся с клавиатуры, в заштрихованную область, включая ее границы (табл. 9). Таблица 9
Пример выполнения заданияУсловие: составить программу для вычисления значений функции z = x + y, где
Программный код:SUBLabText()Dim a As Single, b As Single, x As Single, y As Single, z As Singlea = 6.78: b = 13.65If 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) ^ 2z = x + yRange("a1:c1").SelectWith 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 WithSelection = "Z=" & Format(z, "00.00")End SUB ЛАБОРАТОРНАЯ РАБОТА №3.«Программирование итерационных циклов»Цель работы: получение практических навыков разработки, программирования вычислительного процесса циклических структур, в частности – итерационных циклов.Задание: составить программу для вычисления значений функцииy= -ex+u+v, где x изменяется от 0 с шагом h. Цикл заканчивается при первом отрицательном значении y. Функции u, v и шаг h приведены в табл. 10.Таблица 10
Пример выполнения заданияУсловие: составить программу для вычисления значений функцииy= -ex + u+ v, где x изменяется от 0 с шагом h. Цикл заканчивается при первом отрицательном значении y.a = 1,35; b = 2,4; h = 0,5.Программныйкод:SUB Lab3()ActiveSheet.Cells.ClearDim a As Single, b As Single, x As Single, y As Single, h As Single, u As Single, v As Singleh = 0.5a = 1.35b = 2.4i = 1x = 0y = 8Do While y >= 0If a > y Then u = Sqr(x) Else If a = x Then u = Sin(x)^2 Else u = x^2If u > 3 * x Then v = 5 Else v = 3y = -Exp(x) + u + vCells(i, 1) = Format(y, "00.000")Cells(i, 2) = Format(x, "00.0")i = i + 1x = x + hLoopEnd SUBЛАБОРАТОРНАЯ РАБОТА № 4. «Программирование алгоритмов вычисления суммы и количества»Цель работы: изучение стандартных алгоритмов суммы и количества.Задание: составить программу для вычисления значения функции y= f(x) при изменении x от 0 до 1 с шагом h. Подсчитать количество положительных, отрицательных и нулевых значений функции. Данные приведены в табл. 11.Таблица 11
ЛАБОРАТОРНАЯ РАБОТА №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 |  |
Программный код:SUBLabText()Dim a As Single, b As Single, x As Single, y As Single, z As Singlea = 6.78: b = 13.65If 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) ^ 2z = x + yRange("a1:c1").SelectWith 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 WithSelection = "Z=" & Format(z, "00.00")End SUB ЛАБОРАТОРНАЯ РАБОТА №3.«Программирование итерационных циклов»Цель работы: получение практических навыков разработки, программирования вычислительного процесса циклических структур, в частности – итерационных циклов.Задание: составить программу для вычисления значений функцииy= -ex+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= -ex + u+ v, где x изменяется от 0 с шагом h. Цикл заканчивается при первом отрицательном значении y.a = 1,35; b = 2,4; h = 0,5.Программныйкод:SUB Lab3()ActiveSheet.Cells.ClearDim a As Single, b As Single, x As Single, y As Single, h As Single, u As Single, v As Singleh = 0.5a = 1.35b = 2.4i = 1x = 0y = 8Do While y >= 0If a > y Then u = Sqr(x) Else If a = x Then u = Sin(x)^2 Else u = x^2If u > 3 * x Then v = 5 Else v = 3y = -Exp(x) + u + vCells(i, 1) = Format(y, "00.000")Cells(i, 2) = Format(x, "00.0")i = i + 1x = x + hLoopEnd SUBЛАБОРАТОРНАЯ РАБОТА № 4. «Программирование алгоритмов вычисления суммы и количества»Цель работы: изучение стандартных алгоритмов суммы и количества.Задание: составить программу для вычисления значения функции y= f(x) при изменении x от 0 до 1 с шагом h. Подсчитать количество положительных, отрицательных и нулевых значений функции. Данные приведены в табл. 11.Таблица 11
| Вар-т | f(x) | Константы | | Вар-т | f(x) | Константы |
| 1 | x3 – 0,6x 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 | ax3 – 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 |