Задание:
ПОМОГИТЕ! СРОЧНО! Известны координаты 3-х точек A (x1,y1) ,B (x2,y2) ,C (x3,y3). Найдите сумму расояний AB+BC. Запишите в программеPASCAL
Решение:
Uses crt; var x1,x2,x3,y1,y2,y3: real; begin cls; write ('Координаты A: '); readln (x1,y1); write ('Координаты B: '); readln (x2,y2); write ('Координаты C: '); readln (x3,y3); write ('Сумма AB+BC=', (sqrt (sqr (x2-x1)+sqr (y2-y1)+(sqrt (sqr (x3-x2)+sqr (y3-y2): 0:2); end.
Знаете другой ответ?