Процедуры. Написать программу вычисления суммы факториалов всех нечетных чисел от 1 до 9.

@serega29 · Регистрация: 02.03.2010

Студворк — интернет-сервис помощи студентам

написать программу вычисления суммы факториалов всех нечетных чисел от 1 до 9.
выручайте плиз)

@Жека-старший · 30.03.2010, 18:07

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
procedure pr_fac(var sum:longint);
var fac,i,j:longint;
begin
  sum:=0;
  for i:=1 to 5 do
  begin
    fac:=1;
    for j:=2 to (2*i-1) do
    fac:=fac*j;
    sum:=sum+fac;
  end;
end;

@serega29 · 30.03.2010, 19:26 **[ТС]**

не работает(

@Жека-старший · 30.03.2010, 19:37

покажи всю программу

Добавлено через 1 минуту
как ты её вызывал в основном модуле?

Добавлено через 4 минуты
1+6+120+720+5040+362880=368047

у меня все идет

@Adiga-07 · 30.03.2010, 19:51

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var s,f:real;
    i,j:byte;
    n:integer;
begin
clrscr;
writeln('n=');
readln(n);
s:=0;
for i:=1 to n do 
  for j:=1 to 2*i-1 do
  s:=s+j;
write('Summa=',s:0:4);
readln;
end.

вместо n присваиваешь 9

@Жека-старший · 30.03.2010, 20:24

если тебе нужно тупо найти сумму нечетных факториалов от 1 до 9, зачем вводить n?
во вторых s:=s+j;... такого я не писал...я писал...внимательней прочти...
ща выложу

Добавлено через 2 минуты

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var sum,fac:real;
i,j:byte;
n:integer;
begin
clrscr;
writeln('n=');
readln(n);
sum:=0;
  for i:=1 to (n div 2)+(n mod 2) do
  begin
    fac:=1;
    for j:=2 to (2*i-1) do
    fac:=fac*j;
    sum:=sum+fac;
  end;
write('Summa=',sum:0:4);
readln;
end.

@serega29 · 06.04.2010, 19:50 **[ТС]**

эта тоже не катит((я каэш нуб в паскале может
надо чтоб процедура в программе была
в итоге должно получиться: 1+1*2*3+1*2*3*4*5+1*2*3*4*5*6*7+1*2*3*4* 5*6*7*8*9=368047

@Жека-старший · 06.04.2010, 20:50

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var sum:real; n:integer;
procedure pr_sum(n:byte;var sum:real);
var fac:real; i,j:byte;
begin
  sum:=0;
  for i:=1 to (n div 2)+(n mod 2) do
  begin
    fac:=1;
    for j:=2 to (2*i-1) do
    fac:=fac*j;
    sum:=sum+fac;
  end;
end;
begin
  writeln('n=');
  readln(n);
  pr_sum(n,sum);
  writeln('Summa=',sum:0:4);
  readln;
end.

@Жека-старший · 06.04.2010, 20:51

вот просмотри результат

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@serega29 2 / 2 / 0 Регистрация: 02.03.2010 Сообщений: 8

	Процедуры. Написать программу вычисления суммы факториалов всех нечетных чисел от 1 до 9. 30.03.2010, 17:42. Показов 20699. Ответов 8 Метки нет (Все метки) написать программу вычисления суммы факториалов всех нечетных чисел от 1 до 9. выручайте плиз) 0

@serega29 2 / 2 / 0 Регистрация: 02.03.2010 Сообщений: 8
	30.03.2010, 19:26 [ТС]
	не работает( 0

@Жека-старший Студент 498 / 344 / 162 Регистрация: 15.03.2010 Сообщений: 601
	30.03.2010, 19:37
	покажи всю программу Добавлено через 1 минуту как ты её вызывал в основном модуле? Добавлено через 4 минуты 1+6+120+720+5040+362880=368047 у меня все идет 0

@serega29 2 / 2 / 0 Регистрация: 02.03.2010 Сообщений: 8
	06.04.2010, 19:50 [ТС]
	эта тоже не катит((я каэш нуб в паскале может надо чтоб процедура в программе была в итоге должно получиться: 1+123+12345+1234567+1234 56789=368047 0