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

1. Расчетные формулы:

, ,, , .

2. Тесты для отладки программы:

x=0.7; r=0.343; y=2.78989; z=1.94767;

частное от деления y на z= 1. Oстаток от деления y на z= 1/

3. Исходные данные:

4.Блок-схема

 

5. Программа:

Program Pr3;

Var x,a,c,d,y,z,r:real;

    aokr,bokr,del,ost:integer;

Begin

x:=0.7;

r:=x*x*x;

a:=r/sqrt(1-r*r);

y:=3.14-arctan(a);

c:=(r+1)/ABS(r+1);

d:=EXP(Ln(ABS((r+1))/3));

z:=1.5+c*d;

aokr:=round(y);

bokr:=round(z);

del:=aokr div bokr;

ost:=aokr mod bokr;

WriteLn;

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

WriteLn('aokr=',aokr:2,' bokr=',bokr:2);

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

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

End.

6. Вид печати:

x= 0.70 r=0.343 y=2.78989 z=1.94767

aokr= 3 bokr= 2

частное от деления y на z= 1

остаток от деления y на z= 1.

Задача 4.

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

Формула: 

Исходные данные:

 с=2,1; a=1,1.

Печатаемые данные:

c,a, ,x, y, z.

Решение.

1. Расчетные формулы:

   ; ; y=b*e;

2.Тест для отладки программы:

   

   

   

   

   

3. Программа:

Program prim4;

var x,b,y,a,c,z,e:real;

zdrob, zcel:real;

Begin

c:=2.1;

a:=1.1;

b:=exp((1/5)*ln(a));

e:=cos(b);

x:=ln(abs(c*c/a));

y:=b*e;

z:=x/y;

zcel:=int(z);

zdrob:=frac(z);

WriteLn;

WriteLn('c=',c:3:1,' a=',a:3:1,' cos(b)=',e:3:3);

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

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

End.

5. Вид печати:

c=2.1 a=1.1 cos(b)=0.524

x= 1.38856 y= 0.53409 z= 2.59985

zcel=  2 zdrod=0.599852