Решаем задачи Абрамян на Паскале. Begin 21

Begin21. Даны координаты трех вершин треугольника: $(x_1, y_1)$ , $(x_2, y_2)$ , $(x_3, y_3)$ . Найти его периметр и площадь, используя формулу для расстояния между двумя точками на плоскости (см. задание Begin20. Для нахождения площади треугольника со сторонами $a$ , $b$ , $c$ использовать формулу Герона:
$S =\sqrt{p*(p-a)*(p-b)*(p-c)}$ , где $p=(a+b+c)/2$ — полупериметр.

Решение:

$$P=a+b+c

program Begin21;

var

x1,y1,x2,y2,x3,y3,a,b,c,P,pp,S: Real;{pp-полупериметр}

begin

Writeln('Введите значение координат певой точки: ');

Write('Введите значение x: ');

Readln(x1);

Write('Введите значение y: ');

Readln(y1);

Writeln('Введите значение координат второй точки: ');

Write('Введите значение x: ');

Readln(x2);

Write('Введите значение y: ');

Readln(y2);

Writeln('Введите значение координат третьей точки: ');

Write('Введите значение x: ');

Readln(x3);

Write('Введите значение y: ');

Readln(y3);

a:=sqrt(sqr(x1-x2)+sqr(y1-y2));

b:=sqrt(sqr(x2-x3)+sqr(y2-y3));

c:=sqrt(sqr(x3-x1)+sqr(y3-y1));

P:=a+b+c;

Writeln('Периметр треугольника равен: ',P);

pp:=(a+b+c)/2;

S:=Sqrt(pp*(pp-a)*(pp-b)*(pp-c));

Writeln('Площадь треугольника равен: ',S);

end.

Другие задачи из раздела Begin можно посмотреть здесь.

Комментарии 1

program Begin21;//pabc.net

var LenFunc: Func2<(real, real), (real, real), real>

:= (a, b)-> Sqrt(Sqr(a[0] - b[0]) + Sqr(a[1] - b[1])).Round(6);

Println('Введите координаты точек треугольника:');

var (a, b, c) := ((ReadReal('x1 ='), ReadReal('y1 =')),//tuple of tuples

(ReadReal('x2 ='), ReadReal('y2 =')),

(ReadReal('x3 ='), ReadReal('y3 =')));

var (la, lb, lc) := (LenFunc(a, b), LenFunc(b, c), LenFunc(a, c));

var p := (la + lb + lc) / 2;

var SFunc: Func3<real, real, real, real>

:= (a, b, c)-> Sqrt(p * (p - a) * (p - b) * (p - c));//a,b,c - формальные параметры

Write('Периметр треугольника P = ',la + lb + lc, Newline,

'Площадь треугольника S = ',SFunc(la, lb, lc):0:6)

Ответить

Решаем задачи Абрамян на Паскале. Begin 21

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ