[salemk]

المشاركة الأصلية كتبت بواسطة AKKAINMOH

السلام عليكم ميستطيع مساعدة

écrire les fonction qui retournent
la tangente d'un réel
la factorielle d'un nombre
فقط هتان

{faire attention, le type de fact est longint, ne depasser pas 16!  }

function fact(n:integer):longint;

var
   i:integer;
   r:longint;

begin

r:=1;

for i:= 2 to n do
   r:= r*i;

fact:=r;

end; 


function tang(y:real):real;

begin

   tang:=sin(y)/cos(y);

end;