Question

Составить алгоритм и написать решение задачи на Паскале: Три точки заданы своими координатами. Найти длины сторон треугольника и его площадь.

Answer 1

Program n1;
var: x1, y1, x2, y2, x3, y3, S, p, a, b, c: real;
begin
readln(x1,x2,x3,y1,y2,y3);
a=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
b=sqrt((x2-x3)*(x2-x3)+(y2-y3)*(y2-y3));
c=sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1));
p=0.5*(a+b+c);
S=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(S);
writeln(a,' ',b,' ',c);
end.

Answer 2

Алгоритм:

1. Ввод координат трех точек A(x1, y1), B(x2, y2), C(x3, y3). 2. Вычисление длин сторон треугольника по формуле: AB = sqrt((x2 - x1)^2 + (y2 - y1)^2), BC = sqrt((x3 - x2)^2 + (y3 - y2)^2), CA = sqrt((x1 - x3)^2 + (y1 - y3)^2). 3. Вычисление полупериметра треугольника по формуле: p = (AB + BC + CA) / 2. 4. Вычисление площади треугольника по формуле Герона: S = sqrt(p * (p - AB) * (p - BC) * (p - CA)). 5. Вывод длин сторон треугольника и его площади.

Пример решения задачи на Pascal:

program Triangle; var x1, y1, x2, y2, x3, y3: real; AB, BC, CA, p, S: real; begin writeln('Введите координаты точки A (x1, y1): '); readln(x1, y1); writeln('Введите координаты точки B (x2, y2): '); readln(x2, y2); writeln('Введите координаты точки C (x3, y3): '); readln(x3, y3);

AB := sqrt(sqr(x2 - x1) + sqr(y2 - y1)); BC := sqrt(sqr(x3 - x2) + sqr(y3 - y2)); CA := sqrt(sqr(x1 - x3) + sqr(y1 - y3));

p := (AB + BC + CA) / 2; S := sqrt(p * (p - AB) * (p - BC) * (p - CA));

writeln('Длины сторон треугольника: AB = ', AB:0:2, ', BC = ', BC:0:2, ', CA = ', CA:0:2); writeln('Площадь треугольника: S = ', S:0:2); end.

После ввода координат точек A, B и C, программа вычислит длины сторон треугольника и его площадь, и выведет результат на экран.