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

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Дано число а. Определить первый отрицательный член последовательности»

textual
Листинг программы
  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.

Объяснение кода листинга программы

  1. Создаются переменные x, a и i типа real и integer соответственно.
  2. Задается начальное значение переменной x как a.
  3. Выводится сообщение a= и считывается значение переменной a.
  4. Инициализируется переменная i значением 1.
  5. Запускается цикл while, условием которого является x>0.
  6. Внутри цикла увеличивается значение переменной i на 1.
  7. Значение переменной x считывается и сохраняется в переменную x.
  8. Вычисляется значение x как sin(x)/cos(x).
  9. Проверяется условие x>0. Если оно истинно, то цикл while повторяется.
  10. По завершении цикла while выводится значение переменной i и значение переменной x.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.8 из 5
Похожие ответы