Нахожденин min значения радиуса шара..., Помогите пожалуйста, что-то совсем не знаю что делать Опции

[goosberry]

Вот условие: найти минимальное значение радиуса шара r (r изменяется от r1 до r2 с шагом k) и соответствующие значения радиуса нижнего основания r3, радиуса верхнего основания r4 и высоты h шарового слоя, для которых объём шарового слоя не меньше объёма прямоугольного параллелепипеда со сторонами t, b и c. Центральный угол нижнего основания шарового слоя a и центральный угол верхнего основания шарового слоя b остаются неизменными. Вычисления выполнить по данным таблицы.

program zadacha;
uses crt;
var r,r1,r2,k,r3,r4,h:real;
begin
     write('r1= ');
     readln (r1);
     write('r2= ');
     readln (r2);
     write('chag k= ');
     readln (k);
     r:=r1;

Сообщение отредактировано: goosberry - 1.04.2009 18:43