Вычислить, используя процедуру - 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.
Объяснение кода листинга программы
- В данном коде реализована процедура вычисления факториала числа k.
- При вызове процедуры с аргументами 5 и 8, вычисляются значения факториалов для этих чисел и сохраняются в переменных t1 и t2 соответственно.
- Затем вычисляется сумма полученных значений и сохраняется в переменной y.
- Далее вызывается процедура вычисления факториала для чисел 6 и 4, и результат сохраняется в переменных t1 и t2 соответственно.
- Последним шагом, результат вычисления факториала для чисел 6 и 4 добавляется к результату вычисления факториала для чисел 5 и 8, а затем полученное значение делится на результат вычисления факториала для чисел 5 и 8, и выводится на экран.