1. Вывести значения n первых членов последовательности:
1/2, 2/3, 3/4, ... n/(n + 1)
с двумя цифрами в дробной части.
Определить их сумму.
Пример.
const
N = 10;
var
x, s : real;
i : Byte;
begin
s := 0;
for i := 1 to N do begin
x := i/(i + 1);
WriteLn(i:3, x:6:2);
s := s + x;
end;
WriteLn;
WriteLn('SUM(', N, ') = ', s:6:2);
end.
2. Загрузите значения членов последовательности
из задачи 1 в одномерный массив.
Последнему элементу массива присвойте их сумму.
Распечатайте массив в одну колонку.
3. Выведите числа в один текстовый файл,
а сумму в другой файл.
4.* Напишите две функции. Первая функция вычисляет
значение члена последовательности из задачи 1
с заданным номером, который указывается в качестве аргумента.
Вторая функция вычисляет сумму заданного количества
членов последовательности, которое будет аргументом функции.
Пример.
function MyElement(id : Word): real;
begin
{...}
end;
function SumElements(n : Word): real;
var
x, s : real;
i : Byte;
begin
{...}
SumElements := s;
end;
var
i, k : Word;
x, s : real;
begin
i := 5;
x := MyElement(i);
WriteLn(i:3, x:6:2);
k := 6;
s := SumElements(k);
WriteLn('SUM(', k, ') = ', s:6:2);
end.
5.** Используя функции, написанные в задаче 4,
загрузите значения членов последовательности
из задачи 1 в колонки двумерного массива следующим
образом. В 1-ю колонку выведите одно первое значение.
Во 2-ю колонку 1-е и 2-е значения - в первых двух строках,
а в последней - сумму этих двух значений и т.д.
В последней колонке должны быть все N значений,
а в ее последнем элементе - сумма этих N значений.
Сколько строк и колонок должно быть в массиве, если
задать количество членов последовательности N = 10.
Распечатайте массив.