Сколько получится пакетов по 3кг и по 5кг, если масса тех и других оказалась одинаковой. - Pascal ABC
Формулировка задачи:
1. Товар расфасовали в 24 пакета по 3кг и по 5кг. Сколько получится пакетов по 3кг и по 5кг, если масса тех и других оказалась одинаковой.
2. Радиус апельсина 40мм при какой толщине корки объем мякоти станет равен(меньше) объема корки.
Надо использовать цикл
for to do
.Заранее спасибо! Огромное!
Решение задачи: «Сколько получится пакетов по 3кг и по 5кг, если масса тех и других оказалась одинаковой.»
textual
Листинг программы
var t:integer; v1,v2:real; begin writeln(' '); for t:=1 to 40 do begin v1:=pi*sqr(40-t); v2:=pi*1600-pi*sqr(40-t); if v1<=v2 then begin writeln('Толщина корки=',t,' объем мякоти=',v1:0:2,' объем корки=',v2:0:2); break; end; end; end.
Объяснение кода листинга программы
- Переменная t инициализируется значением 1.
- Вычисляется значение переменной v1 с помощью формулы v1 = π * sqr(40 - t), где sqr - это функция возведения в квадрат.
- Вычисляется значение переменной v2 с помощью формулы v2 = π 1600 - π sqr(40 - t).
- Сравниваются значения переменных v1 и v2.
- Если значение переменной v1 меньше значения переменной v2, то выводится информация о толщине корки, объеме мякоти и объеме корки.
- Цикл прерывается командой break.