Лабораторная работа №2 Реализация «Разветвляющихся вычислительных процессов» средствами Excel Информатика и программирование Соколова Ирина



Скачать 48.85 Kb.
Дата26.07.2014
Размер48.85 Kb.
ТипЛабораторная работа

Лабораторная работа №2



Реализация «Разветвляющихся вычислительных процессов» средствами Excel
Информатика и программирование

Соколова Ирина

ФИТ ПИН 12.06

01.01.2012


Реализация «Разветвляющихся вычислительных процессов» средствами Excel
Постановка задачи

Разработать алгоритм для вычисления значений функции (разветвляющийся вычислительный процесс) и реализовать его в Excel.



Разработка алгоритма


В задаче требуется вычислить функцию, вид которой зависит от значения аргумента. Поэтому разобьем числовую ось значениями, указанными в формуле на несколько промежутков, указав при этом, какой должен быть результат вычислений на каждом промежутке:
-5 ФНЗ 8 30 ФНЗ 100
y=sinx y=ctgx y=ecosx/(200-x)
где ФНЗ - функция не задана для данного промежутка

Условимся, что:


блок 1 - у=sinx

блок 2 - y=ctgx

блок 3 - y=ecosx/(200-x)

Составим основной алгоритм


ввод x

если x<-5

блок 1

иначе


если x<8

"ФНЗ"


иначе

если x<30

блок 2

иначе


если x<=100

"ФНЗ"


иначе

блок 3


всё_если

всё_если


всё_если

всё_если

Рассмотрим вычисления в каждом из блоков


Блок 1. Требуется вычислить значение функции y=sin x, здесь нет никаких ограничений. Таким образом получаем:

y=sinx


печать y

Блок 2. Требуется вычислить значение функции y=ctgx, здесь нет ограничений. Таким образом получаем:

y=ctgx

печать y


Блок 3. Требуется вычислить значение функции y= ecosx/(200-x). При данном вычислении следует учесть что если знаменатель равен нулю, то функция не определена.

Если 200-x<>0

y=ecosx/(200-x)

печать y


иначе

"ФНО"


всё_если

Составим основной алгоритм на основе рассмотренного выше


ввод x

если x<-5

y=sinx

печать y


иначе

если x<8


"ФНЗ"

иначе


если x<30

y=ctgx


печать y

иначе


если x<=100

"ФНЗ"


иначе

Если 200-x<>0

y=ecosx/(200-x)

печать y


иначе

"ФНО"


всё_если

всё_если


всё_если

всё_если


всё_если

Реализация в Excel


=ЕСЛИ(B2<-5;SIN(B2);

ЕСЛИ(B2<8;"ФНЗ";

ЕСЛИ(B2<30;1/(TAN(B2));

ЕСЛИ(B2<100;"ФНЗ";

ЕСЛИ((200-B2)<>0; (EXP(COS(B2)))/(200-B2);"ФНО"

)

)



)

)

)



Реализация в VB (через Range)


Private Sub CommandButton1_Click()
Dim res As range ' res определено как range

Dim x, y As Single ' x, y определены как вещественные значения одинарной точности


x = range("B4").Value ' ввод х из ячейки "B4"

If x < -5 Then ' если x<-5 то высчитать y и вывести значение в ячейку С4

y = sin(x)

range("C4").Value = y

Else ' иначе

If x < 8 Then ' Если х<8 вывести в ячейку "ФНЗ"

range("C4").Value = "ФНЗ"

Else 'иначе

If x < 30 Then 'если х<30 тогда высчитать y и вывести значение в ячейку С4

y = 1/tg(x)

range("C4").Value = y

Else ' Иначе

If x <= 100 Then ' если х<=100 тогда вывести в ячейку С4 "ФНЗ"

range("C4").Value = "ФНЗ"

Else ' Иначе

If 200 - x <> 0 Then 'Если 200-х <> 0 тогда высчитать y и вывести значение в ячейку C4

y = e^cos(x) / (200 - x)

range("C4").Value = y

Else 'Иначе

range("C4").Value = "ФНО" ' вывести в ячейку С4 'ФНО

End If ' Всё_если

End If ' Всё_если

End If ' Всё_если

End If ' Всё_если

End If ' Всё_если

End Sub ' конец программы


Реализация в VB (Cells)


Private Sub CommandButton1_Click()
Dim x, y As Single ' x, y определены как вещественные значения одинарной точности
x = cells(2,4).Value ' ввод х из ячейки "B4"

If x < -5 Then ' если x<-5 то высчитать y и вывести значение в ячейку С4

y = sin(x)

cells(3,4).Value = y

Else ' иначе

If x < 8 Then ' Если х<8 вывести в ячейку "ФНЗ"

cells(3,4).Value = "ФНЗ"

Else 'иначе

If x < 30 Then 'если х<30 тогда высчитать y и вывести значение в ячейку С4

y = 1/tg(x)

cells(3,4).Value = y

Else ' Иначе

If x <= 100 Then ' если х<=100 тогда вывести в ячейку С4 "ФНЗ"

cells(3,4).Value = "ФНЗ"

Else ' Иначе

If 200 - x <> 0 Then 'Если 200-х <> 0 тогда высчитать y и вывести значение в ячейку C4

y = e^cos(x) / (200 - x)

cells(3,4).Value = y

Else 'Иначе

cells(3,4).Value = "ФНО" ' вывести в ячейку С4 'ФНО

End If ' Всё_если

End If ' Всё_если

End If ' Всё_если

End If ' Всё_если

End If ' Всё_если

End Sub ' конец программы


Реализация в VB (MsgBox)


Private Sub CommandButton1_Click()
Dim x, y As Single ' x, y определены как вещественные значения одинарной точности
x = cells(2,4).Value ' ввод х из ячейки "B4"

If x < -5 Then ' если x<-5 то высчитать y и вывести значение в ячейку С4

y = sin(x)

MsgBox "y=" & CStr(y)

Else ' иначе

If x < 8 Then ' Если х<8 вывести в ячейку "ФНЗ"

cells(3,4).Value = "ФНЗ"

MsgBox "ФНЗ"

Else 'иначе

If x < 30 Then 'если х<30 тогда высчитать y и вывести значение в ячейку С4

y = 1/tg(x)

MsgBox "y=" & CStr(y)

Else ' Иначе

If x <= 100 Then ' если х<=100 тогда вывести в ячейку С4 "ФНЗ"

MsgBox "ФНЗ"

Else ' Иначе

If 200 - x <> 0 Then 'Если 200-х <> 0 тогда высчитать y и вывести значение в ячейку C4

y = e^cos(x) / (200 - x)

MsgBox "y=" & CStr(y)

Else 'Иначе

MsgBox "ФНО" ' вывести в ячейку С4 'ФНО

End If ' Всё_если

End If ' Всё_если

End If ' Всё_если

End If ' Всё_если

End If ' Всё_если

End Sub ' конец программы


Оглавление


Разработка алгоритма 2

Условимся, что: 2

Составим основной алгоритм 2

Рассмотрим вычисления в каждом из блоков 3

Составим основной алгоритм на основе рассмотренного выше 3

Реализация в Excel 4

Реализация в VB (через Range) 5

Реализация в VB (Cells) 6



Реализация в VB (MsgBox) 7

Похожие:

Лабораторная работа №2 Реализация «Разветвляющихся вычислительных процессов» средствами Excel Информатика и программирование Соколова Ирина iconЛабораторная работа по теме «Тема Программирование алгоритмов разветвляющихся структур»
Цель данной работы состоит в получении навыков разработки проектов, использующих алгоритмы разветвляющихся структур
Лабораторная работа №2 Реализация «Разветвляющихся вычислительных процессов» средствами Excel Информатика и программирование Соколова Ирина iconЛабораторная работа №4. Программирование циклических вычислительных процессов
А) Вычислить значение выражения (см приложение 2 – Задания к лабораторной работе №2) в цикле xЄ[xn;xk] с шагом x. Исходные данные...
Лабораторная работа №2 Реализация «Разветвляющихся вычислительных процессов» средствами Excel Информатика и программирование Соколова Ирина iconЛабораторная работа 17 Работа со встроенными функциями Excel
Запустите ms excel. Сохраните файл в своей папке на диске D:\ или в папке Personal под именем Построение функций и графиков
Лабораторная работа №2 Реализация «Разветвляющихся вычислительных процессов» средствами Excel Информатика и программирование Соколова Ирина iconЛабораторная работа №4 Использование Microsoft Office Excel для анализа данных и решение задач оптимизации
Цель работы: изучить встроенные в Excel возможности анализа данных на примере проведения регрессионного анализа. Ознакомиться со...
Лабораторная работа №2 Реализация «Разветвляющихся вычислительных процессов» средствами Excel Информатика и программирование Соколова Ирина iconЛабораторная работа Прогнозирование в среде excel прогнозы с применением метода скользящего среднего
Примечание: все задания делайте на отдельных листах рабочей книги Excel, присвоив ему соответствующие название прогноза
Лабораторная работа №2 Реализация «Разветвляющихся вычислительных процессов» средствами Excel Информатика и программирование Соколова Ирина iconЛабораторная работа по теме «Построение таблиц истинности с помощью электронных таблиц Excel»
Цель работы: познакомиться с логическими функциями Excel, научиться строить таблицы истинности сложных высказываний
Лабораторная работа №2 Реализация «Разветвляющихся вычислительных процессов» средствами Excel Информатика и программирование Соколова Ирина iconЛабораторная работа по теме: «Разветвляющийся вычислительный процесс»
Цели: формирование практических умений и навыков составления блок-схем и записи на языке программирования паскаль разветвляющихся...
Лабораторная работа №2 Реализация «Разветвляющихся вычислительных процессов» средствами Excel Информатика и программирование Соколова Ирина iconПрактикум по дисциплине «информатика» для студентов направлений 230100. 62 «Информатика и вычислительная техника»
Лабораторная работа Команды работы с дисками, файлами и каталогами ос ms dos 9
Лабораторная работа №2 Реализация «Разветвляющихся вычислительных процессов» средствами Excel Информатика и программирование Соколова Ирина iconЛабораторная работа №1 Работа в Oracle Database Express Edition 1 Лабораторная работа №6
Лабораторная работа Выполнение расчетов с использованием программирования в среде Visual Basic for Applications
Лабораторная работа №2 Реализация «Разветвляющихся вычислительных процессов» средствами Excel Информатика и программирование Соколова Ирина iconПрактическая работа №11 Microsoft Excel 2007. Форматы ячеек, функции, работа с блоками Практика по проведенной лекции по Excel
Создайте новый документ Microsoft Excel и его первый лист переименуйте в Формат. Для этого выполните двойной клик на Лист1, введите...
Разместите кнопку на своём сайте:
ru.convdocs.org


База данных защищена авторским правом ©ru.convdocs.org 2016
обратиться к администрации
ru.convdocs.org