Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 1
Регистрация: 25.06.2012
Сообщений: 24

Дано натуральное n. Вычислить n!

25.06.2012, 11:27. Показов 858. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
3.дано натуральное n.вычислить n!
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
25.06.2012, 11:27
Ответы с готовыми решениями:

Дано натуральное число N. Вычислить S
Дано натуральное число N. Вычислить S Cos1/sin1 * (cos1+cos2)/(sin1+sin2)....cos1+cos2+.......cosN/sin1+sin2....sinN составить программу...

Дано натуральное число N. Вычислить последовательность
Доброе время суток, уважаемые программисты Помогите, пожалуйста, решить в Паскале: 2/3*4/5*6/7*...*N/(2N+1) Заранее благодарю

Дано натуральное число n. Вычислить сумму ряда
Помогите плиз сделать программу на Free Pascal (тематика - Программирование циклических алгоритмов.)

4
154 / 154 / 81
Регистрация: 16.06.2012
Сообщений: 314
25.06.2012, 17:39
3 задача
Pascal
1
2
3
4
5
6
7
8
Var f , n , i : longint;
Begin
    f := 1;
    ReadLn(n);
    for i := 2 to n do
        f := f * i;
    WriteLn(f); 
End.
0
 Аватар для SeryZone
56 / 28 / 18
Регистрация: 09.03.2012
Сообщений: 726
Записей в блоге: 1
26.06.2012, 18:56
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
function fact(n : integer) : longint;
  begin
    if n <= 1 then
      fact := 1
    else
      fact := n * fact(n - 1);
  end;
var x:integer;
begin
readln(x);
writeln(n,'! = ',fact(x));
end.
Рекурсия - самый быстрый метод!
0
154 / 154 / 81
Регистрация: 16.06.2012
Сообщений: 314
26.06.2012, 18:58
С каких пор рекурсия стала самым быстрым методом ?)

Добавлено через 1 минуту
Цитата Сообщение от SeryZone Посмотреть сообщение
readln(x);
writeln(n,'! = ',fact(x))
возможно здесь не n, а х?
0
 Аватар для SeryZone
56 / 28 / 18
Регистрация: 09.03.2012
Сообщений: 726
Записей в блоге: 1
27.06.2012, 10:36
Да, извини, не заметил.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
27.06.2012, 10:36
Помогаю со студенческими работами здесь

22. Дано натуральное п. Вычислить:(скрин примера вложен)
Дано натуральное п. Вычислить(Free pascal): Или хотя бы скажите какую формулу применять

Дано натуральное число n. Вычислить произведение первых n сомножителей 1/2*3/4*5/6*...;
Использовать оператор цикла с параметром. Массивы не использовать. var ch,n,i:integer; {pr-произведение, ch-числитель} pr:real;...

Дано натуральное число N. Вычислить S=sin x+ sin sinx +...+sin sin....sin x
Дано натуральное число N. Вычислить S (составить программу с использованием операторов While и Repeat) S=sin x+ sin sinx +...+sin...

Дано натуральное число n.
Помогите, пожалуйста, написать программу. 1. Дано натуральное число n и действительное число х. Вычислить: x( x - n )( x - 2 n )( x - 3...

Дано натуральное число P
Определить все простые числа, не превосходящие P. Знаю, что это простая задача, но все равно помогите доработать. Никак не врубаюсь. uses...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru