Utiliser la récursivité pour calculer le factoriel en Pascal

اذهب الى الأسفل

Utiliser la récursivité pour calculer le factoriel en Pascal

مُساهمة من طرف Prog-PRO في الجمعة 23 نوفمبر 2007, 20:35

Pou calculer le factoriel d'un nombre en Pascal en utilisant la récursivité, ceci est une source possible:

program factoriel;
uses wincrt;
var x:integer;
function fact(n:integer):real;
begin
if n=1 then fact:=1
else fact:=n*(fact(n-1));
end;
begin
repeat
write('Veuillez rentrer un entier: x= '); read(x);
writeln('x!= ',fact(x):2:0)
until x=0;
end.
avatar
Prog-PRO
مشرف منتدى لغات البرمجة
مشرف منتدى لغات البرمجة

عدد الرسائل : 428
تاريخ التسجيل : 06/10/2007

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى