Question

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

Answer 1

На основе подпрограммы факториала вычислить число сочетаний 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.
можете сделать лучше

Answer 2

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.

Answer 3

Конечно! Вот пример программы на Паскале, которая содержит функцию и процедуру:

pascalCopy code
program FunctionAndProcedure;

uses
  crt;

var
  number: integer;

// Процедура, которая выводит приветствие на экран
procedure Greet;
begin
  writeln('Привет! Я процедура в программе.');
end;

// Функция, которая возвращает квадрат числа
function Square(num: integer): integer;
begin
  Square := num * num;
end;

begin
  clrscr;
  
  Greet;  // Вызов процедуры для вывода приветствия
  
  write('Введите число: ');
  readln(number);
  
  writeln('Квадрат числа ', number, ' равен ', Square(number));  // Вызов функции для расчета квадрата числа
  
  readln;
end.

В этой программе есть процедура Greet, которая выводит приветствие на экран, и функция Square, которая принимает число и возвращает его квадрат. В основной части программы происходит вызов процедуры и функции для демонстрации их работы.

Примечание: Проверьте, чтобы ваша среда разработки или компилятор поддерживали стандартный синтаксис Паскаля.