По разделам



Задача For 21


Дано целое число N (> 0). Используя один цикл, найти сумму
1 + 1/(1!) + 1/(2!) + 1/(3!) + . . . + 1/(N!)
(выражение N! — N–факториал — обозначает произведение всех целых
чисел от 1 до N: N! = 1·2·. . .·N). Полученное число является приближенным значением константы e = exp(1).

Код (C/C++)

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

int main() {
	srand((int)time(0));
	int N;
	N = rand() % 20 + 1;
	cout << "Number N: " << N << endl;
	
	double f = 1, s = 1;
	for(int i = 1; i <= N; i++) {
		f /= i;
		s += f;
		cout << i << " : "<< f << " : "<< s << endl;
	}
	cout << "Result: " << s << endl;
	cout << "e = " << exp(1) << endl;
	
	return 0;
}

Код (Python)

import random
import math
N = random.randrange(1,15)
N = 20
print('N = ', N)

F = 1.0
S = 1.0
for i in range(1,N+1):
    F /= i
    S += F
    print(i," : ", F," : ", S)
print("Result:",S)
print("e = ",math.exp(1))
									

Код (Pascal)

program For21;
var
  Rez,factorial:Real;
  N, i :Integer;
begin
  Write('Введите N: ');
  Readln(N);
  Rez:=1;
  factorial:=1;
  For i:=1  to N do
   begin
    factorial:=factorial*i;
    Rez:=Rez+1/factorial;
   end;
  Writeln(Rez);
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 Просмотров: 17
For 22 Просмотров: 15
For 23 Просмотров: 21
For 24 Просмотров: 16
For 25 Просмотров: 13
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 Просмотров: 11
For 38 Просмотров: 19
For 39 Просмотров: 13
For 40 Просмотров: 13

Комментарии

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