По разделам



Задача For 35


Дано целое число N (> 2). Последовательность целых чисел AK определяется следующим образом:
A1 = 1, A2 = 2, A3 = 3,
AK = AK−1 + AK−2 − 2·AK−3, K = 4, 5, . . . .
Вывести элементы A1, A2, . . . , AN .

Код (C/C++)

#include <bits/stdc++.h>
using namespace std;

int main() {
	srand((int)time(0));
	int N = rand() % 50 + 4;
	N = 150;
	
	double A1 = 1.0, A2 = 2.0, A3 = 3.0;
	double A4;
	cout.precision(20);
	cout << 1 << " : " << A1 << endl;
	cout << 2 << " : " << A2 << endl;
	cout << 3 << " : " << A3 << endl;
	for(int k = 4; k <= N; k++) {
		A4 = A3 + A2 - 2*A1;
		cout << k << " : " << A4 << endl;
		A1 = A2;
		A2 = A3;
		A3 = A4;
	}
	cout << "N = " << N << endl;
	
	return 0;
}

Код (Python)

for N in range(2,63,10):
    print("N = ",N)
    A1 = 1
    A2 = 2
    A3 = 3
    print(1," : ",A1)
    print(2," : ",A2)
    print(3," : ",A3)
    for k in range(4,N+1):
        A4 = A3 + A2 - 2*A1
        print(k," : ",A4)
        A1 = A2
        A2 = A3
        A3 = A4
    print()
									

Код (Pascal)

program For35;
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:=Ak2;
   Ak2:=Ak3;
   Ak3:=Ak;
  end;
end.
									




For. Абрамян
For 1 Просмотров: 21
For 2 Просмотров: 17
For 3 Просмотров: 11
For 4 Просмотров: 19
For 5 Просмотров: 16
For 6 Просмотров: 14
For 7 Просмотров: 14
For 8 Просмотров: 13
For 9 Просмотров: 10
For 10 Просмотров: 14
For 11 Просмотров: 15
For 12 Просмотров: 22
For 13 Просмотров: 15
For 14 Просмотров: 16
For 15 Просмотров: 14
For 16 Просмотров: 14
For 17 Просмотров: 16
For 18 Просмотров: 16
For 19 Просмотров: 14
For 20 Просмотров: 11
For 21 Просмотров: 15
For 22 Просмотров: 13
For 23 Просмотров: 18
For 24 Просмотров: 13
For 25 Просмотров: 11
For 26 Просмотров: 13
For 27 Просмотров: 8
For 28 Просмотров: 21
For 29 Просмотров: 11
For 30 Просмотров: 8
For 31 Просмотров: 8
For 32 Просмотров: 9
For 33 Просмотров: 13
For 34 Просмотров: 9
For 35 Просмотров: 8
For 36 Просмотров: 13
For 37 Просмотров: 9
For 38 Просмотров: 17
For 39 Просмотров: 10
For 40 Просмотров: 8

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться