Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 23, средняя оценка - 4.83
bogdanustimov
20 / 20 / 6
Регистрация: 31.12.2010
Сообщений: 112
#1

Факториал - Turbo Pascal

08.02.2011, 16:40. Просмотров 2827. Ответов 4
Метки нет (Все метки)

Помогите пожалуйста:
Програма должна щитать факториал числа,
но при вводе числа большего чем 7, выдаёт отрецательный результат.
Подскажите в чём ошыбка.
Вот код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program Faktorial;
Uses CRT;
Var a, b, c:integer;
Label 1;
Begin
clrscr;
c:=0;
b:=1;
write('Vvedite 4islo:');
read(a);
1: c:=c+1;
b:=b*c;
if c=a then 
writeln('Faktorial: ',b)
else goto 1;
readkey;
End.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.02.2011, 16:40
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Факториал (Turbo Pascal):

Факториал - Turbo Pascal
Найти сумму факториалов нечетных чисел в диапазоне в от n до m. Оператор: repeat Прошу помочь. Заранее благодарю. Добавлено...

факториал - Turbo Pascal
Задачи по программированию для первого модуля 1. Напишите программу для вычисления факториала с использованием оператора цикла с...

факториал - Turbo Pascal
Вычислить сумму S=1!+3!+5!+n! с помощью функции function. помогите пожалста!

Факториал - Turbo Pascal
1. Вычислить Вычисление факториала числа оформите в виде подпрограммы.

Факториал - Turbo Pascal
Ребят помогите плз с примерчиком Разработать программу для определения и вывода на экран значения функции y=f(x). Исходное значение n.m...

факториал - Turbo Pascal
найти значение выражения 2*5!+3*8! / 6!+4! ,определяет функцию расчета факториала натурального числа!!!!! помогите плеасе!!!срочно нужно!!

4
Puporev
Модератор
53020 / 40831 / 14075
Регистрация: 18.05.2008
Сообщений: 94,978
08.02.2011, 16:54 #2
тип integer заменить на Longint будет до 12, вообще нужно взять вещественный тип, лучше extended.
Pascal
1
2
Var a,c:integer;
    b:real;
Добавлено через 37 секунд
Вывод
Pascal
1
writeln('Faktorial: ',b:0:0);
1
Wanee
54 / 54 / 13
Регистрация: 02.02.2011
Сообщений: 434
09.02.2011, 16:16 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
{$N+}
 
uses crt;
 
var
   fact:extended;
   i,n:integer;
 
begin
   clrscr;
   readln(n);
   fact:=1;
   for i:=1 to n do
      fact:=fact*i;
   write(fact:0:0);
   readkey;
end.
2
bogdanustimov
20 / 20 / 6
Регистрация: 31.12.2010
Сообщений: 112
16.02.2011, 16:31  [ТС] #4
Спасибо за помощ.

Добавлено через 1 минуту
Цитата Сообщение от Wanee Посмотреть сообщение
{$N+}
Wanee можете обяснить что ето значит (1 строка).
0
Wanee
54 / 54 / 13
Регистрация: 02.02.2011
Сообщений: 434
16.02.2011, 16:43 #5
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Это директива. Она нужна для активизации более больших вещественных типах данных. В данном случай extended. Вот почитайте:
3
Миниатюры
Факториал  
16.02.2011, 16:43
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.02.2011, 16:43
Привет! Вот еще темы с ответами:

Факториал - Turbo Pascal
Доброго вечера, знатоки. Подскажите, как можно записать факториал в данном выражении a:=n+1/n!; А то что - то туплю я. Var...

факториал - Turbo Pascal
Вычислить факториал:n!напримере n=1000.Результат построить в виде целого числа

Факториал - Turbo Pascal
Найти все натуральные числа,не превосходящие 50000 равные сумме факториалов своих цифр. Факториал числа N обозначается N!. ...

Факториал - Turbo Pascal
используя цикл с предусловием,написать прогу вычисления N!


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

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