М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
tbbkc
tbbkc
25.12.2020 06:36 •  Информатика

Найти сумму ряда, до тех пор пока очередной член ряда не станет меньше 0.000001 паскаль


Найти сумму ряда, до тех пор пока очередной член ряда не станет меньше 0.000001 паскаль

👇
Ответ:
ttleuberlin
ttleuberlin
25.12.2020

На языке С++

Объяснение:

#include <iostream>

using namespace std;

long double fact(int N)

{

   if(N < 0) // если пользователь ввел отрицательное число

       return 0; // возвращаем ноль

   if (N == 0) // если пользователь ввел ноль,

       return 1; // возвращаем факториал от нуля - не удивляетесь, но это 1 =)

   else // Во всех остальных случаях

       return N * fact(N - 1); // делаем рекурсию.

}

int main(){

double ans=1,x;

cin>>x;

double temp=1,tempx,step;

while(temp>=0.000001){

   tempx=1;

for(int i=1;i<step;i++)

tempx *= x;

temp = tempx / fact(step);

ans+=temp;

step++;

}

cout<<ans;

return 0;}

4,5(67 оценок)
Открыть все ответы
Ответ:
kanumah2
kanumah2
25.12.2020
Program arra;
const m=20;
var
B: Array[1..m] Of Integer;
i,j,k:integer;
BEGIN
randomize;
for i:=1 to m do begin 
B[i]:= random(101); 
end;  

write('Массив до сортировки: ');
 for i:=1 to m do begin
 write(B[i]); 
write(' '); 
end; 
writeln;
for i := 1 to m-1 do       
for j := 1 to m-i do       
    if B[j] < B[j+1] then begin     
           k := B[j];           
    B[j] := B[j+1];         
      B[j+1] := k       
    end;         
  write('Массив после сортировки: ');     
      for i:=1 to m do begin 
write(B[i]);
 write(' '); 
end; 
end.
4,5(73 оценок)
Ответ:
Irinazpopo
Irinazpopo
25.12.2020
Uses crt;
type mas = array [1.. 8, 1.. 8] of integer;
var M:mas;i,j,k:integer;
a:array[1..28]of integer;
    begin
        randomize;
             for i:=1 to 8 do
              begin
                 for j:=1 to 8 do
                    begin
                        M[i,j]:=random(190)-95;
                         write(M[i,j]:4);
                     end;
                   writeln;
               end;
for i:=1 to 8 do   
    for j:=1 to 8 do       
           if i>j then           
               begin               
                   k:=k+1;               
                   a[k]:=m[i,j];           
               end;   
writeln;   
       for i:=1 to 28 do       
          write(a[i]:4);   
end.
4,7(43 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ