Вычислить, используя процедуру - Turbo Pascal

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

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

Вычислить исспользуя процедуру y= (2*5!+3*8!) / (6!+4!) - Turbo Pascal

Решение задачи: «Вычислить, используя процедуру»

textual
Листинг программы
procedure factorial(k: integer; var p: real);
var
  i: integer;
begin
  p := 1;
  for i := 2 to k do
    p := p * i;
end;
 
var
  t1, t2, y: real;
 
begin
  factorial(5, t1);
  t1 := 2 * t1;
  factorial(8, t2);
  t2 := 2 * t2;
  y := t1 + t2;
  factorial(6, t1);
  factorial(4, t2);
  t1 := t1 + t2;
  y := y / t1;
  writeln(y);
end.

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

  1. В данном коде реализована процедура вычисления факториала числа k.
  2. При вызове процедуры с аргументами 5 и 8, вычисляются значения факториалов для этих чисел и сохраняются в переменных t1 и t2 соответственно.
  3. Затем вычисляется сумма полученных значений и сохраняется в переменной y.
  4. Далее вызывается процедура вычисления факториала для чисел 6 и 4, и результат сохраняется в переменных t1 и t2 соответственно.
  5. Последним шагом, результат вычисления факториала для чисел 6 и 4 добавляется к результату вычисления факториала для чисел 5 и 8, а затем полученное значение делится на результат вычисления факториала для чисел 5 и 8, и выводится на экран.

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

14   голосов , оценка 4.286 из 5