End Sub. Вывод площади в окне сообщения

Вывод площади в окне сообщения

Вывод полупериметра в окне сообщения

Вычисление площади по формуле Герона

Вывод результата в окне сообщения

Вычисление площади по основанию и высоте

Ввод исходных данных

a = 4.6: b = 11.7: c = 8.7: h = 3

s1 = 1 / 2 * b * h

MsgBox «s1=«& s1

p = (a + b + c) / 2

MsgBox «p=«& p

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

MsgBox «s2=«& s2

В данной программе данные вводятся непосредственно в программе, а результаты выдаются в окнах сообщений.

1. Запустить программу на выполнение, установив курсор в любом месте процедуры prog1() и нажав кнопку на панели Visual Basic. Проверить результаты вычислений. Сохранить рабочую книгу.
2. Скопировать текст программы prog1() после оператора End Sub.
3. Изменить название процедуры на prog2(). Внести соответствующие изменения в текст программы так, чтобы ввод исходных данных производился с помощью диалога (см. лекцию, функция InputBox). (Внимание! Во избежание ошибок, связанных с различными типами данных в Basic, следует использовать функцию Val в InputBox. Например, a = Val (InputBox(«введите а», «Исходные данные»)). Указанная функция позволяет преобразовать введенное в окно диалога число в формат вещественного числа).
4. Запустить prog2() на решение и проверить результаты.
5. Аналогично предыдущему заданию получить еще одну копию текста программы и назвать ее prog3().
6. Самостоятельно внести соответствующие изменения в текст программы с учетом требования, что исходные данные вводятся из соответствующих ячеек таблицы, и вывод результатов производится в ячейки таблицы F2:F4. Запустить программу на решение.

Лабораторная работа № 23. Программирование разветвляющихся вычислительных процессов

Цель работы: освоение приемов программирования разветвляющихся вычислительных процессов.

Для реализации алгоритмов разветвляющейся структуры в программе используется оператор условного перехода, который может иметь следующий синтаксис:

1) If условие Then оператор1 Else оператор2

Оператор1 выполняется, если условие истинно, в противном случае выполняется оператор2.

2) If условие

Дата добавления: 2014-12-27