https://pb.mybb.ru/ Форум по программированию ru-ru Wed, 16 Sep 2026 01:07:05 +0300 MyBB/mybb.ru https://pb.mybb.ru/viewtopic.php?pid=7#p7 <div class="custom_tag custom_tag_codex" lang="purebasic"><p>; TODO: Для тестов. Простейший калькулятор<br />Enumeration<br />&#160; #Op_Add<br />&#160; #Op_Substract<br />&#160; #Op_Multiply<br />&#160; #Op_Divide<br />EndEnumeration</p> <p>Procedure.s Calculate( operation.a, num1.d, num2.d )<br />&#160; Protected result.d<br />&#160; <br />&#160; Select operation<br />&#160; &#160; Case #Op_Add<br />&#160; &#160; &#160; result = num1 + num2<br />&#160; &#160; Case #Op_Substract<br />&#160; &#160; &#160; result = num1 - num2<br />&#160; &#160; Case #Op_Multiply<br />&#160; &#160; &#160; result = num1 * num2<br />&#160; &#160; Case #Op_Divide<br />&#160; &#160; &#160; If num2 = 0<br />&#160; &#160; &#160; &#160; ProcedureReturn &quot;Error: Division by zero&quot;<br />&#160; &#160; &#160; EndIf<br />&#160; &#160; &#160; result = num1 / num2<br />&#160; &#160; Default<br />&#160; &#160; &#160; ProcedureReturn &quot;Invalid operation&quot;<br />&#160; EndSelect<br />&#160; <br />&#160; ProcedureReturn StrD(result) <br />EndProcedure</p> <p>; Примеры использования калькулятора (вывод в отладочное окно IDE)<br />Debug Calculate( #Op_Add, 5, 3 )&#160; &#160; &#160; &#160;; Результат: 8<br />Debug Calculate( #Op_Substract, 5, 3 ) ; Результат: 2<br />Debug Calculate( #Op_Multiply, 5, 3 )&#160; ; Результат: 15<br />Debug Calculate( #Op_Divide, 6, 3 )&#160; &#160; ; Результат: 2<br />Debug Calculate( #Op_Divide, 5, 2 )&#160; &#160; ; Результат: 2.5 (проверка дробей)</p></div> mybb@mybb.ru (Михаил) Wed, 16 Sep 2026 01:07:05 +0300 https://pb.mybb.ru/viewtopic.php?pid=7#p7