Задание 2. 1. Числовая последовательность задана рекуррентной формулой

1. Числовая последовательность задана рекуррентной формулой

Задать с консоли два первых члена последовательности и . Найти первые n членов последовательности и их сумму.

Результаты вычислений вывести в виде таблицы с заголовком.

2. Схема алгоритма решения задачи:

3. Код программы

3.1. На языке Паскаль:

Program Variant_0;

Uses WinCRT;

Var s, k, a1, a2, a, n: Word;

Begin

WriteLn('Лабораторная работа №4_2');

WriteLn('Вариант №0');

WriteLn('ИС-11-1');

WriteLn('Пупкин Василий');

WriteLn;

{ввод исходных данных}

WriteLn('Ввод исходных данных: ');

Write('a1=');

ReadLn(a1);

Write('a2=');

Readln(a2);

Write('n=');

ReadLn(n);

WriteLn;

WriteLn('----------------');

WriteLn(' k a s');

WriteLn('----------------');

s: =a2+a1; {исходная сумма}

For k: =3 To n Do

Begin

a: =a2+a1; {очередное слагаемое}

s: =s+a; {очередная сумма}

a1: =a2;

a2: =a;

WriteLn(k: 3, ' ', a: 3, ' ', s: 3);

End;

WriteLn('----------------');

WriteLn;

End.

3.2. На языке Си:

#include < stdio.h> //директивы препроцессора

#include < conio.h>

#include < math.h>