Waht is the sample code to print pascals traingle in c

  • Interview Candidate
  • 9
  • 3867

Showing Answers 1 - 9 of 9 Answers

baseersd

  • Jun 19th, 2007
 

The code mentioned here is not exactly of pascal triangle but it gives the output in the following form.
1
11
121
1331
::
::
:::

#include<stdio.h>

int main()
{
  int n,y,x;
  printf("Enter the limit ::");
 scanf("%d",&n);
  for (y = 0; y < n; y++)
  {
    int c = 1;
    for (x = 0; x <= y; x++)
    {
      //cout << c << " ";
      printf("%d ",c);
      c = c * (y - x) / (x + 1);
    }
//    cout<<endl;
      printf("n");
  }
//  cout<<endl;
    printf("n");
    getch();
  return 0;
}


Another method which is not that much efficient

#include<stdio.h>
int count=0;
int limit;
void printarray(int *arr,int i)
{
   
     int arr1[20]={0};
     int j;
     arr1[0]=1;
     for(j=1;j<=i;j++)
                     arr1[j]=arr[j-1]+arr[j];
     arr1[j]=1;
     for(i=0;i<j;i++)
     {
     printf("%4d ",arr1[i]);
     arr[i]=arr1[i];
     }
}

int main()
{
    int arr[20]={0};
    printf("nEnter the limit");
    scanf("%d",&limit);
    while(count<limit)
    {
    printarray(arr,count);
    count++;
    printf("n");
    }
    getch();
    return 0;
}



 

  Was this answer useful?  Yes

Naveen Talasila

  • Aug 15th, 2007
 

#include
int main()
{
int i,j,k,count =0;
int *a =NULL;scanf(
"%d",&count);
a = (int*)(malloc((sizeof(int))*count));
for (i=0;i
{
for (j= 0;j<=i;j++)
{
a[j] = a[i]+1;
((j>0) && (j==i)) ? printf("1") : printf("%d",a[j]);
a[i]=i-1;
}
printf("n");
}
free(a);
}


  Was this answer useful?  Yes

venkat

  • May 11th, 2016
 

Code
  1.  IDENTIFICATION DIVISION.                                      

    2. 

  2.  PROGRAM-ID. CABFIBN.                                          

    3. 

  3.  ENVIRONMENT DIVISION.                                         

    4. 

  4.  INPUT-OUTPUT SECTION.                                         

    5. 

  5.  FILE-CONTROL.                                                 

    6. 

  6.       SELECT OUTFIL ASSIGN TO OUTFIB FILE STATUS IS FIB-STS.   

    7. 

  7.       SELECT PAS-TRAN ASSIGN TO PTOUT STATUS IS PT-STS.        

    8. 

  8.  DATA DIVISION.                                                

    9. 

  9.  FILE SECTION.                                                 

    10. 

  10.  FD OUTFIL.                                                    

    11. 

  11.  01 FIB-SERIES.                                                

    12. 

  12.    05 NTRMS  PIC X(10).                                        

    13. 

  13.    05 FILLER PIC X(490).                                       

    14. 

  14.  FD  PAS-TRAN.                                                 

    15. 

  15.  01  OUTREC2.                                                  

    16. 

  16.      02 PTA2 PIC X(10) OCCURS 100 TIMES INDEXED BY PT-IND.     

    17. 

  17.  WORKING-STORAGE SECTION.                                      

    18. 

  18.   01 WS-FRVAL    PIC 9(01) VALUE 0.                            

    19. 

  19.   01 WS-SNDVAL   PIC 9(01) VALUE 1.                            

    20. 

  20.                       

    21. 

  21.  01 WS-FRTRM    PIC 9(10) VALUE 0.                          

    22. 

  22.  01 WS-SNDTRM   PIC 9(10) VALUE 1.                          

    23. 

  23.  01 WS-TEMP     PIC 9(10) VALUE ZEROS.                      

    24. 

  24.  01 WS-TEMP1    PIC X(10) VALUE SPACES.                     

    25. 

  25.  01 WS-K        PIC 9(10) VALUE ZEROS.                      

    26. 

  26.  01 FIB-STS     PIC 9(02) VALUE ZEROS.                      

    27. 

  27.  01 WS-SPACE    PIC X(10) VALUE SPACES.                     

    28. 

  28.  01 WS-FLD      PIC X(10) VALUE SPACES.                     

    29. 

  29. *****                                                       

    30. 

  30. 01 WS-I   PIC 9(10) VALUE 0.                                

    31. 

  31. 01 WS-J   PIC 9(10) VALUE 0.                                

    32. 

  32. 01 WS-Z   PIC 9(10).                                        

    33. 

  33. 01 WS-FT  PIC 9(15) VALUE 1.                                

    34. 

  34. 01 WS-ST  PIC 9(15) VALUE 1.                                

    35. 

  35. 01 WS-TT  PIC 9(15) VALUE 1.                                

    36. 

  36. 01 WS-FA1 PIC 9(10) VALUE 1.                                

    37. 

  37. 01 WS-FA2 PIC 9(10) VALUE 1.                                

    38. 

  38. 01 WS-FA3 PIC 9(10) VALUE 1.                                

    39. 

  39.                                      

    40. 

  40.  01 PT-STS PIC 9(2).                                          

    41. 

  41.  01 WS-NTRM  PIC 9(03).                                       

    42. 

  42.  01 WS-PSUM PIC 9(10) .                                       

    43. 

  43.  01 WS-PSUM1 PIC Z(10) .                                      

    44. 

  44.  LINKAGE SECTION.                                             

    45. 

  45.  01 LS-TERMS.                                                 

    46. 

  46.    05 LS-LENTH    PIC S9(4) COMP.                             

    47. 

  47.    05 LS-NTRM     PIC 9(3)  VALUE ZEROS.                      

    48. 

  48.   PROCEDURE DIVISION USING LS-TERMS.                          

    49. 

  49.   MAIN-PARA.                                                  

    50. 

  50.         PERFORM INITIAL-PARA THRU END-INITIAL.                

    51. 

  51.      IF LS-NTRM NOT =    AND LS-NTRM NOT = 000            

    52. 

  52.         PERFORM FIB-PROCESS-PARA THRU END-FIB-PROCESS         

    53. 

  53.         MOVE LS-NTRM TO WS-NTRM                               

    54. 

  54.         PERFORM PAS-PARA1 VARYING WS-I                        

    55. 

  55.                 FROM 0 BY 1 UNTIL WS-I > WS-NTRM              

    56. 

  56.      ELSE                                                     

    57. 

  57.         DISPLAY ENTER MORE THAN ONE DIGIT EG:2,3 ETC        

    58. 

  58.         CONTINUE                                              

    59. 

  59.      END-IF.                                                  

    60. 

  60.                 PERFORM CLOSE-PARA   THRU END-CLOSE.                      

    61. 

  61.     STOP RUN.                                                    

    62. 

  62.  INITIAL-PARA.                                                   

    63. 

  63.     OPEN OUTPUT OUTFIL.                                          

    64. 

  64.      IF FIB-STS NOT = 00                                       

    65. 

  65.        DISPLAY FIB-STS                                           

    66. 

  66.      ELSE                                                        

    67. 

  67.        DISPLAY FILE FIB SER OPEND SUCCESSFULLY.                

    68. 

  68.      END-IF.                                                     

    69. 

  69.                                                                  

    70. 

  70.     OPEN OUTPUT PAS-TRAN.                                        

    71. 

  71.      IF PT-STS NOT = 00                                        

    72. 

  72.        DISPLAY PT-STS                                            

    73. 

  73.      ELSE                                                        

    74. 

  74.        DISPLAY FILE  PAS-TRAN OPEND SUCCESSFULLY.              

    75. 

  75.      END-IF.                                                     

    76. 

  76.  END-INITIAL.                                                    

    77. 

  77.      EXIT.  

    78. 

  78.   FIB-PROCESS-PARA.                                               

    79. 

  79.      MOVE WS-FRVAL  TO NTRMS.                                     

    80. 

  80.      WRITE FIB-SERIES.                                            

    81. 

  81.      MOVE WS-SNDVAL TO NTRMS.                                     

    82. 

  82.       WRITE FIB-SERIES.                                           

    83. 

  83.       COMPUTE WS-K = LS-NTRM - 2.                                 

    84. 

  84.       PERFORM FIB-PARA WS-K TIMES .                               

    85. 

  85.                                                                   

    86. 

  86.   END-FIB-PROCESS.                                                

    87. 

  87.       EXIT.                                                       

    88. 

  88.                                                                   

    89. 

  89.   FIB-PARA.                                                       

    90. 

  90.        COMPUTE WS-TEMP   =  WS-FRTRM + WS-SNDTRM.                 

    91. 

  91.        COMPUTE WS-FRTRM  = WS-SNDTRM.                             

    92. 

  92.        COMPUTE WS-SNDTRM = WS-TEMP.                               

    93. 

  93.           MOVE WS-TEMP   TO WS-TEMP1.                             

    94. 

  94.        UNSTRING WS-TEMP1 DELIMITED BY ALL ZEROES INTO             

    95. 

  95.                                         WS-SPACE,WS-FLD.          

    96. 

  96.           MOVE WS-FLD    TO NTRMS.                                

    97. 

  97.        WRITE   FIB-SERIES.                                        

    98. 

  98.   ***********                                                       

    99. 

  99.    PAS-PARA1.                                                       

    100. 

  100.        SET PT-IND TO 1.                                             

    101. 

  101.        PERFORM PAS-PARA2 VARYING WS-J FROM 0 BY 1 UNTIL WS-J > WS-I.

    102. 

  102.    PAS-PARA2.                                                       

    103. 

  103.         IF (WS-J = 0) OR (WS-J = WS-I)                              

    104. 

  104.         MOVE 1 TO WS-PSUM                                         

    105. 

  105.           MOVE WS-PSUM TO WS-PSUM1                                  

    106. 

  106.         MOVE WS-PSUM1 TO PTA2(PT-IND)                               

    107. 

  107.             SET PT-IND UP BY +1                                     

    108. 

  108.         ELSE                                                        

    109. 

  109.          PERFORM PAS-PARA3 VARYING WS-FA1                           

    110. 

  110.                              FROM 1 BY 1 UNTIL WS-FA1 > WS-I        

    111. 

  111.          PERFORM PAS-PARA4 VARYING WS-FA2                           

    112. 

  112.                             FROM 1 BY 1 UNTIL WS-FA2 > WS-J         

    113. 

  113.            COMPUTE WS-Z = (WS-I) - (WS-J)                           

    114. 

  114.          PERFORM PAS-PARA5 VARYING WS-FA3 FROM                      

    115. 

  115.                             1 BY 1 UNTIL WS-FA3 > WS-Z              

    116. 

  116.           COMPUTE WS-PSUM = WS-FT /( WS-ST * WS-TT )                

    117. 

  117.           MOVE WS-PSUM TO WS-PSUM1                                  

    118. 

  118.        MOVE WS-PSUM1 TO PTA2(PT-IND)                             

    119. 

  119.        MOVE 1 TO WS-FT                                         

    120. 

  120.        MOVE 1 TO WS-ST                                         

    121. 

  121.        MOVE 1 TO WS-TT                                         

    122. 

  122.            SET PT-IND UP BY +1                                   

    123. 

  123.      END-IF.                                                     

    124. 

  124.         IF WS-I = WS-J                                           

    125. 

  125.          WRITE OUTREC2                                           

    126. 

  126.            SET PT-IND TO 1                                       

    127. 

  127.         END-IF.                                                  

    128. 

  128. PAS-PARA3.                                                       

    129. 

  129.     COMPUTE  WS-FT =  WS-FT * WS-FA1.                            

    130. 

  130. PAS-PARA4.                                                       

    131. 

  131.     COMPUTE  WS-ST =  WS-ST * WS-FA2.                            

    132. 

  132. PAS-PARA5.                                                       

    133. 

  133.     COMPUTE  WS-TT =  WS-TT * WS-FA3.                            

    134. 

  134.   CLOSE-PARA .                                                   

    135. 

  135.         CLOSE OUTFIL.                                            

    136. 

  136.          IF FIB-STS NOT = 00                                   

    137. 

  137.            DISPLAY FIB-STS                                       

    138. 

  138.          ELSE                                                    

    139. 

  139.            DISPLAY FILE FIB SER CLOSED SUCCESSFULLY.           

    140. 

  140.          END-IF.                                                 

    141. 

  141.                                                                  

    142. 

  142.         CLOSE PAS-TRAN.                                          

    143. 

  143.          IF PT-STS NOT = 00                                    

    144. 

  144.            DISPLAY PT-STS                                        

    145. 

  145.          ELSE                                                    

    146. 

  146.            DISPLAY FILE  PAS-TRAN CLOSED SUCCESSFULLY.         

    147. 

  147.          END-IF.                                                 

    148. 

  148.   END-CLOSE.                                                     

    149. 

  149.     EXIT.                                                        

    150. 

  150.  

  Was this answer useful?  Yes

Give your answer:

If you think the above answer is not correct, Please select a reason and add your answer below.

 

Related Answered Questions

 

Related Open Questions