«Логические основы компьютера» 7

Скачать 2.37 Mb.

Название	«Логические основы компьютера» 7
страница	8/27
Тип	Документы

rykovodstvo.ru > Руководство эксплуатация > Документы

1 ... 4 5 6 7 8 9 10 11 ... 27

Приложение 10. Пример решения линейной программы на языке VBA.

Задача 1. Составить алгоритм ипрограмму нахождения площади треугольника по трем его сторонам (будем считать, что длины сторон таковы, что треугольник существует всегда).

Исходными данными в этой задаче являются длины сторон треугольника и их надо будет задавать в процессе работы проекта программы. Обозначим их a, b и c соответственно, а результатом работы программы (выходными данными) будет площадь треугольника, обозначим ее буквой s.

Для вычисления площади треугольника используем формулу Герона

Прежде чем приступить к составлению блок-схемы и программированию, надо определить переменные, которые будут использоваться в программе:

a – длина первой стороны треугольника;

b – длина второй стороны треугольника;

c – длина третьей стороны треугольника;

p – полупериметр треугольника;

S – площадь треугольника.

Блок – схема решения задачи 1

Рисунок 2.Блок – схема решения задачи 1

Программный код задачи 1:

Sub Z1()

Dim a As Integer, b As Integer, c As Integer, p As Single, S As Single

a = Val(InputBox("Введите длину стороны a"))

b = Val(InputBox("Введите длину стороны b"))

c = Val(InputBox("Введите длину стороны c"))

p = (a + b + c) / 2

S = Sqr(p * (p - a) * (p - b) * (p - c))

MsgBox "Площадь треугольника = " + Str(S)

End Sub

Приложение 11. Пример выполнения разветвленной программы на на языке VBA.

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

Дан N – номер месяца.

Требуется вывести сообщение о том, к какому полугодию года относится этот месяц. Разместим исходные и выходные данные на листе 1 табличного процессора Microsoft Excel.

Блок-схема алгоритма решения задачи 2:

Рисунок 3 Блок – схема решения задачи 2

Программный код процедуры задачи 2 будет выглядеть таким образом:

Sub Z2()

Dim N As Integer

N = Cells(2, 1)

If (N > 0) And (N < 13) Then

If (N > 0) And (N <= 6) Then

Cells(2, 2) = "I полугодие"

Else

Cells(2, 2) = "II полугодие"

End If

Else

Cells(2, 2) = "Введите правильно номер месяца"

End If

End Sub

Приложение 12. Пример выполнения циклической программы на на языке VBA.

Задача 3. Вывести на лист Excel таблицу значений функции Y=X³-3X-0.5 на отрезке [-2,4] с шагом H=0,25. Найти сумму отрицательных значений функции, количество положительных значений функции и произведение значений Y, больших ста.

Рассмотрим эту задачу подробно, начиная с постановки задачи. Из условия задачи видно, что начальное значение X равно –2, конечное 5, а шаг равен 0,25. Обозначим исходные данные:

Xn – начальное значение аргумента;

Xk – конечное значение аргумента;

H – шаг, с которым изменяется аргумент;

X – текущее значение аргумента;

Y – значение функции при заданном значении X;

I – счетчик цикла;

S - сумма отрицательных значений функции,

K – количество положительных значений функции,

P - произведение значений функции, значения которых больше ста;

N – количество значений аргумента на заданном отрезке.

Тогда можно вычислить сколько раз надо повторить вычисления, чтобы получить значения функции Y для всех значений X. Очевидно, это можно сделать по формуле .

Пусть на листе Excel заданы исходные данные таким образом:

Рисунок 4. Исходные данные задачи 3

Блок – схема алгоритма задачи 3 показана на рис 6.:

Р

исунок 5. . Блок – схема решения задачи 3

Программный код задачи3:

Sub Z3()

Dim X As Single, Y As Single, Xn As Single, Xk As Single, h As Single

Dim I As Integer, N As Integer, S As Single, K As Integer, P As Single

Xn = Cells(2, 1): Xk = Cells(2, 2): h = Cells(2, 3) ‘Присвоение переменным значений из ячеек _

электронной таблицы

N = (Xk - Xn) / h + 1

S = 0: K = 0: P = 1

X = Xn

For I = 1 To N

Y = X ^ 3 - 3 * X - 0.5

Cells(I + 1, 7) = X: Cells(I + 1, 8) = Y ‘Вывод значений X и Yв ячейки электронной таблицы

If Y < 0 Then S = S + Y

If Y > 0 Then K = K + 1

If Y > 100 Then P = P * Y

X = X + h

Next I

Cells(2, 4) = S: Cells(2, 5) = K: Cells(2, 6) = P

Р

езультат работы программы задачи 3 показан на рис7.

Рисунок 6.Исходные и выходные данные для задачи 3

Задача 4. Составить программу нахождения суммы элементов ряда: 1/1, 1/4, 1/9, …, с заданной точностью E (число Е меньше или равно 1).

Программный код задачи 4

Private Sub Сумма()

Dim E As Single, S As Single, I As Integer

E = Val(Inputbox(“Введите точность”))

I = 1

S = 0

Do While 1 / I ^ 2 >= E

S = S + 1 / I ^ 2

I = I + 1

Loop

Msgbox " Cумма значение Ряда " + Format(S, "0.000")

End Sub

1 ... 4 5 6 7 8 9 10 11 ... 27

Похожие:

	Указатель имен 495 Во второй части исследуются логические теории эпохи феодального общества, в третьей части—логические концепции Нового времени (Декарт,...		Лекции групповых занятий для 11 групп. Глава Архитектура персонального компьютера Модульный принцип позволяет потребителю самому комплектовать нужную ему конфигурацию компьютера и производить при необходимости ее...
	1. Программное обеспечение компьютера – это А вся совокупность программ, хранящихся на всех устройствах долговременной памяти компьютера		Логические компоненты
	Уроки всемирной истории. Древний мир. 5 класс Компакт-диск для компьютера. "Химия, биология, география, экология. Элективный курсы". Компакт-диск дня компьютера. Сетевая версия...		С чего начать диагностику и потом уже ремонт компьютера? Самым первым шагом для инженера по ремонту компьютеров (в дальнейшем просто инженер) будет выяснение неисправности у хозяина компьютера...
	Логические компоненты (1) Микроконтроллер vex arm® Cortex®-based (1) Кабель usb a-a инструменты		План-конспект урока в 8 классе по теме: «Файлы папки» Мы с вами уже прошли тему “Устройство компьютера”. Ответьте мне, пожалуйста, как на устройствах внешней памяти хранится все программное...
	Модуль сопряжения компьютера с линией расширения "Астра-982" Руководство... Руководство по эксплуатации предназначено для изучения принципа работы, правильного использования, хранения и технического обслуживания...		Шуточные логические головоломки с ответами для младших школьников В этих головоломках нет «правильных ответов», поэтому предложены просто некоторые варианты. Поощряется сообразительность и остроумие...
	Учебно-методический комплекс по учебной дисциплине Конструкция персонального... Фгос по специальности спо 230113 Компьютерные системы и комплексы в части освоения основного вида профессиональной деятельности (впд):...		Методы и приёмы: Словесные: вопросы, задания, дискуссии, логические... Муниципальное бюджетное дошкольное образовательное учреждение «Детский сад №2 «Колосок»
	Учебное пособие курс лекций по пм 03 мдк 03. 01 «Основы реаниматологии» «Основы реаниматологии» подготовлено в соответствии с утвержденной программой пм 03 «Оказание доврачебной медицинской помощи при...		Конспект первых лекций по дисциплине “ основы автоматизированного... Основы компьютерного проектирования и моделирования радиоэлектронных средств” – объединены в одну дисциплину под названием “Основы...
	Инструкция по сборке тренажера стр. 5 11. Описание работы компьютера... Описание работы компьютера для расчета нагрузки во воремя занятий стр. 12 13		Образовательная программа дополнительного образования детей «Основы робототехники» Методическое обеспечение дополнительной образовательной программы «Основы робототехники» 12

Руководство, инструкция по применению