Найти первый отрицательный член последовательности - Pascal ABC (15049)

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

Найти первый отрицательный член последовательности cos(ctg(n)) , n=1, 2, 3. Применить оператор цикла с постусловием.

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

Листинг программы

{Найти первый отрицательный член последовательности cos(ctg(n)) , n=1, 2, 3.
Применить оператор цикла с постусловием.}
var
  n:integer;
  otr,y:real;
begin
  n:=1;
  repeat
    y:=cos(cos(n)/sin(n));
    write(y:8:2);
    if y<0 then
      break;
    inc(n);
  until n>3;
  writeln;
  if y>=0 then
    writeln('Нет отрицательных членов.')
  else
    writeln(y:8:2);
  readln;
end.

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

Переменная n инициализируется значением 1.
Запускается цикл repeat, который будет выполняться до тех пор, пока значение переменной n не станет больше 3.
Внутри цикла вычисляется значение y с помощью формулы y = cos(cos(n)/sin(n)). Это выражение вычисляет косинус угла n, предварительно приведенного к радианам.
Вычисленное значение y записывается в файл с помощью функции write(y:8:2). Здесь 8:2 означает, что число y записывается в формате с 8 знаками перед запятой и 2 знаками после запятой.
Проверяется условие y < 0. Если оно истинно, то цикл прерывается с помощью оператора break.
Если цикл не был прерван, то значение переменной n увеличивается на единицу с помощью функции inc(n).
После завершения цикла выводится сообщение Нет отрицательных членов, если все значения y были положительными.
Если хотя бы одно значение y было отрицательным, то выводится само отрицательное значение.
Программа завершается с помощью функции readln.