Вложенные циклы - Turbo Pascal (100014)
Формулировка задачи:
Функция Y(x)
|
Сумма S
|
Интервал (a, b)
|
n |
3x | 0.1÷1.0 | 10 |
Решение задачи: «Вложенные циклы»
var x, S, l : Real; n : Integer; begin x := 0.1; repeat S := 1; l := 1; for n := 1 to 10 do begin l := l * ln(3) / n * x; S := S + l; end; WriteLn('Y(', x:3:1, ') = ', exp(x*ln(3)):0:5, ' S = ', S:0:5); x := x + 0.3; until x > 1.0; end.
Объяснение кода листинга программы
Код начинается с объявления переменных: x, S и l типа Real, а n типа Integer. Затем значение переменной x устанавливается равным 0.1. Далее следует вложенный цикл repeat, который выполняется до тех пор, пока значение переменной x не станет больше 1.0. Внутри цикла есть еще один цикл for, который выполняется от 1 до 10. Внутри этого цикла переменная l вычисляется как ln(3) / n x, а затем к результату прибавляется значение переменной S. Результат записывается в переменную S. После завершения внутреннего цикла for значение переменной n увеличивается на единицу и цикл повторяется. После выхода из внешнего цикла переменная x увеличивается на 0.3. В конце каждой итерации цикла выводится значение переменной S и значение выражения (x ln(3)) на экран.