Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Сколько дней понадобится предприятию, чтобы кол-во выпущенной продукции превысило план. Блок-схема и программа 5. Малое предприятие в первый день работы выпустило P единиц товарной продукции. Каждый последующий день оно выпускало продукции на Q единиц больше, чем в предыдущий. Сколько дней потребуется предприятию, чтобы общее количество выпущенной продукции за все время работы впервые превысило запланированный объем? Помогите Пожалуйста!!! Заранее Спасибо!!!:) https://www.cyberforum.ru/ pascalabc/ thread1045686.html В двумерном массиве С(6,6) поменять местами элементы симметрично относительно главной диагонали Pascal ABC
В двумерном массиве С(6,6) поменять местами элементы симметрично относительно главной диагонали. помогите пожалуйста
Pascal ABC Найти количество положительных элементов массива. Блок-схема и программа 4. Задан одномерный массив из n элементов.Найти количество положительных элементов массива. https://www.cyberforum.ru/ pascalabc/ thread1045684.html Pascal ABC Сортировка массива по убыванию. Блок-схема и программа 3.Задан одномерный массив. Отсортировать массив в порядке убывания элементов. https://www.cyberforum.ru/ pascalabc/ thread1045682.html
Найти наибольший из элементов массива, имеющих нечетные индексы. Блок-схема и программа Pascal ABC
2.Задан двухмерный массив. Найти наибольший из элементов массива, имеющих нечетные индексы. Добавлено через 20 минут Помогите с задачкой!!!:)
Pascal ABC Найти сумму элементов первой и третьей строк матрицы. Блок-схема и программа https://www.cyberforum.ru/ pascalabc/ thread1045675.html
1.Задан двухмерный массив. Найти сумму элементов первой и третьей строк матрицы.
Pascal ABC Расставить в календарном порядке https://www.cyberforum.ru/ pascalabc/ thread1045663.html
Помогите написать программу в паскале: Вводится следующая информация - наименования изделий и даты их выпуска. Каждая дата вводится в виде ГГГГ.ММ. Упорядочить информацию, расставив даты в календарном порядке.
Pascal ABC Программа для поиска определенного типа людей в массиве записей
program df; type chelovek=record name:string; zp:real; end; const count=3; var katalog:array of chelovek; num:1..count; s:string;
Pascal ABC Вывод всех четных чисел в диапазоне от 2 до 100 включительно С помощью https://www.cyberforum.ru/ pascalabc/ thread1045650.html Pascal ABC Блок-схема https://www.cyberforum.ru/ pascalabc/ thread1045625.html
Помогите написать блок-схему. uses crt; var a:array of integer; n,z,x,i,j:integer; begin write('Введите длину массива ='); read(n); z:=1; for i:=1 to n do
Pascal ABC Блок-схема
Помогите построить блок-схему. uses crt; type docent=record fio, uchet, data:string; godr,stat:integer; end; var gr:array of docent; i,n:integer;
Pascal ABC Определить значение среднего арифметического массива https://www.cyberforum.ru/ pascalabc/ thread1045593.html
Здравствуйте! Вот моя задача, которую я попытался решить: "Определить значение среднего арифметического ("SR") всего массива . Заменить в каждой строке массива минимальный элемент на значение SR. Выдать на печать преобразованный массив." Минимальные элеметы в каждой строке я нашел, они отображаются, но с заменой их на среднее арифметическое ничего не получается. Заменяются либо не те...
696 / 570 / 414
Регистрация: 31.03.2013
Сообщений: 1,029
17.12.2013, 22:03 0

Вычисление двойного факториала - Pascal ABC - Ответ 5512949

17.12.2013, 22:03. Показов 1596. Ответов 1
Метки (Все метки)

Ответ

neolanta,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var n,i:integer;
    f:longint;
begin
  write('n = ');readln(n);
  if n<0 then writeln('n>0!')
  else
  begin
    if n=0 then f:=1
    else
      begin
        f:=1; i:=1;
        repeat
          f:=f*i;
          inc(i,2);
        until i>n;
      end;
    writeln(n,'!! = ',f);
  end;
  readln
end.
Вы наверное хотели сказать n=9!!=945

Вернуться к обсуждению:
Вычисление двойного факториала Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.12.2013, 22:03
Готовые ответы и решения:

Функция двойного факториала
Описать функцию Fact 2 (N) вещественного типа, вычисляющую значение двойного факториала ...

Описать рекурсивную функцию Fact2(N) вещественного типа, вычисляющую значение двойного факториала
Описать рекурсивную функцию Fact2(N) вещественного типа, вычисляющую значение двойного факториала ...

Описать функцию целого типа, вычисляющую значение "двойного факториала"
Описать функцию Fact2(N) целого типа, вычисляющую значение &quot;двойного факториала&quot;: N!! =...

Вычисление факториала и вычисление степени числа
Нужно проверить правильность сделанной программы если не правильно помогите исправить. Var...

1
17.12.2013, 22:03
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.12.2013, 22:03
Помогаю со студенческими работами здесь

Вычисление факториала в графике
Реализовать с графическим интерфейсом вычисление факториала ( рекурсивно и генерационно ) ...

Вычисление факториала с использованием рекурсии
function Factrl (n: integer): longint; begin if n = 0 then Factrl:= 1; if n = 1 then ...

Вычисление факториала с помощью рекурсии
Составление и отладка программы с внешними модулями. Написать внешний модуль для вычисления с...

Вычисление факториала с использованием функции
function fact(n:byte):integer; var k : longint; j : byte; begin k:= 1; for j:= 2 to n do...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru