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

A(10) caндық массиві берілген. Қатар тұрған элементтердің көбейтінділерінің қосындысын есептеу керек.

Const N=10;

Var A:array[1..10] of integer;

i:integer; S:real;

Begin

Writeln ('berilgenderdi engiz');

write ('A[',i,']=');

Read (A[i]);

end;

for i:=1 to 10 do

S:=S+A[i]*A[i+1];

Writeln ('S=',S:6:3);

end;

end.

A[2]=5 A[7]=4

A[3]=4 A[8]=7

A[4]=6 A[9]=6

A[5]=-2 A[10]=3 S=184.000

Зертханалық жұмыс №26
Тармақталуды ұйымдастыру. Шартты оператор.
1. xtgx-sinx, егер -1<=x<=1

Y= x³tgx , егер 1<=x<=2,5

3x³+5 , егер x>2,5
Program esepteu_1;

Var x,y:real;

begin

writeln('Vvedite x');

If (x>=-1) and (x<=1) then y:=x*sin(x)/cos(x)-sin(x)

else

if (x>=1) and (x<=2.5) then y:=exp(3*ln(x))*sin(x)/cos(x)

if (x>2.5) then y:=3*exp(3*ln(x))+5;

writeln('Natizhesi');

writeln('y=', y);

end.
X1=8 Y1=1.5410000000E+03

X2=45 Y2=2.7338000000E+05

y=

Program esepteu_2;

Var x,y:real;

begin

read(x);

else

writeln('natizhesi');

writeln('y=', y);

end.
X1=26 Y1=4.8894599417E+00

X2=52 Y2=4.0142106525E+01

X3=61 Y3=1.7511306263E+01

y=

, егер x>3

Program esepteu_3;

Var x,y:real;

Begin2

writeln('x engiz');

read(x);

If (x>1) and (x<3) then y:=exp(1/3*ln(exp(3*ln(x)+abs(7.2-sqr(x)))))

else

if (x>3) then y:=sqrt(1.5*sqr(x)-exp(2*x));

writeln('natizhesi');

writeln('y=', y);

end.
X1=2 Y1=2.7494668869E+03

X2=2.5 Y2=2.5680275333E+02

X3=2.8 Y3=2.6861721600E+02

жүктеу 0,54 Mb.

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