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

dazacyhko dazacyhko    3   18.07.2019 07:00    5

Ответы
shulgavitaliy1ozo6g1 shulgavitaliy1ozo6g1  03.10.2020 07:04
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 (d1<r*2)or(d2<r*2)or(d3<r*2) then writeln('Сундук пройдёт') else writeln('Сундук не пройдёт');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика