Вычислить значение выражения - Pascal (80373)

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

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

Как это сделать на паскале? Дано выражение где m = ln cos
π
r, k - целое число, r, t, m - вещественные числа. Вычислить значение выражения при а) r = 0.07; k = 6 б) r = 0.63; k = -15

Решение задачи: «Вычислить значение выражения»

textual
Листинг программы
function T(k:integer;r:real):real;
var m,x:real;
begin
m:=ln(cos(pi*r));
x:=sqr(cos(pi*r));
T:=sqrt((x+k*0.01)/(x+abs(m/k)));
end;
begin
writeln('r=0.07 k=6 t=',T(6,0.07):0:2);
writeln('r=0.33 k=-15 t=',T(-15,0.33):0:2);
end.

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

  1. Объявление функции с параметрами:
    • Имя функции: T
    • Параметр k типа integer
    • Параметр r типа real
  2. Определение локальных переменных внутри функции:
    • m типа real
    • x типа real
  3. Внутри функции значение m вычисляется как натуральный логарифм от косинуса числа pi, умноженного на r.
  4. Внутри функции значение x вычисляется как квадрат косинуса числа pi, умноженного на r.
  5. Функция возвращает результат вычисления квадратного корня из дроби, где числитель - это сумма x и произведения k и 0.01, а знаменатель - это сумма x и модуля от деления m на k.
  6. В блоке main:
    • Вызов функции T с параметрами k=6 и r=0.07. Результат выводится с точностью до двух знаков после запятой.
    • Вызов функции T с параметрами k=-15 и r=0.33. Результат выводится с точностью до двух знаков после запятой. Этот код выглядит как Pascal, он определяет функцию T, которая вычисляет значение выражения по заданной формуле и выводит результаты для двух наборов параметров.

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

15   голосов , оценка 4.133 из 5