Дано число а. Определить первый отрицательный член последовательности

@andyS007 · Регистрация: 16.09.2015

Author24 — интернет-сервис помощи студентам

Дано число а. Определить первый отрицательный член последовательности x1,x1,x3,...,xn, где x1=а, xn=tg(xn-1)
не могу разобраться с этим помоги, очень срочно

Pascal

uses crt;
type
 mas1=array[1..10] of real;
var
x:mas1;
a:real;
i,n:integer;
begin
 
write('ââåäèòå à=');readln(a);
 
for i:=1 to n do
x[1]:=a;
 x[i]:=(sin(x[i-1])/cos(x[i-1]));
writeln('x[',i,']',x[i]);
 end.

@Catstail · 19.06.2016, 18:22

Pascal

  var x,a : real;
  var i    : integer; 
  write('a=');
  readln(a);
  Begin
    i:=1;
    x:=a;
    while (x>0) do begin
       i:=i+1;
       x:=sin(x)/cos(x);
    end;
    writeln(i,' ',x);
end.

	19.06.2016, 18:22