Помогиттеееее пожалуйста, буду очень благодарна!!! - Форум
Воскресенье, 04.12.2016, 17:10
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, PASCAL26, atvrider 
Форум » Решение задач по информатике » Другие задания » Помогиттеееее пожалуйста, буду очень благодарна!!!
Помогиттеееее пожалуйста, буду очень благодарна!!!
лимонкаДата: Среда, 08.04.2009, 08:12 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Привет =)) а не поможете с такими задачами :
Дано натуральное n и действительное х число, Вычислить :

1. (1/1! + х) + (1/2! + х) + (1/3! + х)...

2. (1+ sin(x)/1! )* (1+sin(2x)/2!) ... (1+sin(nx)/n!)

заранее огромное спасибо! Очень нужно cry

 
YurraДата: Суббота, 11.04.2009, 23:16 | Сообщение # 2
Генерал-лейтенант
Группа: Участник
Сообщений: 69
[ 10 ]
Статус: Offline
Quote (лимонка)
Дано натуральное n и действительное х число, Вычислить : 1. (1/1! + х) + (1/2! + х) + (1/3! + х)...

я так понял что в данной сумме n слагаемых, тогда

Code

program num1;
  var c,n:integer;
      x,t,summ:real;
   begin
   write('n=');
   readln(n);
   write('x=');
   readln(x);
   summ:=x*n; {сумма всех Х}
   t:=1;{переменная для хранения факториалов}
   for c:=1 to n do
    begin
    t:=t*c; {значение текущего факториала}
    summ:=summ+1/t;
    end;
   writeln('сумма равна ',summ);
   readln;
   end.


Коплю на новую машину, помогите кто чем может
 
Форум » Решение задач по информатике » Другие задания » Помогиттеееее пожалуйста, буду очень благодарна!!!
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016