Зертханалық жұмыс №29
lgx+ , егер x<=2
y=
lg2x- , егер x>2
Program esepteu_4;
Var x,y:real;
begin
writeln('x engiz');
read(x);
If (x<=2) then y:=ln(x)/ln(10)+sqrt(x)
else
if (x>2) then y:=ln(2*x)/ln(10)-sqrt(3*x);
writeln('natizhesi');
writeln('y=', y);
end.
X1=46 Y1=-9.7835522971E+00
X2=53 Y2=-1.0584214348E+01
X3=12 Y3=-4.6197887583E+00
Зертханалық жұмыс №30
Циклдарды ұйымдастыру.
1.
Program esep_1;
var x,S,AK:real; n:integer;
begin
writeln('x pen n engiz');
read(x,n);
S:=0; n:=1;
repeat
AK:=x+cos(n*x)/exp(n*ln(2));
S:=S+AK;
n:=n+1;
Until abs(AK)Writeln('S=', S:7:3, 'AK=', AK:6:3);
end.
X1=7 n1=5 S1=42.248 AK1=6.994.
X2=12 n2=54 S2=144.423 AK2=12.000.
X3=4 n3=10 S3=15.682 AK3=3.940.
Достарыңызбен бөлісу: |