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

Напечатать

Решение.

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

, .

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

x=2.5 t=3.9 z=-9.078077.

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

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

 

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

Program V10Z2;

Var x,t,tx,t3,z:real;

begin

writeln('Введите значение x,t');

readln(x,t);

     tx:=t*x+1;

     t3:=(tx/abs(tx))*exp(ln(abs(tx))/3);

     z:=t3/cos(tx);

     writeln;

     writeln('x=',x:3:1,' t=',t:3:1,' z=',z:8:6);

End.

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

x=2.5 t=3.9 z=-9.078077

Задача 3.

Составить программу вычисления и печати при х=2,9 значений y и z по формулам .

Округлить значения y и z до ближайших целых значений. Найти частное от деления и остаток от деления округленного значения y на округленное значение z. Напечатать эти значения.

Решение.

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

, , .

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

x= 2.90 y=0.43757 z=2.44312;

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

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

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

 

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

Program V10Z3;

Var x,x1,y,z:real;

    yokr,zokr,del,ost:integer;

Begin

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

ReadLn(x);

     x1:=x-1;

     y:=(ln(x)/ln(10))*SIN(x1);

     z:=ln(x)+sqrt(x1);

     yokr:=round(y);

     zokr:=round(z);

     del:=yokr div zokr;

     ost:=yokr mod zokr;

     WriteLn;

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

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

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

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

End.

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

x= 2.90 y=0.43757 z=2.44312

yokr= 0 zokr= 2

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

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

Задача 4.

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

Напечатать значения  Определить целую и дробную части величины u. Напечатать эти значения.

Решение: