من دوتا تابع رياضي البته به زبان ساده تر ميخوام...

1- فاکتوريل 2- عدد اول

با سلام
من دلفی نمی دونم ولی با qb برات می زارم خودت تبدیل کن.
---------------------------------------------------------------------
فاکتوریل
فرض کن فاکتوریل عدد 5 را می خواهیم
که در n قراردارد . f همان جواب می شود.

f=1
n=5

for c =1 to n a
f = f.(c+1) a

next c a

print f a
~~~~~~~~~~~~~~~~~~~~~~~~~

فاکتوریل :

کد:

---

Function Faktoriel(Num:integer):int64;

begin
  if num <1 then Faktoriel := 1
  else begin
    s := 1;
    for i := 1 to num do s:=s*i;
    faktoriel := s;
  end;
end;

---

اون شرط اولیه رو میتونی دقیقتر هم بزاری.
چون قاکتورین برای اعداد منفی معنی نداره و برایبه صورت قراردادی 1 و صفر هم مقدارش میشه 1.

اعداد اول رو هم الگوریتمشو میگم خودت در بیار.
عدد مورد نظر برای چک اینکه اول هست یا نه باید بر حداقل نصف خودش چک بشه.
یعنی عدد 10 رو باید از 1 تا 5 چک کنی.
اگه حاصل باقیمانده یکی از این تقسیمها 0 شد او عدد اول نیست.

دست شما درد نکنه
عدد اول هم بزارين

چک اینکه یک عدد اول هست یا نه با فرض اینکه عدد در متغیر NUM ذخیره شده :

کد:

---

Avval := False;
For i :=1 to round(sqrt(Num)) do begin
  if NUM mod I = 0 then begin
    avval :=true;
    break;
  end;
end;

---

ولی خواهشا این کدهای ساده رو خودتون بنویسین و به نظر من خیلی اشتباهه که انتظار دارین لقمه آماده بخورین.
چون اینجوری خودتون یاد نگرفتین و الگوریتم ساز خوبی نمیسین.