Задачи вида "Развилка" Часть 2 - QBasic

Формулировка задачи:

Здравствуйте, это продолжение моей прошлой темы Задачи вида "Развилка" (Текстовые задачи) , пожалуйста помогите написать проги на решение задач: Задача №1 Даны три числа а, b, с. Определить, какое из них равно d. Если ни одно не равно d, то найти max(d — а, d —b, d —с). Задача №2 Дан круг радиуса R. Определить, поместится ли правильный треугольник со стороной а в этом круге. Задача №3 В ЭВМ поступают результаты соревнований по плаванию для трех спортсменов. Составить программу, которая выбирает лучший результат и выводит его на экран с сообщением, что это результат победителя заплыва. P.S. Задач по теме "Развилка" хватит еще на одну тему.

Решение задачи: «Задачи вида "Развилка" Часть 2»

Листинг программы

DECLARE FUNCTION MAX! (a!, b!, c!)
CLS
INPUT "A,B,C,D = "; a, b, c, d
 
SELECT CASE d
   CASE a: PRINT "A = D"
   CASE b: PRINT "B = D"
   CASE c: PRINT "C = D"
   CASE ELSE: PRINT "NO"
END SELECT
PRINT
PRINT "MAX ="; MAX(d - a, d - b, d - c)
END
 
FUNCTION MAX (a, b, c)
   IF a > b AND a > c THEN MAX = a
   IF b > a AND b > c THEN MAX = b
   IF c > a AND c > b THEN MAX = c
END FUNCTION

Объяснение кода листинга программы

DECLARE FUNCTION MAX! (a!, b!, c!) - объявление функции с тремя позиционными параметрами a, b, c.
CLS - очистка экрана перед выводом.
INPUT A,B,C,D =; a, b, c, d - ввод четырех чисел a, b, c, d с запросом ввода.
SELECT CASE d - начало условного оператора CASE для переменной d.
CASE a: PRINT A = D - вывод сообщения, если значение переменной d равно a.
CASE b: PRINT B = D - вывод сообщения, если значение переменной d равно b.
CASE c: PRINT C = D - вывод сообщения, если значение переменной d равно c.
CASE ELSE: PRINT NO - вывод сообщения, если ни одно из предыдущих условий не выполнено.
END SELECT - конец условного оператора CASE.
PRINT MAX =; MAX(d - a, d - b, d - c) - вывод значения функции MAX с тремя аргументами (d-a, d-b, d-c).
END - конец программы.
FUNCTION MAX (a, b, c) - определение функции MAX с тремя аргументами a, b, c.
IF a > b AND a > c THEN MAX = a - если a больше b и a больше c, то функция MAX принимает значение a.
IF b > a AND b > c THEN MAX = b - если b больше a и b больше c, то функция MAX принимает значение b.
IF c > a AND c > b THEN MAX = c - если c больше a и c больше b, то функция MAX принимает значение c.
END FUNCTION - конец определения функции MAX.