Использование подпрограммы функции - Pascal ABC

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

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

Найти значение выражения , а оператор - функция имеет вид sin(uv)+e^-pv/w^2. Мы создаем подпрограмму - функцию, зависящую от одного формального параметра u,которая вычисляет f=sin(uv)+e^-pv/w^2, а затем в теле основной программы ищем значение выражения в виде z:=f(a)*1/f(b).

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

textual
Листинг программы
function f(u, v, p, w: real): real;
begin
  f := sin(u * v) + exp(-p * v) / w / w
end;
 
var
  a, b, x, y, z: real;
 
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  z := f(b, x, a, y) / (2 - f(a, y, b, x));
  write('z = ', z)
end.

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

Список элементов кода:

  1. Объявление функции f(u, v, p, w: real): real;
  2. Определение функции f(u, v, p, w: real): real;
  3. Ввод переменных a, b, x, y, z: real;
  4. Ввод значения переменной a;
  5. Ввод значения переменной b;
  6. Ввод значения переменной x;
  7. Ввод значения переменной y;
  8. Вычисление значения переменной z;
  9. Вывод значения переменной z. Код выполняет следующие действия:
  10. Функция f(u, v, p, w: real): real; объявляет функцию с четырьмя аргументами типа real и возвращаемым значением типа real.
  11. Функция f(u, v, p, w: real): real; определяет функцию с четырьмя аргументами типа real и возвращаемым значением типа real.
  12. Переменные a, b, x, y, z: real; объявляют пять переменных типа real.
  13. Команды write('a = '); и readln(a); выводят сообщение и считывают значение переменной a.
  14. Аналогично, для переменных b, x, y.
  15. Переменная z вычисляется как результат деления значения функции f(b, x, a, y) на значение выражения 2 - f(a, y, b, x).
  16. Команда write('z = ', z) выводит сообщение и значение переменной z.

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

6   голосов , оценка 3.5 из 5