• 
  • 30 December 2020
  Информатика
  • Автор: Bronzor1

  

  Срочно, помогите пожалуйста.
  1) Напишите пожалуйста программу в Паскале ,которая бы содержала и функцию и процедуру

• 
  • 30 December 2020
  • Ответ оставил: jdjfjfufjrjdjfj

  На основе подпрограммы факториала вычислить число сочетаний Cnm из N элементов по M, использовав формулу: Сnm = N!/((N-M)!*M!). Реализовать 2 варианта решения - c процедурой и с функцией.
  На голосовании 6 лет назад
  Вариант 1(на основе функции)
  Program zd;
  var N,M:integer;
  function Fact(x:integer):longint;
  begin
  if x=1 then Fact:=1
  else fact:=x*fact(x-1);
  end;
  begin
  readln(N,M);
  write('N!/((N-M)!*M!)=',Fact(N)div(Fact(N-M)*Fact(M) ));
  end.
  2
  Функция Cnm
  program Cnm;
  var n,m:integer;
  function factorial(n: Byte): word;
  Begin
  if n=0 then factorial:=1
  else factorial:=n*factorial(n-1);
  End;
  Begin
  read(n,m);
  if n>m then writeln(factorial(n) div factorial(n-m)*factorial(m))
  else write('ERROR. n must be > than m');
  
  End.
  можете сделать лучше

  0
• 
  • 30 December 2020
  • Ответ оставил: lingvini2013

  procedure foo(str: string);

  
  

  begin

  
  

  writeln(str);

  end;

  function foo1(str: string): string;

  begin

  foo1:= str;

  end;

  begin

  foo('I am a procedure');

  n:= foo1('I am a function');

  writeln(n);

  end.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (24.12.2025) наш сайт содержит 109576 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы