Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Pascal (Паскаль)
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Старый 19.05.2011, 23:53   #1
Rikihers1
Новичок
 
Регистрация: 15.05.2011
Сообщений: 11
Репутация: 0 (0)
Факториалы / Pascal (Паскаль)

Вычислить у=1!+2!+3!+...+п!
п = const
Старый 19.05.2011, 23:58   #2
lamed
Форумчанин
 
Регистрация: 07.05.2011
Сообщений: 590
Репутация: 293 (293)
Лучшие ответы: 3
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{ Вычислить у=1!+2!+3!+...+п! }
var
  i, n: integer;
  y, u: longint;
begin
  readln(n);
  u:=1;
  y:= 0;
  for i:= 1 to n do
    begin
      u:=u*i;
      y:= y+u;
    end;
  writeln('y=',y);
  readln;
end.
Другие темы раздела Форум программистов Pascal. Программирование с использованием языка Pascal (Паскаль). Помощь в решении задач.
Pascal Вычислить значение многочлена a0x^n+a1x^n-1+...+an-1x+an и его производной в точке x = 0.5.
Даннo натуральное число n и, действительные числа x, a0, a1, ..., an. Вычислить значение многочлена a0x^n+a1x^n-1+...+an-1x+an и его производной в точке x = 0.5. ^2- ето типа в степени два.)
Zadacha цыклы Pascal
S=sqrt(3+sqrt(6+...+sqrt(3(n-1+sqrt)))) n- натуральное число
Старый 19.05.2011, 23:58
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
С++ для начинающих Факториалы
http://acm.timus.ru/problem.aspx?space=1&num=1083 помогите решить эту задачу у меня мысль есть, но похоже неправильная. #include "iostream" using namespace std; int main() {
NeRRouZ
Turbo Pascal Факториалы.
Привет всем! Помогите довести до ума задачу. Вот что то попробовал написать...(само задание на фото) uses crt; var a,k,l,n,p,p1,p2,p3,s,x:integer; begin for k:= 1 to n do begin p:=p*k; a:=k+3; if k mod 2 = 0 then begin p1:= p1*k; p3:= p1-x*p; l:= a/(x*p)+p1/p3;
fastkiller
С++ для начинающих Факториалы...
Приветствую. Если напишу, что нужна помощь в решении задачи - сурово вас обману. Помощь не нужна - нужно решение. Язык - Си, среда Dev-C++ Написать функцию для вычисления значения Вычислить с ее помощью значения S(n) для n от 12 до 24 с шагом 4 Добавлено через 21 час 8 минут Благодаря...
dimaki
QBasic факториалы
sh(x)= x+ (x^3/3!) + (x^5/5!) +(x^7/7!)+... +(X^(2n+1)/(2n+1)!)
Тимур555
Опции темы

Текущее время: 16:45. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.