Информатика и выч. техника \ Программирование в среде TURBO PASCAL 7.0.

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

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

; .

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

x=0,5 a=3,5

u= 5.42354 v=-6.86108 z=-37.211317

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

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

 



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

Program V10Z4;

var x,a,x3,a3,u,v,z:real;

    zcel,zdrob:real;

Begin

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

ReadLn(x,a);

     x3:=(x/abs(x))*exp(ln(abs(x)));

     a3:=(a/abs(a))*exp(ln(abs(a)));

     u:=sqrt(x3+a3)+(a);

     v:=ln(abs(x-a))-8.055;

     z:=u*v;

     zcel:=Int(z);

     zdrob:=frac(z);

     WriteLn;

     WriteLn('x=',x:3:1,' a=',a:3:2);

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

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

End.

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

x=0.2 a=2.72

u= 4.42880 v=-7.13074 z=-31.580632

zcel=-31    zdrob=-0.580632

Скачать файл