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

Узнай цену своей работы

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

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

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

textual
Листинг программы
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

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

  1. DECLARE FUNCTION MAX! (a!, b!, c!) - объявление функции с тремя позиционными параметрами a, b, c.
  2. CLS - очистка экрана перед выводом.
  3. INPUT A,B,C,D =; a, b, c, d - ввод четырех чисел a, b, c, d с запросом ввода.
  4. SELECT CASE d - начало условного оператора CASE для переменной d.
  5. CASE a: PRINT A = D - вывод сообщения, если значение переменной d равно a.
  6. CASE b: PRINT B = D - вывод сообщения, если значение переменной d равно b.
  7. CASE c: PRINT C = D - вывод сообщения, если значение переменной d равно c.
  8. CASE ELSE: PRINT NO - вывод сообщения, если ни одно из предыдущих условий не выполнено.
  9. END SELECT - конец условного оператора CASE.
  10. PRINT MAX =; MAX(d - a, d - b, d - c) - вывод значения функции MAX с тремя аргументами (d-a, d-b, d-c).
  11. END - конец программы.
  12. FUNCTION MAX (a, b, c) - определение функции MAX с тремя аргументами a, b, c.
  13. IF a > b AND a > c THEN MAX = a - если a больше b и a больше c, то функция MAX принимает значение a.
  14. IF b > a AND b > c THEN MAX = b - если b больше a и b больше c, то функция MAX принимает значение b.
  15. IF c > a AND c > b THEN MAX = c - если c больше a и c больше b, то функция MAX принимает значение c.
  16. END FUNCTION - конец определения функции MAX.

Оцени полезность:

7   голосов , оценка 4 из 5
Похожие ответы