Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
0 / 0 / 0
Регистрация: 19.11.2010
Сообщений: 6

Вывести значения всех факториалов от 1 до n

19.11.2010, 22:26. Показов 2492. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
помогите пожалуйста .

Ввести целое n , если n > 0, то вывести в каждой строке значения всех
факториалов от 1 до n с указанием при этом сомножителей из которых
он состоит. Например, для n = 5 формат вывода таков:
1=1
1*2=2
1*2*3=6
1*2*3*4=24
1*2*3*4*5=120 (при помощи цикла)
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
19.11.2010, 22:26
Ответы с готовыми решениями:

Если n > 0, то вывести в каждой строке значения всех факториалов от 1 до n
помогите пожалуйста . Ввести целое n , если n > 0, то вывести в каждой строке значения всех факториалов от 1 до n с указанием при...

Вывести числа, имеющие значения меньше максимального и больше среднего значения всех элементов массива
Задан массив целых чисел. Вывести на экран числа, имеющие значения меньше максимального и больше среднего значения всех элементов массива.

Сумма факториалов всех четных чисел от m до n.
Составить программу для вычисления суммы факториал всех парных чисел от m до n.

4
1 / 1 / 0
Регистрация: 21.10.2009
Сообщений: 10
19.11.2010, 23:08
необходимо посчитать y=1+x/2+ x(2)/3+x(3)/4...при /x/<1
расчет продолжать до тех пор пока /y/будет боьлше заданной погрешности е,е<=/x/
помогите найти ошибку
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program lo;
var l,x,e,y,m:real;
    n:integer;
begin
 writeln('vvedite x');
 read(x);
 writeln('vvedite e');
 read(e);
 
  n:=1;
  l:=1;
  m:=1;
begin
  if (e<=abs(x)) and (abs(x)<1) then
  begin
  while abs(l)>=e do
   begin
    n:=n+1;
    m:=m*x;
    l:=x*m/n;
    y:=y+l;
    writeln('y=',y);
   end;
   end
   else writeln('abs(x)>1 or e>=ans(x)');
end;
readln;
0
0 / 0 / 0
Регистрация: 19.11.2010
Сообщений: 6
19.11.2010, 23:13  [ТС]
Блин совсем запутался (((
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,875
19.11.2010, 23:34
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var
 i,k,N:integer;
 f:longint;
begin
write('Ââåäèòå N:=');
readln(N);
if n>0 then
begin
f:=1;
for i:=1 to N do
begin
f:=f*i;
writeln;
 for k:=1 to i do
 if k<>1 then
  begin
   write('*',k);
  end
   else
    write(k);
 write('=',f);
end;
end
 else
  writeln('n<0!!!');
readln;
end.
0
0 / 0 / 0
Регистрация: 19.11.2010
Сообщений: 6
19.11.2010, 23:38  [ТС]
спасибо )) ожна спасенная жизнь на вашем счету )))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
19.11.2010, 23:38
Помогаю со студенческими работами здесь

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

Сумма факториалов всех четных чисел от 2 до 100
Здравствуйте господа. столкнулся с проблемой реализации задачи : Написать программу вычисления суммы факториалов всех четных чисел...

Вычисление суммы факториалов всех нечетных чисел от 1 до 9
Здраствуйте, на свою блондинистую голову, окончив гуманитарный техникум, решила усовершенствовать свои познания в программировании. И вот...

Вычисление суммы факториалов всех четных чисел от 2 до 10
Может кто помочь в первые сталкиваюсь с прологом и практически ничего не понимаю... Нужно написать программу : Вычисление суммы...

Сумма факториалов всех нечетных чисел от 1 до 9 РЕКУРСИЕЙ
написать программу для вычисления сумму факториалов всех нечетных чисел от 1 до 9 РЕКУРСИЕЙ Помогите пожалуйста!!!


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru