Microsoft Excel/Visual Basic for Applications в Excel/Переменные и константы. Арифметические и логические выражения: различия между версиями

Содержимое удалено Содержимое добавлено
→‎Задачи: дополнение
→‎Задачи: дополнение
Строка 160:
== Задачи ==
=== Задача 1 ===
С клавиатуры вводится число типа ''Double''. Вычислить [[w:Косинус|косинус]] данного числа в градусах и вывести ответ на экран в виде: <code>Cos <число> градусов = <результат></code>. Например, при вводе числа 60 результат равняется 0.5. Для ввода константы Pi (Пи) воспользуетесь выражением: WorksheetFunction.Pi
 
=== Задача 2 ===
Строка 169:
 
=== Решение задач ===
==== Задача 1 ====
 
{{Hider|
title = Решение |
hidden = 1 |
title-style = text-align: left; |
content-style = text-align: left; |
content =
<source lang=vb>
Sub My1()
Dim X As Double
Dim Res As Double
X = InputBox("Введите значение угла в градусах:")
Res = Cos(X * WorksheetFunction.Pi / 180)
MsgBox ("Cos " & X & " градусов = " & Res)
End Sub
</source>
}}
 
{{BookCat}}