Решить на Pascal с использованием подпрограммы function

12.01.2010, 12:14. **Показов** 1211. **Ответов** 2

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

Помогите пожалуйста.. Уже все мозги вынес, не могу ничего придумать..

Надо написать программу на pascal и применить функцию для вычисления (решить с помощью function):

m(n)=((n-2)(n-1))/6, если n>9,
m(n)=exp((9-1)*ln(2)), если 3<n<9,
m(n)=1, если n=9,
m(n)=(9-n)!, если 0<n<=3.

@Inadequate · 12.01.2010, 13:04

Pascal

function F(n:real):real;
var
  temp,i:longint;
begin
  if n>9 then
    F:=(sqr(n)-3*n+2)/6
  else
    if (n>3) and (n<9) then
      F:=exp(8*ln(2))
    else
      if n=9 then
        F:=1
      else
        if (n>0) and (n<=3) then
        begin
          temp:=720;
          for i:=7 to round(9-n) do
            temp:=temp*i;
          F:=temp
        end;
end;
var
  n:real;
begin
  readln(n);
  writeln(F(n))
end.

@Puporev · 12.01.2010, 13:06

Не по теме:

Сообщение от sb_bad

Уже все мозги вынес

И было что выносить?

sb_bad
		1
	Решить на Pascal с использованием подпрограммы function 12.01.2010, 12:14. Показов 1211. Ответов 2 Метки нет (Все метки) Помогите пожалуйста.. Уже все мозги вынес, не могу ничего придумать.. Надо написать программу на pascal и применить функцию для вычисления (решить с помощью function): m(n)=((n-2)(n-1))/6, если n>9, m(n)=exp((9-1)*ln(2)), если 3<n<9, m(n)=1, если n=9, m(n)=(9-n)!, если 0<n<=3.

@Puporev
	12.01.2010, 13:06 Решить на Pascal с использованием подпрограммы function #3
	Не по теме: Сообщение от sb_bad Уже все мозги вынес И было что выносить? 0

Решить на Pascal с использованием подпрограммы function

Решение