Контрольная работа: Алгоритмические языки: обработка массивов

pow1:= 0

else

if (x > 0.0) then

pow1:= exp(v*ln(x)) - вычисление числа в заданной степени

else

if (odd(trunc(v))) then

pow1:= -exp(int(v)*ln(-x))

else

pow1:= exp(int(v)*ln(-x));

End;

BEGIN

clrscr;

st1:=1/3;

st2:=1/6;

st3:=1/7;

writeln('Format vvoda chisla: *.*');

write('Vvedite vewestvennoe chislo "a":');

readln(a);

a2:=a*a+1; - промежуточные вычисления

a3:=3+a; - промежуточные вычисления

t1:= pow1(a,st1);

t2:= pow1(a2,st2);

t3:= (1+pow1(a3,st3));

t:= (t1-t2) / t3; - вычисление заданной формулы

writeln;

write('Otvet: t=',t); - выводрезультата

readln;

END.

Блок-схема алгоритма программы.