Найти максимальный объём коробки - QBasic
Формулировка задачи:
Помогите, пожалуйста, сделать так, чтобы проверка стороны квадрата(высоты коробки) начиналась с числа на разряд меньшего стороны листа, т.е., если сторона листа = 0,7, то проверка шла с 0,07
Задача: Имеется лист бумаги со сторонами a*b. Из листа делается коробка следующим образом: по углам листа вырезается четыре квадрата и коробка склеивается по швам. Какова должна быть сторона квадрата, вырезанного из листа, чтобы коробка имела наибольшую вместимость.
Листинг программы
- m10: INPUT "Введите сторону листа А = ", a
- INPUT " Введите сторону листа B = ", b
- IF a<=0 OR b<=0 THEN
- PRINT «С данными значениями коробка не получится»
- GOTO m10
- END IF
- IF a <= b THEN n = INT(a / 2) ELSE n = INT(b / 2)
- max = 0
- FOR i = 1 TO n
- V = (a - 2 * i) * (b - 2 * i) * i
- IF V > max THEN
- max = V
- stkv = i
- END IF
- NEXT
- PRINT «max объём коробки = », max
- PRINT «Сторона квадрата = ", stkv
Решение задачи: «Найти максимальный объём коробки»
textual
Листинг программы
- IF a <= b THEN n = a / 2 ELSE n = b / 2
- max = 0
- FOR i = n / 10 TO n STEP n / 10
Объяснение кода листинга программы
- Проверяется условие: если переменная
a
меньше или равна переменнойb
, то переменнаяn
присваивается значение переменнойa
деленное на 2, иначе переменнаяn
присваивается значение переменнойb
деленное на 2. - Инициализируется переменная
max
значением 0. - Запускается цикл
FOR
, который начинается с переменнойi
равнойn
деленное на 10 и выполняется до тех пор, пока значение переменнойi
не станет больше или равноn
. Шаг цикла равен значению переменнойn
деленное на 10.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д