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

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

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

Дано действительное число b>0. Псоледовательность a1,a2... ,образована по следующему закону a1=b, ai=ai-1 - 1/(i), (i=2,3..). Найти первый отрицательный член последовательности.

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

textual
Листинг программы
  1. uses crt;
  2. var b,a1,ai:real;
  3.     i:longint;
  4. begin
  5. clrscr;
  6. repeat
  7. write('Введите положительное число b=');
  8. readln(b);
  9. until b>0;
  10. a1:=b;
  11. ai:=a1-1/2;
  12. i:=2;
  13. while ai>=0 do
  14.  begin
  15.   i:=i+1;
  16.   a1:=ai;
  17.   ai:=a1-1/i;
  18.  end;
  19. write(ai:0:10);
  20. readln
  21. end.

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

  1. В первой строке используется библиотека crt, которая является стандартной для языка Turbo Pascal.
  2. Переменные b, a1 и ai имеют тип real, что означает, что они могут хранить числа с плавающей точкой.
  3. Переменная i имеет тип longint, что означает, что она может хранить целые числа.
  4. Строка clrscr очищает экран перед началом ввода.
  5. В цикле repeat-until запрашивается ввод положительного числа b. Цикл продолжается до тех пор, пока b больше 0.
  6. После ввода числа b, переменная a1 присваивается значению b.
  7. Затем переменная ai вычисляется как a1 минус 1/2.
  8. Переменная i устанавливается равной 2.
  9. Затем входит в цикл while, который продолжается до тех пор, пока ai не станет отрицательным.
  10. Внутри цикла переменная i увеличивается на 1.
  11. Переменная a1 обновляется, чтобы хранить значение ai минус 1/i.
  12. После выхода из цикла while, выводится значение переменной ai.
  13. Строка readln используется для чтения ввода пользователя.
  14. Программа заканчивается, и управление передается пользователю.

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


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

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

5   голосов , оценка 3.6 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы