Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal В заданном одномерном массиве найти последний отрицательный элемент http://www.cyberforum.ru/pascal/thread164427.html
В заданном одномерном массиве найти последний отрицательный элемент. Все нечетные элементы заменить на найденные значения
Pascal Переделка с возрастание на убывание Дана небольшая программа. Ввожу элементы одномерного массива. Выводятся они в порядке возрастания. Нужно этим же способом в порядке убывания. Я думал легко получится, заменив просто на минус знак, но... http://www.cyberforum.ru/pascal/thread164420.html
Сортировка вставками Pascal
Помогите плиз!=)) Программно реализовать алгоритм сортировки простыми вставками. Каждая запись будет в качестве ключа содержать текстовое выражение, а в качестве информативной части некоторое число....
Pascal Создать одномерный массив,используя датчик случайных чисел и вывести его на экран (randomize)
Создать одномерный массив,используя датчик случайных чисел и вывести его на экран (randomize). Отсортировать эти элементы и вывести их индексы. Начало: const n=11; var Mas:array of integer;...
Pascal Работа с файлами http://www.cyberforum.ru/pascal/thread164367.html
Есть простая программа для записи чисел в файл program file; var f:file of integer; a,i,n:integer; begin write('n='); readln(n); assign (f,'D:\pas\files\ff.dat');
Pascal Получить путь к исполняемому файлу такой вопрос, мне надо написать функцию, которая будет возвращать путь к файлу. то есть к примеру я запускаю файл с рабочего стола и она возвращает мне C:\Documents and Settings\LuCiFeRR\Рабочий... подробнее
Mawrat
12830 / 5738 / 1700
Регистрация: 19.09.2009
Сообщений: 8,807
09.09.2010, 09:34 0

Определить факториал числа

09.09.2010, 09:34. Просмотров 1857. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено дима8316 как решение

Решение

1, 2, 3 задачи.
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
program Project1;
 
(*Вычисление факториала.*)
function Fact(const aN : Word) : Extended;
var
  i : Word;
  Res : Extended;
begin
  Res := 1;
  for i := 2 to aN do Res := Res * i;
  Fact := Res;
end;
 
(*Вычислить значение выражения.*)
function Calc(const aN : Word) : Extended;
var
  i : Word;
  Res : Extended;
begin
  Res := 0;
  for i := 1 to aN do Res := Res + i * Fact(i);
  Calc := Res;
end;
 
(*Вычислить степень числа. Для случая, когда степень представлена целым числом.*)
function DoExp(const aNum : Extended; const aExp : Integer) : Extended;
var
  vExp, i : Integer;
  Res : Extended;
begin
  vExp := Abs(aExp);
  Res := 1;
  if aExp > 0 then
    for i := 1 to vExp do Res := Res * aNum
  else if aExp < 0 then
    for i := 1 to vExp do Res := Res / aNum
  ;
  DoExp := Res;
end;
 
var
  N : Integer;
  Num, Res : Extended;
  S : String;
begin
  repeat
    Writeln('Задача 1. Вычислить значение выражения: s=1*1+2*2+...+n*n!.');
    repeat
      Writeln('Задайте целое N, большее нуля:');
      Readln(N);
      if N < 1 then
        Writeln('Следует задать целое N большее нуля. Повторите ввод.')
      ;
    until not (N < 1);
    Res := Calc(N);
    Writeln('Результат: ', Res);
    Writeln;
 
    Writeln('Задача 2. Вычислить степень числа.');
    repeat
      Writeln('Задайте число:');
      Readln(Num);
      Writeln('Задайте целочисленную степень:');
      Readln(N);
      if (Num = 0) and (N < 0) then
        Writeln('Нельзя возвести ноль в отрицательную степень. Повторите ввод.')
      ;
    until not ( (Num = 0) and (N < 0) );
    Res := DoExp(Num, N);
    Writeln('Результат: ', Res);
    Writeln;
 
    Writeln('Задача 3. Вычислить факториал числа.');
    repeat
      Writeln('Задайте целое неотрицательное число:');
      Readln(N);
      if N < 0 then
        Writeln('Следует задать целое неотрицательное число. Повторите ввод.')
      ;
    until not (N < 0);
    Res := Fact(N);
    Writeln('Результат: ', Res);
    Writeln;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.
---
Ну вот, повтор темы оказался - это решали уже...

Вернуться к обсуждению:
Определить факториал числа
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.09.2010, 09:34

Вычислить факториал числа (через оператор цикла с известным числом повторений)
Не могу решить задачу, помогите пожалуйста. Вот: Вычислить к! (Решить через...

Определить все натуральные числа m, не превосходящие числа N. Сумма всех цифр числа m-простое число.
Уславие Определить все натуральные числа m, не превосходящие числа N. Сумма...

Комментарий к программе. Определить сумму и количество цифр данного числа числа
Дано некоторое целое число. Определить сумму и количество цифр этого числа....

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru