Надо сразу заметить, что для
3. Словесный
- задание последовательности описанием.
Надо сразу заметить, что для составления программ чаще нам придется использовать рекуррентное соотношение. Покажем это на примере.
Пример 1. Составить программу вывода на экран членов последовательности, заданной следующей формулой:
Для составления программы необходимо перейти от формулы n-го члена, которым задана последовательность к рекуррентному соотношению, связывающему предыдущий член с последующим и указать начальное значение для первого или "нулевого" элемента. Как это сделать? Оказывается очень просто!
1. Запишем, чему будет равен член последовательности предыдущий к n - му, т. е. n-1 - й элемент последовательности:
2. Теперь разделим n - й элемент на n-1 - й, получим:
3. Отсюда выразим, чему будет равен n-й член:
4. Найдем начальное значение
Процедуру можно построить из одного цикла с параметром, в котором каждый раз при выполнении цикла предыдущее значение будет умножаться на 10 и делится на значение переменной цикла, которая обозначена n.
Procedure Create_succession(k : integer);
var
n : integer;
a : real;
begin
a := 1;
writeln('Искомая последовательность');
for n := 1 to k do
begin
a := a*10/n;
write(a:6:6, ' ')
end;
writeln
end;
Программа
Program Problem1; {Вывод членов последовательности}
uses WinCrt;
var
k : integer;
{---------------------------------------------------------------------------------------}
Procedure Create_succession(k : integer);
var
n : integer;
a : real;
begin
a := 1;
writeln('Искомая последовательность');
for n := 1 to k do
begin
a := a*10/n;
write(a:6:6, ' ')
