Сколько получится пакетов по 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.

Объяснение кода листинга программы

  1. Переменная t инициализируется значением 1.
  2. Вычисляется значение переменной v1 с помощью формулы v1 = π * sqr(40 - t), где sqr - это функция возведения в квадрат.
  3. Вычисляется значение переменной v2 с помощью формулы v2 = π 1600 - π sqr(40 - t).
  4. Сравниваются значения переменных v1 и v2.
  5. Если значение переменной v1 меньше значения переменной v2, то выводится информация о толщине корки, объеме мякоти и объеме корки.
  6. Цикл прерывается командой break.

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

9   голосов , оценка 4.111 из 5
Похожие ответы