Developing.ru

Я паскаль неделю назад начал изучать,так что не судите строго,
2(в cтепени k)/k! Нужно вводить к и получить число,помогите,плиззз!!!

Проверить не на чем, пишу в блокноте, попробуй че нить типа того:
Uses wincrt;

Function Pow(A:Real; B:integer):Real; //возведение в степень
Var T:Real;
Begin
T := Abs(A);
If A < 0 Then
begin
if B mod 2 = 0 then Pow := Exp(B*Ln(T)) else Pow := (-1)*exp(B*Ln(T));
end else Pow := Exp(B*Ln(T));
End;
function Fact(n: integer): LongInt; // факториал
begin
if n > 1 then
Result := n * Fact(n - 1)
else
Result := 1;
end;

var
k: integer;
res : real;
begin
write('vvedite k = '); read(k);
res := pow(2,k)/fact(k);
writeln('Result = ', Res);
end.

MrVenom, учитесь мыслить проще...

Помогите пожалуйста!!!!!!!Написать программу на paskal, метод гаусса с прямым и обратным ходом для систем уравнений из 5-ти элементов

somewhere, а ведь и вправду, респект)

А можно так:
e:=exp(k*ln(2));
for i:=1 to k do e:=e/i;

somewhere: Спасибо,твой вариант проверил,все правильно,только в конце readln,РЕСПЕКТ.

Хыиуду, так точность падает сильно

Не спорю. Но это же учебная задача. Преподаватель в уме вычисляет с большей точностью?

Мужики,мне препод,еще задачку припарил,блин,не могу разобраться,помогите.Суть вот в чем: 1/sqr 3+1/sqr5+1/sqr(2*Pi+1). Заранее благодарен.