Вложенные циклы - Turbo Pascal (100014)

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

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

Вложенные циклы. Какой результат (там их 2 вродь как) и блок-схему, пожалуйста))
Функция
Y(x)
Сумма
S
Интервал
(a, b)
n
3x 0.1÷1.0 10

Решение задачи: «Вложенные циклы»

textual
Листинг программы
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)) на экран.

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

15   голосов , оценка 4.067 из 5
Похожие ответы