Question

Задачу решить двумя способами: с использованием подпрограммы-функции и подпрограммы-процедуры. Обязательно построение блок-схем алгоритмов! 1. Треугольник задан координатами своих вершин. Вычислить площадь треугольника по формуле Герона с использованием подпрограммы нахождения расстояния между двумя точками на координатной плоскости. Полезные формулы: 1. Формула Герона: S=sqrt((p-a)(p-b)(p-c)) , где p=a+b+c/2 (полупериметр треугольника со сторонами a, b и c) 2. Расстояние между двумя точками на координатной плоскости: d=sqrt(sqr(x2-x1)+sqr(y2-y1)) , где (x1, y1) и (x2, y2) – координаты первой и второй точек соответственно.

Answer 1

{1 способ (с функцией)}
Program n1;
function Dlina(x1,y1,x2,y2: integer):real;
var d: real;
begin
d:= sqrt(sqr(y1-y2)+sqr(x1-x2));
Dlina:=d;
end;
var xa,ya,xb,yb,xc,yc: integer;
ab,bc,ca,S,p: real;
begin
writeln ('введите коорд. вершины A ');
readln (xa,ya);
writeln ('введите коорд. вершины B ');
readln (xb,yb);
writeln ('введите коорд. вершины C ');
readln (xc,yc);
ab:=Dlina(xa,ya,xb,yb);
bc:=Dlina(xb,yb,xc,yc);
ca:=Dlina(xc,yc,xa,ya);
p:=(ab+bc+ca)/2;
S:=sqrt(p*(p-ab)*(p-bc)*(p-ca));
writeln('площадь : ',S);
end.

{2 способ(с процедурой)}
program n2;
var x1,x2,x3,y1,y2,y3,s,a,b,c,p:real;
procedure dlina(q,w,e,r:real; var d:real);
begin
d:=sqrt(sqr(q-w)+sqr(e-r));
end;
begin
writeln ('введите коорд. вершины A ');
readln (x1,y1);
writeln ('введите коорд. вершины B ');
readln (x2,y2);
writeln ('введите коорд. вершины C ');
readln (x3,y3);
dlina(x1,x2,y1,y2,a);
dlina(x2,x3,y2,y3,b);
dlina(x3,x1,y3,y1,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('площадь: ',s);
end.

Answer 2

Задача: Вычисление площади треугольника с использованием подпрограммы-функции и подпрограммы-процедуры

Для решения данной задачи, мы можем использовать подпрограмму-функцию для вычисления расстояния между двумя точками на координатной плоскости и подпрограмму-процедуру для вычисления площади треугольника по формуле Герона.

Шаг 1: Создание подпрограммы-функции для вычисления расстояния между двумя точками

Создадим подпрограмму-функцию `distance(x1, y1, x2, y2)`, которая будет принимать координаты двух точек и возвращать расстояние между ними. Используем формулу для вычисления расстояния между двумя точками на координатной плоскости:

def distance(x1, y1, x2, y2):
    return ((x2 - x1)  2 + (y2 - y1)  2) ** 0.5

Шаг 2: Создание подпрограммы-процедуры для вычисления площади треугольника

Создадим подпрограмму-процедуру `calculate_area(a, b, c)`, которая будет принимать длины сторон треугольника и выводить его площадь, используя формулу Герона:

import math

def calculate_area(a, b, c):
    p = (a + b + c) / 2
    area = math.sqrt(p * (p - a) * (p - b) * (p - c))
    print("Площадь треугольника:", area)

Шаг 3: Вычисление площади треугольника с использованием созданных подпрограмм

Теперь, чтобы вычислить площадь треугольника, заданного координатами его вершин, мы можем использовать созданные подпрограммы. Предположим, что у нас есть треугольник с вершинами A, B и C, и их координаты заданы как `(x1, y1)`, `(x2, y2)` и `(x3, y3)` соответственно.

# Вычисляем длины сторон треугольника
side_a = distance(x1, y1, x2, y2)
side_b = distance(x2, y2, x3, y3)
side_c = distance(x3, y3, x1, y1)

# Вычисляем площадь треугольника
calculate_area(side_a, side_b, side_c)

Таким образом, мы сначала вычисляем длины сторон треугольника с помощью подпрограммы-функции `distance()`, а затем передаем эти значения в подпрограмму-процедуру `calculate_area()`, чтобы вычислить и вывести площадь треугольника по формуле Герона.

Блок-схема алгоритма

Ниже приведена блок-схема алгоритма для решения данной задачи:

                                      +---------------------------+
                                      | Заданы вершины треугольника |
                                      +------------+--------------+
                                                   |
                                                   |
                                                   v
                                      +------------+--------------+
                                      | Вычислить длины сторон     |
                                      +------------+--------------+
                                                   |
                                                   |
                                                   v
                                      +------------+--------------+
                                      | Вычислить площадь треугольника |
                                      +------------+--------------+
                                                   |
                                                   |
                                                   v
                                      +------------+--------------+
                                      | Вывести площадь треугольника  |
                                      +---------------------------+

Таким образом, мы использовали подпрограмму-функцию для вычисления расстояния между двумя точками и подпрограмму-процедуру для вычисления площади треугольника по формуле Герона. Эти подпрограммы могут быть вызваны для решения задачи, заданной координатами вершин треугольника.