Решить задачу в паскале
Дано A вычислить c=A^3+ln(A), если c<=0 вычислить и напечатать только положительные значения функции y=sin (A*x) где x изменяется на отрезке -3;3 с шагом 0,4.Если c>0 вычислить и напечатать значение функции Z=tgx где x изменяется на том же отрезке

1

Ответы и объяснения

2013-12-06T17:42:34+04:00
Program pr;
uses crt;

Var  a,c,x,y,z,h:real;

Begin
Writeln('Vvedite a');
readln(a);
c:=power(a,3)+ln(a);
x:=-3;
h:=0.4;
if c<=0 then

While x<=3 do Begin
y:=sin(a*x);


if y>0 then
Writeln('x=',x,'___ y=',y:5:3);
x:=x+h;

            end

            else

    While x<=3 do Begin
z:=sin(x)/cos(x);

Writeln('x=',x,'| z=',z:5:3);

 x:=x+h;
   end;

readln;
end.