Решить в паскале. даны координаты вершин четырехугольника abсв. найти сумму длин его диагоналей. данные для ввода: a(0,1), b(2,5), c(4,8), d(2,0).

209

240

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

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

казан2

Информатика

4,4(57 оценок)

Function l(x1,y1,x2,y2: real): real; { расстояние между парой точек } begin l: =sqrt(sqr(x2-x1)+sqr(y2-y1)) end; var ax,ay,bx,by,cx,cy,dx,dy: real; begin write('введите через пробел координаты точки a(x,y): '); read(ax,ay); write('введите через пробел координаты точки b(x,y): '); read(bx,by); write('введите через пробел координаты точки c(x,y): '); read(cx,cy); write('введите через пробел координаты точки d(x,y): '); read(dx,dy); write('сумма длин диагоналей: ',l(ax,ay,cx,cy)+l(bx,by,dx,dy): 0: 3) end. результат выполнения программы: введите через пробел координаты точки a(x,y): 0 1 введите через пробел координаты точки b(x,y): 2 5 введите через пробел координаты точки c(x,y): 4 8 введите через пробел координаты точки d(x,y): 2 0 сумма длин диагоналей: 13.0622