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. Выдать на печать преобразованный массив." Минимальные элеметы в каждой строке я нашел, они отображаются, но с заменой их на среднее арифметическое ничего не получается. Заменяются либо не те...

neolanta

0 / 0 / 1

Регистрация: 17.12.2013

Сообщений: 5

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

17.12.2013, 19:15. Показов 1531. Ответов 1

Метки (Все метки)

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

Помогите пожалуйста,исправить ошибку.
Вычисление двойного факториала (2n+1)!! (например 9!!=9*7*5*3*1);
Код:

Pascal

PROGRAM PR;
USES CRT;
VAR N,I,k:INTEGER;
    P:longint;
BEGIN
CLRSCR;
WRITELN('INPUT N');READLN(N);
IF N=0 THEN WRITELN('O!=1') ELSE
IF N<0 THEN WRITELN('VVEDITE POLOGITELNOE CHISLO') ELSE
BEGIN
P:=1;
k:=2*n+1;
FOR I:=k downTO 1 DO begin
dec(i,2);
P:=P*k;
end;
WRITELN(P);
END;
READKEY;
END.

не правильно выводит ответ. Ввожу n=4, выводит 729, а должно быть 945!!!

Вернуться к обсуждению:
Вычисление двойного факториала Pascal ABC

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

17.12.2013, 19:15

Готовые ответы и решения:

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

17.12.2013, 19:15

Помогаю со студенческими работами здесь

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

Вычисление факториала с использованием рекурсии
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...

Наверх