لوزی خیام پاسکال

لوزی خیام پاسکال

DECLARE FUNCTION fact! (a!)
CLS
INPUT p
p = p - 1
x = p + 1
FOR i = 0 TO 2 * p
   FOR j = 0 TO ABS(p - i)
      PRINT "  ";
   NEXT j
   x = x - 1
   s = ABS(p - ABS(x))
   FOR k = 0 TO s
      PRINT USING "##"; fact(s) / (fact(k) * fact(s - k));
      PRINT "  ";
   NEXT k
PRINT
PRINT
NEXT i
END

FUNCTION fact (a)
l = 1
FOR j = 1 TO a
   l = l * j
NEXT j
fact = l

END FUNCTION

مثلث خیام پاسکال

با دادن ردیف مثلث خیام پاسکال خروجی این برنامه چاپ این اعداد به صورت مثلث تا ردیف مورد نظر است

DECLARE FUNCTION fact! (a!)
CLS
INPUT p
p = p - 1
FOR i = 0 TO p
   FOR j = 0 TO p - i
      PRINT "  ";
   NEXT j
   FOR k = 0 TO i
      PRINT USING "##"; fact(i) / (fact(k) * fact(i - k));
      PRINT "  ";
   NEXT k
PRINT
PRINT
NEXT i
END

FUNCTION fact (a)
l = 1
FOR j = 1 TO a
   l = l * j
NEXT j
fact = l

END FUNCTION