Определить, сколько членов последовательности нужно перемножить, чтобы выполнилось условие - Turbo Pascal
Формулировка задачи:
Числовая последовательность заданная формулой () какое количество членов этой последовательности надо перемножить начиная с 1-го чтобы произведение превысило степени
Решение задачи: «Определить, сколько членов последовательности нужно перемножить, чтобы выполнилось условие»
textual
Листинг программы
var n,i:integer; c,p:real; begin writeln(' '); i:=1; c:=9; p:=c; while p<=10000 do begin inc(i); c:=2*i*i*i+3/i+4; p:=p*c; end; write('i=',i,' p=',p:0:2); end.
Объяснение кода листинга программы
- Создаются три переменные: n, i и c, которые являются целочисленными.
- Переменная i инициализируется значением 1.
- Переменная c инициализируется значением 9.
- Переменная p инициализируется произведением c и i.
- Запускается цикл while, который выполняется до тех пор, пока значение переменной p меньше или равно 10000.
- Внутри цикла значение переменной i увеличивается на единицу.
- Значение переменной c пересчитывается как 2 умножить на i, умножить на i и прибавить 3, деленное на i, плюс 4.
- Значение переменной p пересчитывается как произведение значений переменных c и i.
- После выхода из цикла значение переменных i и p выводятся на экран.
- Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д