Программирование линейных вычислительных процессов с использованием операторов, реализующих базовые структуры следования. Вариант № 2, страница 2

WriteLn;

WriteLn('x=',x:5:2,'  y=',y:7:5,'  z=',z:7:5);

WriteLn('yokr=',yokr:2,'  zokr=',zokr:2);

WriteLn('частное от деления a на b=',del:2);

WriteLn('остаток от деления a на b=',ost:2);

End.

Вид печати:

x= 0.70  y=1.20564  z=2.60330

yokr= 1  zokr= 3

частное от деления a на b= 0

остаток от деления a на b= 1

Задача 4. Составить программу для вычисления величины  при ; ;; . Напечатать значения . Определить целую и дробную части величины . Напечатать эти значения.

Решение.

Программа:

Program Prim4;

var

 x,y,a,b,c,u,v,z:real;

zcel,zdrob:real;

Begin

x:=-0.5;

y:=0.74;

a:=sin(x);

b:=y/abs(y)*exp(2.8*Ln(abs(y)))+3*exp(x);

c:=(x+1);

u:=sqr(pi/2-arctan(c/sqrt(1-sqr(c))));

v:=a*b;

z:=u*v;

zcel:=Int(z);

zdrob:=Frac(z);

WriteLn;

WriteLn('x=',x:5:1,'  y=',y:5:2,'  a=',a:8:6,'  b=',b:8:6,'  c=',c:5:2);

WriteLn('u=',u:8:5,'  v=',v:8:5,'  z=',z:8:6);

WriteLn('zcel=',zcel:3:0,'  zdrob=',zdrob:8:6);

End.

Вид печати:

x= -0.5  y= 0.74  a=-0.479426  b=2.249969  c= 0.50

u= 1.09662  v=-1.07869  z=-1.182919

zcel= -1  zdrob=-0.182919