Рекомендации по решению дз и задачи 2

Задача 2

Описать процедуру нахождения по заданной длине стороны треугольника и величинам двух прилежащих углов длин остальных сторон треугольника и величины третьего угла.

Решение

По известным двум углам треугольника и стороне между ними можно найти остальные стороны, используя теорему синусов: отношение синусов углов треугольника к длинам противолежащих сторон равны между собой. Для треугольника ABC получаем:

sin A / BC = sin B / AC = sin C / AB.

Отсюда AC = (sin B * AB) / sin C,

BC = (sin A * AB) / sin C.

Если известны два угла треугольника, то третий угол легко вычисляется, учитывая, что сумма углов треугольника равна 180 градусам.

В Pascal функция sin() принимает угол выраженный в радианах. Чтобы перевести градусы в радианы нужно воспользоваться формулой:

rad = Угол * pi / 180.

Решение ДЗ

Написать функцию для обмена значений двух переменных

var

    k, l: integer;

procedure exchange (var a,b: integer);

    var c: integer;

    begin

        if a > b then begin

            c := a;

            a := b;

            b := c;

        end;

    end;

begin

    writeln ('Введите два числа: ');

    readln (k, l);

    exchange (k, l);

    writeln ('k = ', k,'; l = ', l);

readln

end.