Составить программу вычисления значения функци - Pascal ABC

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

Составить программу вычисления значения функции, используя обращение к под программы. Подпрограмму написать: 1. В виде процедуры. 2. В виде функции. * Вид функции z и функций, которые должны исчисляться с помощью подпрограмм, приведены в таблице фунция z:=(x-ln(a))/(sqr(ln(a)))*sin(x-ln(a))/sqr(ln(x)); подпрограмма t:=(5-ln(150))/SQR(ln(5));

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

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

program pr;
 
var
  x, a, z, t: real;
 
function zet(c: real; v: real): real;
var
  n: real;
begin
  n := (c - ln(v)) / (sqr(ln(v))) * sin(c - ln(v)) / sqr(ln(c));
  zet := n;
end;
 
function te(): real;
var
  m: real;
begin
  m := (5 - ln(150)) / SQR(ln(5));
  te := m;
end;
 
begin
  writeln('Введите x');
  readln(x);
  writeln('Введите a');
  readln(a);
  z := zet(x, a);
  writeln('z= ', z);
  t := te();
  writeln('t= ', t);
end.

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

Создается программа на языке Pascal ABC.
Определяются переменные x, a, z, t типа real.
Определяется функция zet(c: real; v: real): real. Вложенная переменная n типа real. Выражение (c - ln(v)) / (sqr(ln(v))) * sin(c - ln(v)) / sqr(ln(c)) вычисляется и присваивается переменной n. Функция zet заканчивает работу и возвращает значение n.
Определяется функция te(): real. Вложенная переменная m типа real. Выражение (5 - ln(150)) / SQR(ln(5)) вычисляется и присваивается переменной m. Функция te заканчивает работу и возвращает значение m.
Запускается цикл выполнения программы.
Пользователю предлагается ввести значение x.
Пользователю предлагается ввести значение a.
Значения x и a сохраняются в переменных x и a соответственно.
Вызывается функция zet(x, a). Результат работы функции сохраняется в переменной z.
Вызывается функция te(). Результат работы функции сохраняется в переменной t.
Выводится значение z.
Выводится значение t.
Программа завершается.