4. Задание 4

Для выполнения данного задания воспользуемся средой программирования

PascalABC.Net. Вот код выполнения данной программы:

var

Ak, Ak1, Ak2, Ak3: Real;

N, i: Integer;

begin

Write('Введите N: ');

Readln(N);

Writeln('Значения функции:');

Writeln('A(1)=1');

Writeln('A(2)=2');

Writeln('A(3)=3');

Ak1 := 1;

Ak2 := 2;

Ak3 := 3;

for i := 4 to N do

begin

Ak := Ak3 + Ak2 - 2 * Ak1;

Writeln('A(', i, ')=', Ak);

Ak1 := Ak3;

Ak2 := Ak2;

Ak3 := Ak;

end;

end.

Разберем данный код по фрагментам:

1. Фрагмент 1:

var

Ak, Ak1, Ak2, Ak3: Real;

N, i: Integer;

begin

Write('Введите N: ');

Readln(N);

Writeln('Значения функции:');

Writeln('A(1)=1');

Writeln('A(2)=2');

Writeln('A(3)=3');

Ak1 := 1;

Ak2 := 2;

Ak3 := 3;

Данный фрагмент указывает тип данных и присваивает значения первых трех членов как задано в условии.

2. Фрагмент 2

for i := 4 to N do

begin

Ak := Ak3 + Ak2 - 2 * Ak1;

Writeln('A(', i, ')=', Ak);

Ak1 := Ak3;

Ak2 := Ak2;

Ak3 := Ak;

end;

end.

Данный фрагмент представляет собой цикл который будет считать значения до указанного нами в начале программы значения, затем будут выполняться арифметические действия и в результате на экран будет выводиться значения N элементов:

5. Заключение

Следуя цели данной лабораторной работы, были закреплены теоретические и практические навыки, освоены приемы записи математических выражений на алгоритмическом языке. Получены навыки практической работы по вычислению математических выражений в различных программных средах — электронных таблицах, инженерных калькуляторах, специальных математических пакетах, средствах некоторых языков программирования.

6. Список используемой литературы

1. Интернет ресурсы.

2. Лекционные материалы.

3. Теоритические материалы лабораторной работы.