Фунции (Pascal)

[DsDevis]

Еще раз здравствуйте. (Надеюсь, я не слишком назойлив?)
На данный момент осваиваю фунции, написал программу для расчета 1/n!
но она не компилируется. В чем я ошибся?

program funcii;
var n,y,z: real;
begin
write('Введите n ');
readln(n);
         function chisl (var n,s,k:real):real;
         begin
         s:=1; k:=1;
         while k<n do
         begin
         k:=k+1;
         s:=s*k;
         end;
write('Введите z ');
readln(z);
z:=chisl/1;
writeln
end.

[SeRhy]

program funcii;

var n,y,z: real;

function chisl (var n:real):real;
var s1,k1 :real;
begin
  s1:=1; k1:=1;
  while k1<n do
  begin
     k1:=k1+1;
     s1:=s1*k1;
   end;
  chisl:=s1;
end;

begin
  write('Введите n ');
  readln(n);
  write('Введите z ');
  readln(z);
  z:=chisl(n)/1;
  writeln
end.

Для точности нужно задание...
А вобще пользуйся хелпом для начала.

[OCTAGRAM]

В том, что function должно быть снаружи блока begin-end

[DsDevis]

Спасибо, разобрался.

[DsDevis]

Помогите пожалуйста еще раз. Вот код программы, выводящей на экран значения 2-х функций chisl и znam. (chisl:=n! znam:=(2^n)!)

program faktorial;
var n,x,s,s1: real;
function znam (var n:real):real;
var s1,k1 :real;
begin
  s1:=1; k1:=1;
  while k1<n do
  begin
     k1:=k1+1;
     s1:=s1*k1;
   end;
  znam:=s1;
end;
    function chisl (var n:real):real;
    var s, k: real;
    begin
        s:=1; k:=1; n:=(exp(n*ln(2)));
        while k<n do
        begin
        k:=k+1;
        s:=s*k;
        end;
    chisl:=s;
    end;
begin
write('Введите n ');
readln(n);
writeln(chisl(n):0:0);
writeln(znam(n):0:0);
end.

Проблема в том, что chisl и znam при любых вводимых n принимают значения (2^n)! Хотя znam должен быть равен n! Где я ошибся?

[Veselyn]

Меня интересует в каком Pascalе можно писать сообщения на русском языке, типа
write('Введите n ');

[DsDevis]

Veselyn
http://programmersforum.ru/showthrea...6887#post26887

[Veselyn]

Спасибо, я так далеко во времени ещо незалезал

[OCTAGRAM]

Veselyn
Ну и School Pak заодно. По моему, лучше.

[DENCREAT]

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

Помогите пожалуйста еще раз. Вот код программы, выводящей на экран значения 2-х функций chisl и znam. (chisl:=n! znam:=(2^n)!)

program faktorial;
var n,x,s,s1: real;
function znam (var n:real):real;
var s1,k1 :real;
begin
  s1:=1; k1:=1;
  while k1<n do
  begin
     k1:=k1+1;
     s1:=s1*k1;
   end;
  znam:=s1;
end;
    function chisl (var n:real):real;
    var s, k: real;
    begin
        s:=1; k:=1; n:=(exp(n*ln(2)));
        while k<n do
        begin
        k:=k+1;
        s:=s*k;
        end;
    chisl:=s;
    end;
begin
write('Введите n ');
readln(n);
writeln(chisl(n):0:0);
writeln(znam(n):0:0);
end.

Проблема в том, что chisl и znam при любых вводимых n принимают значения (2^n)! Хотя znam должен быть равен n! Где я ошибся?

поучити рекурсию и таких проблем у тебя больше не будет