Найти первый член отрицательной последовательности - Turbo Pascal
Формулировка задачи:
Дано действительное число b>0. Псоледовательность a1,a2... ,образована по следующему закону
a1=b, ai=ai-1 - 1/(i), (i=2,3..).
Найти первый отрицательный член последовательности.
Решение задачи: «Найти первый член отрицательной последовательности»
textual
Листинг программы
- uses crt;
- var b,a1,ai:real;
- i:longint;
- begin
- clrscr;
- repeat
- write('Введите положительное число b=');
- readln(b);
- until b>0;
- a1:=b;
- ai:=a1-1/2;
- i:=2;
- while ai>=0 do
- begin
- i:=i+1;
- a1:=ai;
- ai:=a1-1/i;
- end;
- write(ai:0:10);
- readln
- end.
Объяснение кода листинга программы
- В первой строке используется библиотека crt, которая является стандартной для языка Turbo Pascal.
- Переменные b, a1 и ai имеют тип real, что означает, что они могут хранить числа с плавающей точкой.
- Переменная i имеет тип longint, что означает, что она может хранить целые числа.
- Строка clrscr очищает экран перед началом ввода.
- В цикле repeat-until запрашивается ввод положительного числа b. Цикл продолжается до тех пор, пока b больше 0.
- После ввода числа b, переменная a1 присваивается значению b.
- Затем переменная ai вычисляется как a1 минус 1/2.
- Переменная i устанавливается равной 2.
- Затем входит в цикл while, который продолжается до тех пор, пока ai не станет отрицательным.
- Внутри цикла переменная i увеличивается на 1.
- Переменная a1 обновляется, чтобы хранить значение ai минус 1/i.
- После выхода из цикла while, выводится значение переменной ai.
- Строка readln используется для чтения ввода пользователя.
- Программа заканчивается, и управление передается пользователю.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д