Информатика,турбопаскаль

[Desos777]

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

[MrVenom]

Проверить не на чем, пишу в блокноте, попробуй че нить типа того:
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.

[somewhere]

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

Код: Выделить всё

uses crt;

var
e     : real;
k, x  : byte;

begin
clrscr;
Write('Input k: '); Readln(k);
e:= 1;
If k>0 then for x:=1 to k do e:= 2*e/x;
writeln('Result = ',e:15:13);
end.

[sasha3050]

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

[MrVenom]

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

[Хыиуду]

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

[Desos777]

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

[somewhere]

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

[Хыиуду]

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

[Desos777]

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