Линейный процесс. Составление программы вычисления указанных величин при произвольных значениях исходных величин, страница 2

Формула    исходные данные x=0,62   печатаемые величины

{Самоленков С. В. ТНГ-06-2 Вариант 6}

Program Zadacha2;

Uses Crt;

Var y, x, z: real;

Begin

 WriteLn('Введите значение x=');

 ReadLn(x);

 z:=sqrt(2*x);

 y:=sqrt(2*x)*sin(x)+exp(1-z);

 WriteLn;

 WriteLn('x=',x:6:2);

 WriteLn('z=',z:6:4);

 WriteLn('y=',y:6:4);

End.

Результат

Введите значение x=

0.62

x=  0.62

z=1.1136

y=1.5397

Введите значение x=

10

x= 10.00

z=4.4721

y=-2.4019

Проверка

Задача 3

Составить программу для вычисления и печати указанных величин при заданных значениях исходных величин.

Формула    исходные данные x=-2,9, a=0,7   печатаемые величины

{Самоленков С. В. ТНГ-06-2 Вариант 6}

Program Zadacha2;

Uses Crt;

Var  x, a, z, y: real;

Begin

 WriteLn('Введите значение x=');

 ReadLn(x);

 WriteLn('Введите значение a=');

 ReadLn(a);

 z:=sqr(cos(a*x*a*x*a*x));

 y:=z-x/sqrt(sqr(x)+a*x);

 WriteLn;

 WriteLn('x=',x:6:2);

 WriteLn('a=',a:6:2);

 WriteLn('z=',z:6:4);

 WriteLn('y=',y:6:4);

 End.

Результат

Введите значение x=

-2.9

Введите значение a=

0.7

x= -2.90

a=  0.70

z=0.2395

y=1.3877

Введите значение x=

10

Введите значение a=

5

x= 10.00

a=  5.00

z=0.4554

y=-0.3611

Проверка

=COS(B2*A2*B2*A2*B2*A2)*COS(B2*A2*B2*A2*B2*A2)

В ячейке C2

В ячейке D2

=C2-A2/КОРЕНЬ(A2*A2+B2*A2)

Лабораторная работа 3

Разветвленный процесс

         Задача 1 Составить программу вычисления указанных величин при произвольных значениях исходных величин

{Самоленков С. В. ТНГ-06-2 Вариант 6}

Program Zadacha1;

Uses Crt;

Var t, x, y : real;

Begin

 WriteLn('Введите значение x=');

 ReadLn(x);

 t:=sqr(sin(3*x));

 if 3*x<2 then y:=t else y:=1/(t+4.2);

 WriteLn;

 Writeln('x=',x:6:4);

 Writeln('t=',t:6:4);

 WriteLn('y=',y:6:4);

End.

Результат

Введите значение x=

5

x=5.0000

t=0.4229

y=0.2163

Введите значение x=

-10

x=-10.0000

t=0.9762

y=0.9762

Проверка

x	t	y
5	=SIN(3*A2)*SIN(3*A2)	=ЕСЛИ(3*A2<2;B2;1/(B2+4,2))
-10	=SIN(3*A3)*SIN(3*A3)	=ЕСЛИ(3*A3<2;B3;1/B3+4,2)