Процедуры и функции: Определить функцию для расчета гипотенузы прямоугольного треугольника по его катетам - Pascal

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

Периметр фигуры abcd. Определить функцию для расчета гипотенузы прямоугольного треугольника по его катетам

Решение задачи: «Процедуры и функции: Определить функцию для расчета гипотенузы прямоугольного треугольника по его катетам»

Листинг программы

function gi(a,b: real): real;
begin
  gi:=sqrt(a*a+b*b);
end;
 
var
  a,b: real;
begin
  write('Г‚ГўГҐГ¤ГЁГІГҐ Г¤Г«ГЁГ*Г» ГЄГ*ГІГҐГІГ®Гў A ГЁ B: ');
  readln(a,b);
  writeln('ГѓГЁГЇГ®ГІГҐГ*ГіГ§Г* C = ',gi(a,b));
  readln;
end.

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

Определяется функция gi с двумя параметрами типа real и возвращаемым значением типа real.
В функции gi используется функция sqrt для вычисления гипотенузы прямоугольного треугольника по его катетам.
Задаются две переменные a и b типа real.
Вызывается функция gi с аргументами a и b.
Выводится сообщение с запросом ввести значения для a и b.
Введенные значения сохраняются в переменных a и b.
Вычисляется значение функции gi с использованием введенных значений a и b.
Выводится результат вычисления функции gi.
Программа завершается вызовом функции readln для чтения пользовательского ввода.