c=max(a,b,min(2a,x))+5 Разработайте программу для вычисления значения выражения (basic).

Question

c=max(a,b,min(2a,x))+5
Разработайте программу для вычисления значения выражения (basic).

Answer 1

Microsoft QBasic

DECLARE FUNCTION max# (a#, b#)
DECLARE FUNCTION min# (a#, b#)
INPUT "a=", a#
INPUT "b=", b#
INPUT "x=", c#
c# = max#(max#(a#, b#), min#(2 * a#, x#)) + 5
PRINT "c="; c#

FUNCTION max# (a#, b#)
    IF a# > b# THEN
        max# = a#
    ELSE
        max# = b#
    END IF
END FUNCTION

FUNCTION min# (a#, b#)
    IF a# < b# THEN
        min# = a#
    ELSE
        min# = b#
    END IF
END FUNCTION