Дано число а. Определить первый отрицательный член последовательности - 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.