1 18:40, 23.04.2014

program x20140423;

const
del: real = 0.0001;
inf = 20;
var
i: longint;
ok: boolean;
s, x, x1: real;

function minus1(var i: longint): longint;
var
j: integer;
m: longint;
begin
m := 1;
for j := 1 to i do m := m*(-1);
minus1 := m;
end;

function fact(i: longint): longint;
var
j: integer;
f: longint;
begin
f := 1;
for j := 2 to i do f := f*j;
fact := f;
end;

...см продолжение...

• Обговорення: 1
• Відповісти
• з цитатою