1. Постановка задачи. Иллюминатор корабля имеет форму круга. Будем считать, что сундук...

Question

1. Постановка задачи.

Иллюминатор корабля имеет форму круга. Будем считать, что сундук имеет форму параллелепипеда. Чтобы вытащить сундук, необходимо, чтобы диаметр иллюминатора был больше любой из трех диагоналей поверхности сундука.

2. Математическая модель.
Пусть r – радиус иллюминатора,
a, b, c – размеры сундука,
d1, d2, d3 – диагонали боковых поверхностей сундука
Сундук можно вытаскивать через иллюминатор одной из трех боковых граней, следовательно, достаточно, чтобы диагональ иллюминатора оказалась меньше одной из трех диагоналей сундука, т.е. должно быть истинно хотя бы одно из условий:
ЕСЛИ((......;1;0)
ЕСЛИ((......;1;0)
ЕСЛИ((......;1;0)

Answer 1

Var a,b,c,r,d1,d2,d3:real;
begin
   writeln('Введи радиус иллюминатора и размеры сундука');
   readln(r,a,b,c);
   d1:=sqrt(sqr(a)+sqr(b));
   d2:=sqrt(sqr(a)+sqr(c));
   d3:=sqrt(sqr(b)+sqr(c));
   writeln('Диагонали сундука: d1=', d1,' d2=',d2,' d3=',d3,' Диаметр окна: ',2*r);
   if (d1end.