Написать алгоритм вычисления

Народ, помогите пожалуйста написать алгоритм вычесления N!
вводится N
N!=1*2*3....*N
Вот...
Спасибо

 

Язык?

 

PHP:

<?
function factorial($n)
{
$fact=1;
for ($i=1; $i<=$n; $i++)
    $fact=$fact*$i;
return $fact;
}

echo factorial(100);

?>


 

res = 1;
for(int i=1; i<=N; ++i)
res *= i;

 

Черт) Надо было в виде схемыыы...
что-то вроде такой вот схемы

 

publick function asdf()
k=val(textbox1)

n=1

for i=1 to k
n=n*i
next i

msgbox(n)

end function

еси надо могу блок схему нарисовать

 

во! походу то, что мне надо и есть блок схема) если я прав, напиши пожалуйста

 

Очень добрый парень помог мне! спасибо ему! Тему можно деллл

 

Требуется опять написать алгоритм в виде схемы. А написать надо для "х" в степени "y". Спасибо. Надеюсь на вас.

 

Code:

for i,x,y,s: integer;
begin
writeln ("enter plz x & y");
readln (x,y);
s:=1
for i=0 to y do
 s:=s*x;
writeln ("x^y = ", s);
readln();
end.

-
но этот код кривой - у мну нету под ругой конпелятора. Вот питоний:

Code:

i=0
x=2
y=10
s=1
for i in range(0, y):
    s=s*x
else:
    print(s)

на счет предыдущего - для факториала надо всегда делать проверку, что N>0, N=0 и else. при N=0, N!=1.
---
я бы и блок-схему набросал, но у мну нету софтины с собой и нету фотоаппарата цифрового. Так что если скниешь торрент-файл на мелкомягкий визио 2007 - покажу схему.

 

Спасибо! Скинуть торрент не могу... я с телефона((
Кто может написать блок схему, напишите пожалуйста.

 

Так исходники же скинули,а блок-схему нарисовать это не сложно.

 

а зачем так сложно! ведь как я понял задание все элементарно

Code:

publick function asdf() 
x=val(textbox1) 
y=val(textbox2) 
s=x^y 
msgbox(Cstr(s)) 
end function

и фсе!

и блок схема
тыц

 

Дело в том, что паскаль вроде не умеет вот так, как на блок схеме возводить в степень... и там по моим догадкам всю суть в цикле... вот как раз этот цикл я сделать немогу(
Черт... я мда... я все это пишу на паскале...

 

Так возводи в цикле, или конструкцию с экспонентой устраивай, в паскале она есть S := exp(k*ln(a)), равносильно S = a ^ k;(а в степени k (если "к" и "а" не натуральные))

 

Спасибо!

 

Итак очередное задание у меня тут) Но щас все немного проще, чем раньше)
Есть задание
"Написать программу, которая будет считывать нажатую клавишу и выводить ее на экран.Все это должно повторятся циклически, до нажатия клавиши Z"
вот я тут что-то накидал) Но я идиот) и накидал как-то крайне глупо.
вот.

Var x: char;
begin
writeln('najmite z');
repeat
x:=readkey;
writeln(ord(x));
x:=char(10);
until keypressed(z);
readln;
end.

А главное, что чертов паскаль 7.1 пишет, Uknown Indefecator на readkey/

 

не readkey, a read(x);

 

writeln('nazhmite Z');
read(z);
repeat
read(x);
writeln(x);
until x = z;

 

keypressed тоже отказывается работать.