По разделам



Задача For 32


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

Код (C/C++)

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

int main() {
	srand((int)time(0));
	int N = rand() % 100 + 1;
	//N = 530;
	
	double A0 = 0.0;
	double A1;	
	cout.precision(20);
	for(int k = 1; k <= N; k++) {
		A1 = (A0 + 1.0)/k;
		cout << k << " : " << A1 << endl;
		A0 = A1;
	}
	cout << "N = " << N << endl;
	
	return 0;
}

Код (Python)

for N in range(1,32,5):
    print("N = ",N)
    A0 = 1
    for k in range(1,N+1):
        A1 = (A0 + 1)/k
        print(k," : ",A1)
        A0 = A1
									

Код (Pascal)

program For32;
var
  Ai :Real;
  N, i :Integer;
begin
  Write('Введите N: ');
  Readln(N);
  Writeln('Значения функции:');
  Writeln('A(0)=1');
  Ai:=1;
  For i:=1  to N do
  begin
   Writeln('A(',i,')=',(Ai+1)/i);
   Ai:=(Ai+1)/i;
  end;
end.
									




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

Комментарии

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