مثلث خيام وپاسكال

[khazaei]

با سلام


برنامه ي اين مثلث را به زبان qbasic

ميخواستم


با تشكر فراوان

[majidsat]

ببين اين به دردت ميخوره .. به زبان پاسكال هستش

PROGRAM KHAYYAM;
VAR
  Pos,N,K:Integer;
FUNCTION Fact(K:Integer):LongInt;    {تابع بازگشتي محاسبه فاكتوريل}
BEGIN
  IF (K=۰) OR (K=۱) THEN Fact:=۱ ELSE Fact:=K*Fact(K-۱);
END;
FUNCTION Tarkib(K,I:Integer):longInt;    {تابع محاسبه تركيب}
BEGIN
  Tarkib:=trunc(Fact(K)/(Fact(I)*Fact(K-I)));
END;
PROCEDURE Blank;    {پروسيجر ايجاد فواصل خالي}
VAR I:Integer;
BEGIN
  FOR I:=۱ TO Pos DO
    Write(’ ‘);
  Pos:=Pos-۳;
END;
PROCEDURE Satr(K:Integer);     *{پروسيجر ايجاد سطرهاي مثلث }
VAR I:Integer;
BEGIN
  FOR I:=۰ TO K DO
    Write(Tarkib(K,I):۶);
END;
BEGIN{Of Main}
  Pos:=۳۳;    *{قرار دادن مكان نما در وسط صفحه نمايش}
  Write(’Enter Your Number: ‘);    {گرفتن تعداد سطرهاي مثلث از كاربر}
  Readln(N);
  FOR K:=۰ TO N DO
  BEGIN
    Blank;
    Satr(K);
    Writeln('’);
  END;{Of For}
  Readln
END.{Of Main}

[majidsat]

CLS
PRINT "Enter rows:"
INPUT n
x = 1
FOR i = 1 TO n
 FOR j = 1 TO i
  PRINT x;
  x = x + 1
 NEXT j
 PRINT ""
NEXT i
END

اينم امتحان كن به زبا Qbasic هستش ..

[sk1382]

این چی هست ، چی کار می کنه ؟