Задание 2.

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>