1. Вычислить , где , .

Дата: 2025-05-01; Просмотры: 2

Оценка:

0.00 из 5.00 — оценок

Скачиваний: 0

Скачать

program dop1;

const

e=2.72;

pi=3.14;

var

alfa, x,y,z: real;

begin

write ('Введите x=');

read (x);

alfa:=cos(8/9);

y:=exp(5*ln(ln(abs(x)+ln(20)/ln(10))))-exp(pi)/(4*exp(1)+abs(exp(1/3)*ln(alfa)));

z:=(exp(sqr(y)*ln(x))*sqrt(abs(alfa-3.5))+(1-2*sin(sqr(x)))/(3.41+sqr(arctan(y))));

writeln ('z=',z);

end.

2. Вычислить , где , .

program dop2;

const

e=2.72;

pi=3.14;

var

a, b, x, y: real;

begin

write ('Введите x=');

read (x);

a:=sin(exp(10));

b:=ln(30)/ln(2);

y:=ln(abs(b+x*sqr(x)-sqr(sqr(x)))+7)/ln(10)+(2*cos(3/5)/sin(3/5))/(sqr(cos(pi/4))+(sin(pi/8)/cos(pi/8)))+exp((-2)*a*ln(b));

writeln ('y=',y);

end.

3. Вычислить величину

4.

5. Вычислить величину

6. Вычислить

program Lab1;

var y,x,a,b:real;

begin

writeln ('Введите x,a,b');

read (a,x,b);

if b<=2 then y:=sqr(sin(x))+abs(exp(a)) else y:=(sin(0.57)/cos(0.57))*(ln(b-2)/ln(10));

writeln('y=',y:10:3);

end.

7. Вычислить при

program Lab2;

var y,n,r,c,C0:real;

begin

writeln ('Введите c,n,r');

read (c,n,r);

if r<=1 then y:=1.5*sqrt(c) else y:=1.3*sqrt(c);

C0:=(exp(y*ln(r)))/n;

writeln('C0=',C0:10:3);

end.

8. Вычислить , где

program Lab3;

var Zi,Ai,Z,a:real;

begin

writeln ('Введите a,Z');

read (a,Z);

if (a>90) and (a<180) then Ai:=sin((a*pi)/180);

if (a>=0) and (a<=90) then Ai:=0.7+(0.35*a)/90;

Zi:=Ai+Z;

writeln('Zi=',Zi:10:3);

end.

9. Вычислить где .

program Lab4;

var m,g,l,a,b,x:real;

begin

writeln('Введите g,l,b,a');

read (g,l,b,a);

x:=l-sqrt((b*(l+a))/3);

if a=b then m:=(g*sqr(l))/(12);

if a<b then m:=(g*(l-x))/(6*(l+a))-(g*exp(3*ln(l-x)))/(6*b) else writeln('a должно быть < или = b!');

writeln ('m=',m:10:3);

end.

10. Вычислить , где

program Lab5;

var Q,u,w,z,g,b,h,a,d:real;

j:integer;

begin

writeln ('Введите j,d,b,h,a,g,z,u');

read (j,d,b,h,a,g,z,u);

case j of

1:w:=(b*h);

2:w:=(pi*sqr(d))/(4);

3,4:w:=((a+b)*h)/(2)

end;

Q:=(u)*(w)*(sqrt(2*g*z));

writeln('Q=',Q:10:3);

end.

11. Вычислить

program lab6;

var b,n,m,x,y:real;

begin

Writeln ('Введите x,y,n,m');

read(x,y,n,m);

if x>y then b:=cos(exp(m*ln(n))) else b:=(exp(n*ln(sin(m))))/x ;

if x=y then b:=m+cos(n)/sin(n);

writeln('b=',b:10:3);

end.

12. Найти

program lab7;

var u,x:real;

begin

writeln ('Введите x');

read(x);

if (x<=5)and(x>=0) then u:=1;

if (x<-1)and(x>10) then u:=0;

writeln ('u=',u:10:3);

end.

13. Найти

program lab8;

var y,x,z,a,b:real;

label M,L;

begin

writeln ('Введите x,a,b');

read(x,a,b);

if a=b then goto M else goto L;

M:y:=(a*x);

z:=(a/x);

L:y:=(b*x);

z:=(b/x);

writeln ('y=',y:10:3, ' z=',z:10:3);

end.

14. Вычислить значения функции при x, увеличивающемся от x_н до x_к с шагом D x . (Обозначения: ; ; ).

15. Вычислить значения функции при x, изменяющемся от 0 до 10 с шагом 1.

16. Вычислить , где с увеличивается от с_н до с_к с шагом Dс.

Program one;

var w,a,b,c,R,cn,ck,dc:real;

begin

writeln('Введите a,b,R,cn,ck,dc');

read(a,b,R,cn,ck,dc);

c:=cn;

repeat

W:=(abs((a*b*c))/(exp(3*ln(R))-exp(1)))+sqr(pi);

writeln('при c=',c:10:1,' W=',W:10:3);

c:=c+dc;

Until c>ck

end.

17. Вычислить , где с увеличивается от с_н до с_к с шагом Dс.

Program two;

var N,x,p:real;

begin

writeln('Введите x');

read(x);

p:=0.3;

repeat

N:=sqr(x)+sin(abs(arctan(exp(3*ln(p)))));

writeln('при p=',p:10:1,' N=',N:10:3);

p:=p+0.2;

Until p>1.5

end.

18. Вычислить , где P меняется от P_н = 0,3 до P_к = 1,5 с шагом D P = 0,2.

Program three;

var M,y,d:real;

begin

writeln('Введите d');

read(d);

y:=1;

repeat

M:=(exp(3*ln(y)))-(sin(abs(cos(sqr(d)))))/(cos(abs(cos(sqr(d)))));

writeln('при y=',y:10:1,' M=',M:10:3);

y:=y+0.5;

Until y>5

end.

19. Вычислить где w₀ уменьшается от w _н до w _к с шагом D w .

Program four;

var E,Eo,w0,w1,w2,wn,wk,dw:real;

begin

writeln('Введите Eo,w1,w2,wn,wk,dw');

read(Eo,w1,w2,wn,wk,dw);

w0:=wn;

repeat

if (w1+w2)/2<w0 then E:=Eo*((w1+w2)/2*w0) else E:=Eo; ;

writeln('при w=',w0:10:1,' E=',E:10:3);

w0:=w0+dw;

Until w0>wk

end.

20. Вычислить где n – целое число и меняется от n_н = 100 до n_к = 10 с шагом D n = -5.

Program five;

var Cv,s,n:real;

begin

writeln('Введите s');

read(s);

n:=100;

repeat

if n>=30 then Cv:=sqrt(s/n);

if (n>=2) and (n<30) then Cv:=0;

if n<2 then Cv:=sqrt(s/(n-1));

writeln('при n=',n:10:1,' Cv=',Cv:10:3);

n:=n-5;

Until n<10

end.

21. Вычислить , где x увеличивается от x_н до x_к с шагом D x.

Program six;

var B,n,m,x,y,xn,xk,dx:real;

begin

writeln('Введите n,m,y,xn,xk,dx');

read(n,m,y,xn,xk,dx);

x:=xn;

repeat

if x>y then B:=(1/n)*cos(exp(m*ln(n)));

if x=y then B:=m+sin(n)/cos(n);

if x<y then B:=(1/x)*(exp(n*ln(sin(m))));

writeln('при x=',x:10:1,' B=',b:10:4);

x:=x+dx;

Until x>xk

end.

22. Вычислить , где x увеличивается от x_н до x_к с шагом D x.

Program seven;

var E,a,x,xn,xk,dx:real;

begin

writeln('Введите a,xn,xk,dx');

read(a,xn,xk,dx);

x:=xn;

repeat

if a<x then E:= 5*(sqr(exp(1)))+(1)/sin(x);

if a>x then E:=exp((1-exp(1)+cos(x))*ln(abs(-a)));

if a=x then E:= (exp(1)*ln(10))/ln(x);

writeln('при x=',x:10:3,' E=',E:10:4);

x:=x+dx;

Until x>xk;

end.