program Project11;
{$APPTYPE CONSOLE}
uses
SysUtils;

Function ch(x:real):real;
var i,fact,n:integer;
var ep,u,f,fn:real;
begin
ep:=0.001;
n:=2;
fact:=1;
u:=1;
f:=0;
repeat
fact:=1;
for i:=1 to n do fact:=fact*i;
fn:=(exp(n*ln(abs(x))))/fact;
f:=f+fn;
u:=fn*u;
n:=n+2;
until u ch:=f;
end;

Procedure fun(hx:real);
var x,y,ch1:real;
begin
x:=-1;
repeat
ch1:=ch(x);
y:=sqr(x)/(2*ch1);
writeln(x:6:4,' ',y:6:4);
x:=x+hx;
until x>1;
end;


var hx1:real;
BEGIN
writeln('Shag tabulirovaniya:');
readln(hx1);

fun(hx1);
readln;
END.

Случайные файлы

Файл
Readme.txt
FORM.TXT
148.txt
10 задача.txt
natahaus.txt




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.