Имеется лист бумаги, сделать из него коробку - QBasic

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

Имеется лист бумаги со сторонами а и b. Из листа делается коробка следующим образом: по углам листа вырезается четыре квадрата и коробка склеивается по швам. Какова должна быть сторона квадрата вырезанного из листа, чтобы коробка имела наибольшую вместимость. Помогите плз...

Решение задачи: «Имеется лист бумаги, сделать из него коробку»

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

                            INPUT "a=", a
INPUT "b=", b
IF a < b THEN n = INT(a / 2) ELSE n = INT(b / 2)
max = 0
FOR i = 1 TO n
c = (a - 2 * i) * (b - 2 * i) * i
PRINT i, c
IF c > max THEN
max = c
ind = i
END IF
NEXT
PRINT "max c= ", max, "ind=", ind
                        

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

8 голосов , оценка 4.5 из 5

Похожие ответы