Найти сумму двух наименьших чисел и удвоенное произведения наибольшего с наименьшим - QBasic

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

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

Даны три числа А, В, С. Найти сумму двух наименьших чисел и удвоенное произведения наибольшего с наименьшим.

Решение задачи: «Найти сумму двух наименьших чисел и удвоенное произведения наибольшего с наименьшим»

textual
Листинг программы
  1. CLS
  2. RANDOMIZE TIMER
  3.  
  4. DIM a AS INTEGER
  5. DIM b AS INTEGER
  6. DIM c AS INTEGER
  7.  
  8. a = 50 * RND
  9. b = 50 * RND
  10. c = 50 * RND
  11.  
  12. IF a > b THEN SWAP a, b
  13. IF a > c THEN SWAP a, c
  14. IF b > c THEN SWAP b, c
  15.  
  16. PRINT a; b; c
  17. PRINT "SUMMA ="; a + b
  18. PRINT "2*A*C ="; 2 * a * c
  19. END

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

  1. CLS — очистка экрана
  2. RANDOMIZE TIMER — инициализация генератора случайных чисел
  3. DIM a AS INTEGER — объявление переменной a типа integer
  4. DIM b AS INTEGER — объявление переменной b типа integer
  5. DIM c AS INTEGER — объявление переменной c типа integer
  6. a = 50 * RND — присвоение переменной a случайное число от 0 до 50
  7. b = 50 * RND — присвоение переменной b случайное число от 0 до 50
  8. c = 50 * RND — присвоение переменной c случайное число от 0 до 50
  9. IF a > b THEN SWAP a, b — если a больше b, то поменять их местами
  10. IF a > c THEN SWAP a, c — если a больше c, то поменять их местами
  11. IF b > c THEN SWAP b, c — если b больше c, то поменять их местами
  12. PRINT a; b; c — вывод на экран значений переменных a, b, c
  13. PRINTSUMMA =; a + b — вывод на экран суммы a и b
  14. PRINT2AC =; 2 * a * c — вывод на экран произведения 2 и a, умноженного на c
  15. END — конец программы

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

13   голосов , оценка 3.769 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы