Прошу,умоляю! составить программу на языке програмирования паскаль. 1) пойдет ли сундук с соровищами со сторонами а,в,с в иллюминатор затонувшего корабля диаметром д. 2) имеется треугольник с координатами(0,0)(5,0)(0,5). попадает ли точка а(х,у) внутрь либо на границы этого треугольника. ответ вывести в форме да или нет.

239

275

Посмотреть ответы 2

Ответы на вопрос:

Котенька0209

Информатика

4,8(99 оценок)

Var a,b,c,d,x,y: real; begin write('введите размеры сторон сундука -> '); readln(a,b,c); write('введите диаметр иллюминатора -> '); readln(d); if a< b then begin x: =a; if b< c then y: =b else y: =c end else begin x: =b; if a< c then y: =a else y: =c end; if (sqr(x)+sqr(y)< sqr(d)) then writeln('сундук можно вытащить') else writeln('сундук нельзя вытащить') end. тестовое решение: введите размеры сторон сундука -> 3 5 3.99 введите диаметр иллюминатора -> 5 сундук можно вытащить ********************** условие попадания точки a(x,y) внутрь треугольника описывается как var x,y: real; begin write('введите координаты x и y точки -> '); readln(x,y); if (x> =0) and (y> =0) and (y< =5-x) then writeln('да') else writeln('нет') end. тестовое решение: введите координаты x и y точки -> 3 2.5 нет введите координаты x и y точки -> 2.1 2.8 да