Найти максимальный объём коробки

@tnushk · Регистрация: 01.10.2012

Студворк — интернет-сервис помощи студентам

Помогите, пожалуйста, сделать так, чтобы проверка стороны квадрата(высоты коробки) начиналась с числа на разряд меньшего стороны листа, т.е., если сторона листа = 0,7, то проверка шла с 0,07

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

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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

@Казанский · 01.10.2012, 12:17

А что, взять производную dV/di и найти экстремум - не судьба?

QBasic/QuickBASIC
1
stkv = (a + b - SQR(a ^ 2 - a * b + b ^ 2)) / 6

@tnushk · 01.10.2012, 13:53 **[ТС]**

Спасибо)) Но теперь получается следующее:

@Казанский · 01.10.2012, 14:21

Я про то, что цикл вообще не нужен:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
m10:  INPUT "Введите сторону листа А = ", a
INPUT "Введите сторону листа B = ", b
IF a <= 0 OR b <= 0 THEN
  PRINT "С данными значениями коробка не получится"
  GOTO m10
END IF
stkv = (a + b - SQR(a ^ 2 - a * b + b ^ 2)) / 6
max = (a - 2 * stkv) * (b - 2 * stkv) * stkv
PRINT "max объём коробки = ", max
PRINT "Сторона квадрата = ", stkv

@tnushk · 01.10.2012, 15:22 **[ТС]**

Спасибо! Это отличный вариант, но мне нужен цикл, т.к. необходимо из нескольких вариантов выбрать оптимальный

@Казанский · 01.10.2012, 15:34

Ну тогда

QBasic/QuickBASIC
1
2
3
IF a <= b THEN n = a / 2 ELSE n = b / 2
max = 0
FOR i = n / 10 TO n STEP n / 10

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@tnushk 0 / 0 / 0 Регистрация: 01.10.2012 Сообщений: 12
	01.10.2012, 13:53 [ТС]
	Спасибо)) Но теперь получается следующее: Миниатюры 0

@tnushk 0 / 0 / 0 Регистрация: 01.10.2012 Сообщений: 12
	01.10.2012, 15:22 [ТС]
	Спасибо! Это отличный вариант, но мне нужен цикл, т.к. необходимо из нескольких вариантов выбрать оптимальный 0