Циклические вычислительные процессы (значения функции)

Используя три различных цикла, трижды протабулировать функцию.

(в а р и а н т с ц и к л о м f o r)

Program cicleForTabul;

var x0,f,f1,x,a:real;

N,k:integer;

Begin

Cls;

writeln('введите а ');

Readln(a);

x0:=-3;

N:=trunc((6-x0)/1);

for k:=0 to N do

Begin

x:=x0+1*k;

f1:=(x*x*x)-(7*x)-6;

if f1<>0 then

Begin

f:=(exp(-a*x)+exp(a*x))/f1;

writeln('f(',x:8:2,') =',f:8:2);

End

else writeln (не вычисляется при x=',x:8:2);

End;

End.

(в а р и а н т с ц и к л о м r e p e a t)

Не нашли, что искали? Воспользуйтесь поиском: