Дано число а. Определить первый отрицательный член последовательности - 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.
Объяснение кода листинга программы
- Создаются переменные x, a и i типа real и integer соответственно.
- Задается начальное значение переменной x как a.
- Выводится сообщение
a=
и считывается значение переменной a. - Инициализируется переменная i значением 1.
- Запускается цикл while, условием которого является x>0.
- Внутри цикла увеличивается значение переменной i на 1.
- Значение переменной x считывается и сохраняется в переменную x.
- Вычисляется значение x как sin(x)/cos(x).
- Проверяется условие x>0. Если оно истинно, то цикл while повторяется.
- По завершении цикла while выводится значение переменной i и значение переменной x.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д