Задание 5 Параграф 4.3 ГДЗ Босова 8 класс 2023 (Информатика)

Ниже вариант решения задания из учебника Босова, Босова 8 класс, Бином:

5. Известны координаты вершин А, В, С треугольника. Разработайте и отладьте программу, вычисляющую площадь этого треугольника. Для проверки правильности программы используйте тест:

Входные данные

ха=2

уа=1

xb=6

yb=5

хс=10

yc =1

Выходные данные

s=16.0

Надо определить длины сторон, а затем, по формуле Герона подсчитать площадь.

var

xa, ya, xb, yb, xc, yc: integer;

a, b, c, p, s: real;

begin

write(taskВведи через пробел координаты вершины А > task);

readln(xa, ya);

write(taskВведи через пробел координаты вершины B > task);

readln(xb, yb);

write(taskВведи через пробел координаты вершины C > task);

readln(xc,yc);

a := sqrt(sqr(xa - xb) + sqr(ya - yb));

b := sqrt(sqr(xb - xc) + sqr(yb - yc));

c := sqrt(sqr(xa - xc) + sqr(ya - yc));

if((a + b) > c) and ((b + c) > a) and ((a + c) > b) then

begin

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

s := sqrt(p * (p - a) * (p - b) * (p - c));

writeln(tasks=task, s:4:1)

end

else writeln(taskТреугольник не существуетtask)

end.

Окно вывода:

координаты вершины А: 2 1

координаты вершины B: 6 5

координаты вершины C: 10 1

s=16.0