Зертханалыќ жўмыс №4

Паскаль тіліндегі программа структурасымен танысу, өрнектерді жазу ережесін үйрену, меншіктеу, енгізу және шығару операторларын үйрену.

var x,y:real;

begin

readln(x);

write('y=',y);

end.
X1=3 Y1=4.6539862853E-01

X2=5 Y2=2.2872224210E+00

X3=8 Y3=7.0485574540E-01


Зертханалық жұмыс №2

Паскаль тіліндегі программа структурасымен танысу, өрнектерді жазу ережесін үйрену, меншіктеу, енгізу және шығару операторларын үйрену.

var x,y:real;

begin

readln(x);

write('y=',y);

end.
X1=7 Y1=1.8590133764E+00

X2=9 Y2=3.2880315239E+00

X3=4 Y3=2.2041722008E+00

Зертханалық жұмыс №3

Паскаль тіліндегі программа структурасымен танысу, өрнектерді жазу ережесін үйрену, меншіктеу, енгізу және шығару операторларын үйрену.

var x,y:real;

begin

readln(x);

write('y=',y);

end.
X1=8 Y1=4.7318530807E+00

X2=6 Y2=5.1434471867E+02

X3=9 Y3=8.0738233627E+00

Зертханалық жұмыс №4

Тармақталуды ұйымдастыру. Шартты оператор.

Бер:

5x³+cosx, егер 0<=x<2

Программа құру

Program esepteu;

Var x,y:real;

Begin

Writeln(‘x engiz’);

Read(x);

If(x>-5) and (x<0) then y:sqrt(sqr(x+abs(x)) else if(x>=0) and (x<2) then y:=5*sqr(x)*x+cos(x);

Writeln(‘natigeci’);

Writeln(‘y=’,y);

End.

Мән береміз

1

-2

0

Нәтижесі

1. 
   y=5.5403023059E+00
   

-2 y=2.4494897428E+00

0 y=9.9999999999E+00

Зертханалық жұмыс №5
Бер: X²sinx+ , егер -1<=x<=1

Tg²x+3.5 , егер x>1

Программа құру

Program esepteu;

Var x,y:real;

Begin

Writeln(‘x engiz’);

Read(x);

If(x=-1) and (x<=1) then y:=sqr(x)*sin(x)+sqrt(sqr(x)+1.2 else if(x>1) then y:=sqr(sin(x)/cos(x))+3.5;

Writeln(‘natigesi’);

Writeln(‘y=’,y);

End.

Мән береміз Нәтижесі
0 y=1.0954451150E+00

2 y=8.2743992040E+00

6 y=3.5846846034E+00.

жүктеу 0,54 Mb.

Достарыңызбен бөлісу: