Добавил:
hunter__3211
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:паскаль последовательность
.pas 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;
readln();
end.
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;
readln();
end.
Соседние файлы в предмете Алгоритмические языки и основы программирования