Найти сумму двух наименьших чисел и удвоенное произведения наибольшего с наименьшим - QBasic
Формулировка задачи:
Даны три числа А, В, С. Найти сумму двух наименьших чисел и удвоенное произведения наибольшего с наименьшим.
Решение задачи: «Найти сумму двух наименьших чисел и удвоенное произведения наибольшего с наименьшим»
textual
Листинг программы
- CLS
- RANDOMIZE TIMER
- DIM a AS INTEGER
- DIM b AS INTEGER
- DIM c AS INTEGER
- a = 50 * RND
- b = 50 * RND
- c = 50 * RND
- IF a > b THEN SWAP a, b
- IF a > c THEN SWAP a, c
- IF b > c THEN SWAP b, c
- PRINT a; b; c
- PRINT "SUMMA ="; a + b
- PRINT "2*A*C ="; 2 * a * c
- END
Объяснение кода листинга программы
CLS
— очистка экранаRANDOMIZE TIMER
— инициализация генератора случайных чиселDIM a AS INTEGER
— объявление переменнойa
типа integerDIM b AS INTEGER
— объявление переменнойb
типа integerDIM c AS INTEGER
— объявление переменнойc
типа integera = 50 * RND
— присвоение переменнойa
случайное число от 0 до 50b = 50 * RND
— присвоение переменнойb
случайное число от 0 до 50c = 50 * RND
— присвоение переменнойc
случайное число от 0 до 50IF a > b THEN SWAP a, b
— еслиa
большеb
, то поменять их местамиIF a > c THEN SWAP a, c
— еслиa
большеc
, то поменять их местамиIF b > c THEN SWAP b, c
— еслиb
большеc
, то поменять их местамиPRINT a; b; c
— вывод на экран значений переменныхa
,b
,c
PRINT
SUMMA =; a + b
— вывод на экран суммыa
иb
PRINT
2AC =; 2 * a * c
— вывод на экран произведения 2 иa
, умноженного наc
END
— конец программы
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д