Опять факториаль=)

@DIMAT · Регистрация: 24.06.2010

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

Друзья, сестра попросила ей по учебе нужно там несколько программ написать, я дотянул до последнего что крайний срок сегодня вечер, сел и начал вспоминать паскаль.
Нужно найти просто факториал, двумя методами:
1. переменные
2. массивы
Я так понимаю переменные это просто цикл и вычисляй факториал, написать не сложно, а про масивы не пойму немного.
Еще вопрос возник какие лучше использовать типы переменных в этом случае?

@Dekio · 14.12.2010, 15:22

integer;

Pascal
1
2
for i:=1 to n do
f:=f*i;

@TAVulator · 14.12.2010, 15:25

Сообщение от DIMAT

Еще вопрос возник какие лучше использовать типы переменных в этом случае?

longint

@DIMAT · 14.12.2010, 15:27 **[ТС]**

Сообщение от Dekio

integer;

Pascal
1
2
for i:=1 to n do
f:=f*i;

ну это не метод массива, меня в данный момент интересует второй метод как сделать через массив

@Dekio · 14.12.2010, 15:30

и при чем здесь массив?
можно через рекурсивную функцию, можно напрямую.

@DIMAT · 14.12.2010, 15:36 **[ТС]**

я не знаю при чем тут массив, в задание сказанно двумя методами переменные и массив.
я не понимаю что тут имеется в виду, я могу предположить что может когда задаем N заполнять массив размером n числами от 1 до n. Но это вообще ни как не нужнаю сложность, есть ли у кого нибудь какие нибудь соображения по этому поводу?

@Dekio · 14.12.2010, 15:40

Сообщение от DIMAT

задаем N заполнять массив размером n числами от 1 до n.

....

Pascal
1
2
3
4
5
readln(n);
for i:=1 to n do
arr[i]:=i;
for i:=1 to n do
f:=f*arr[i];

@DIMAT · 14.12.2010, 16:01 **[ТС]**

как обявить массив?

а вот первый способ, надеюсь без ошибок?

Pascal
1
2
3
4
5
6
7
8
9
10
var y,m,i:integer;
begin
y:=1;
write(' Ukagite m= ');
readln(m);
for i:=1 to n do
  y:=y*i;
writeln('Otvet: ', y);
readkey;
end.

@Dekio · 14.12.2010, 16:07

var
arr :array[1..100] of integer;

@DIMAT · 14.12.2010, 18:24 **[ТС]**

и сново еще задачка вроде все просто но не знаю я паскаль, видел его последний раз лет 5 назад=)
нужно вычистиь сумму S=i(i=1 и стремиться к n) * i!;
на с# для меня это как два плюс два

C#
1
2
3
4
5
6
7
8
int S=0;
for(int i=1; i<n+1;i++)
{
  int FactI=1;
  for(int i2=1; i2<i+1; i2++)
       FactI=FactI*i2;
   S=S+i*FactI;
}

Ну это то насколько я понял вообще эту задачу. Как написать что то вроде этого на pascale

Добавлено через 40 минут
ни кто не подскажет?

@Dekio · 14.12.2010, 19:32

ща переведу.

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

Pascal
1
2
3
4
5
6
7
8
s:=0;
for i:=1 to n+1 do
begin
FactI:=1;
for i2:=1 to i+1 do
FactI:=FactI*i2;
s:=s+i*FactI;
end;

@DIMAT · 15.12.2010, 13:01 **[ТС]**

Точно точно begin - end это тело в паскале

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. 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. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

@DIMAT 2 / 2 / 0 Регистрация: 24.06.2010 Сообщений: 81

	Опять факториаль=) 14.12.2010, 15:19. Показов 1080. Ответов 11 Метки нет (Все метки) Друзья, сестра попросила ей по учебе нужно там несколько программ написать, я дотянул до последнего что крайний срок сегодня вечер, сел и начал вспоминать паскаль. Нужно найти просто факториал, двумя методами: 1. переменные 2. массивы Я так понимаю переменные это просто цикл и вычисляй факториал, написать не сложно, а про масивы не пойму немного. Еще вопрос возник какие лучше использовать типы переменных в этом случае? 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,373 Записей в блоге: 1
	14.12.2010, 15:30
	и при чем здесь массив? можно через рекурсивную функцию, можно напрямую. 0

@DIMAT 2 / 2 / 0 Регистрация: 24.06.2010 Сообщений: 81
	14.12.2010, 15:36 [ТС]
	я не знаю при чем тут массив, в задание сказанно двумя методами переменные и массив. я не понимаю что тут имеется в виду, я могу предположить что может когда задаем N заполнять массив размером n числами от 1 до n. Но это вообще ни как не нужнаю сложность, есть ли у кого нибудь какие нибудь соображения по этому поводу? 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,373 Записей в блоге: 1
	14.12.2010, 16:07
	var arr :array[1..100] of integer; 1

@DIMAT 2 / 2 / 0 Регистрация: 24.06.2010 Сообщений: 81
	15.12.2010, 13:01 [ТС]
	Точно точно begin - end это тело в паскале 0