Опишите функцию нахождения катета по его гипотенузе и второго катета - Pascal

Узнай цену своей работы

Формулировка задачи:

Опишите функцию нахождения катета по его гипотенузе и второго катета.

Решение задачи: «Опишите функцию нахождения катета по его гипотенузе и второго катета»

textual
Листинг программы 
function katet(c,a:real):real;
begin
katet:=sqrt(c*c-a*a);
end;

Объяснение кода листинга программы

  1. function katet(c,a:real):real; - объявляется функция katet с двумя аргументами c и a типа real, возвращающая значение типа real.
  2. begin - начало тела функции.
  3. katet:=sqrt(c*c-a*a); - переменной katet присваивается значение выражения sqrt(c*c-a*a), что является формулой для нахождения катета по заданной гипотенузе c и второму катету a.
  4. end; - конец тела функции.

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

Оцени полезность:

10   голосов , оценка 4.4 из 5
Похожие ответы