Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лб инф передел / Pascal / Лабораторные по информатике / Возможные варианты / ЛБ Ани / ZADAN_1
.PAS 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.
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.