Составить программу вычисления значения выражения m! - n!/ p!

@Tyrbotronik · Регистрация: 07.11.2022

Author24 — интернет-сервис помощи студентам

Составить программу вычисления значения выражения m! - n!/ p!. Функцию вычисления факториала числа скрыть в модуль

@Cyborg Drone · 30.11.2022, 23:48

Программа:

Pascal

uses
  factorial;
 
var
  m, n, p: integer;
begin
  write('m = ');
  readln(m);
  write('n = ');
  readln(n);
  write('p = ');
  readln(p);
  writeln('m! - n! / p! = ', f(m) - f(n) / f(p):0:3);
  readln
end.

Модуль:

Pascal

unit factorial;
 
interface
 
function f(n: longint): real;
 
implementation
 
function f(n: longint): real;
var
  i: integer;
  t: real;
begin
  t := 1;
  for i := 2 to n do t := t * i;
  f := t
end;
 
end.

@Tyrbotronik 0 / 0 / 0 Регистрация: 07.11.2022 Сообщений: 10
		1
	Составить программу вычисления значения выражения m! - n!/ p! 29.11.2022, 09:22. Показов 282. Ответов 1 Метки нет (Все метки) Составить программу вычисления значения выражения m! - n!/ p!. Функцию вычисления факториала числа скрыть в модуль 0

	30.11.2022, 23:48