Си++ составить программу, вычисляющую и выводящую все члены числового ряда 1, 1/2! , 1/3! , …, 1/n! , значение которых превышает 10-5.

#include< iostream>

using namespace std; long double fac(int n){ if(n < 0) // если пользователь ввел отрицательное число return 0; // возвращаем ноль if (n == 0) // если пользователь ввел ноль, return 1; // возвращаем факториал от нуля - не удивляетесь, но это 1 =) else // во всех остальных случаях return n * fac(n - 1); // делаем рекурсию.}int main()

{ int n; cout < < "enter n: " ; cin > > n; for(int i = 0; i < n; i++) cout < < "a[ " < < i < < " ] = " < < 1/fac(i) < < endl; }

 

данная программа вычисляет   значения ряда, до n-го члена ряда

раньше такого умного друга

у школьников не было в нашей округе.

теперь в каждом доме, на каждом столе,

стоит он, тебе да и мне.

рисует, считает, хоть что вычисляет,

а если захочешь, в игру поиграет.

он — эвм. это имя одно.

а как по-другому зовем мы его? (компьютер)    

бывает струйный, лазерный бывает.

его всегда печатать заставляют.

он на бумагу распечатает что нужно.

печатник этот всем нам нужен. (принтер)

на компьютерном столе

она мне.

колесиком и кнопкой

я ловко. (мышка)

 

компьютер будет молчалив,

коль нет с ним рядом дев таких.

а если есть, он говорит,

поет, играет и пищит.

стоят над ним в сторонке

близняшки две (колонки)

 

клавиатуру изучаю,

где буквы, я запоминаю.

я неуверенно и робко

текст набирал и жал (кнопки)

много кнопок, цифры, буквы,

«enter», «shift», «f2», «f5»,

на и на

можно, дети, с ней писать.

пальцами стучу по ней.

кто она? скажи скорей! (клавиатура)

 

надеюсь азы ты знаешь, поэтому основной код

{pascal abc.net}

1)

readln(a,h);

s: =0.5*a*h;

write(s);

2)

readln(a,b);

if (a> =-1) and (a< =1) then writeln('a принадлежит') else write('a не принадлежит');

if  (b> =-1) and (b< =1) then writeln('b принадлежит') else write('b не принадлежит');

3) вот тебе функция в современных паскалях она везде используется, если нужна будет программа где ее дописать или как использовать, в лс

functionpower(a, b : real) : real;

begin

if a > 0  then power : = exp (b * ln (a))

else

if a < 0  then power : = exp (b * ln (abs (

else power : = 0end;

 

4) самую простенькую на оператор выбора выложу

var a,b: integer;

      d: real;

      c: char;

beginwrite('введите первое число: '); readln(a); write('введите второе число: '); readln(b); write('выберите арифметическое действие: '); readln (c); case c of'+': d: = a+b; '-': d: = a-b; '*': d: = a*b; '/': d: = a/b; end; write('результат: 'd: 10: 4);