Скачиваний:
17
Добавлен:
15.04.2015
Размер:
343 б
Скачать
PROGRAM P1;
VAR a,x,B,C,P,M: Real;
BEGIN
Writeln('vvedite x=');
Readln(x);
a:=1;
M:=EXP(2*ln((a*sqr(x+1))+(sqr(sqr(sin(x))))-1+(3.089*sqr(x)*sqr(x)-2)/(1-((x-1)/(x+1)))));
P:=EXP(3*ln((EXP(2*ln(x-1)))+3*x));
C:=EXP(2*ln(M+P));
B:=EXP((3/2)*ln(C/(a+x)));
Writeln('C=', C:8:6,' B=', B:8:6)
END.
Соседние файлы в папке ЛБ Ани