Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.05.2009, 08:16   #1
Саша91-09
 
Аватар для Саша91-09
 
Регистрация: 04.05.2009
Сообщений: 8
По умолчанию Срочно нужна помощь по паскалю

Нужно составить программу вычисления факториала. С помощью подпрограммы.
Вычислить:12!,17!,32!


пожалуйста помогите!!!
Саша91-09 вне форума Ответить с цитированием
Старый 05.05.2009, 09:13   #2
KORN
Банхаммер
Участник клуба
 
Аватар для KORN
 
Регистрация: 17.02.2007
Сообщений: 1,754
По умолчанию

http://forum.sources.ru/index.php?showtopic=44800

так сложно поискать7 или просто лень7
Перед тем как спросить ищи на форуме и в GOOGLE
KORN вне форума Ответить с цитированием
Старый 05.05.2009, 09:26   #3
Лубышев
Участник клуба
 
Аватар для Лубышев
 
Регистрация: 23.07.2007
Сообщений: 1,054
По умолчанию

Мне кажется все хорошо, но вот только тип данных бы лучше другой. при больших значениях вылетит.

Код:
Function fact(s:integer):real;
var i:integer;
begin
result:=1;
if s<=0 then break;
for i:=1 to s do result:=result*i;
end;
Писано по д'Эльфийски
Лубышев вне форума Ответить с цитированием
Старый 05.05.2009, 09:54   #4
Саша91-09
 
Аватар для Саша91-09
 
Регистрация: 04.05.2009
Сообщений: 8
По умолчанию

Да я просто новенький ниче толком не знаю!! В паскале вообще никто!
Саша91-09 вне форума Ответить с цитированием
Старый 05.05.2009, 09:59   #5
Лубышев
Участник клуба
 
Аватар для Лубышев
 
Регистрация: 23.07.2007
Сообщений: 1,054
По умолчанию

ха! ну тогда чтобы использовать функцию в самой программе, делай так:

Код:
program a;
{Функция факториал}
Function fact(s:integer):real;
var i:integer;
begin
result:=1;
if s<=0 then break;
for i:=1 to s do result:=result*i;
end;

{Основной код программы:}
begin
writeln(fact(32));{Выводит результат на экран}
end;
Писано по д'Эльфийски
Лубышев вне форума Ответить с цитированием
Старый 05.05.2009, 10:10   #6
Саша91-09
 
Аватар для Саша91-09
 
Регистрация: 04.05.2009
Сообщений: 8
По умолчанию

Спасибо за помощь)))
Саша91-09 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Срочно нужна помощь на С++ KlubNichka Помощь студентам 0 26.04.2009 10:50
Нужна помощь в контрольной по паскалю. Chaos666 Паскаль, Turbo Pascal, PascalABC.NET 5 09.01.2009 12:05
Ребят, нужна помощь по Паскалю Agent[PNZ] Помощь студентам 4 14.12.2007 23:34
Нужна помощь по паскалю!! 4meen Помощь студентам 5 03.12.2007 12:09