Pascal Üçgeni programı.

09.07.2012 - 03:32

uses crt;
   var a,n,i,r,fakn,faknr,fakr:longint; 
   sonuc:real;
   begin
   clrscr;
   for n:=0 to 12 do
      begin
   fakn:=1;
      faknr:=1;
      fakr:=1;
      a:=32-3*n; 
      gotoxy(a,(n+1));
      for r:=0 to n do begin



      for i:=0 to n do
      begin
      if (i=0) then fakn:=1
      else fakn:=fakn*i;
   if ((n-r)>=i) then faknr:=faknr*i; 
if (faknr=0) then 
faknr:=1;
if (r>=i) then 
fakr:=fakr*i; 
if (fakr=0) then 
fakr:=1;
      end; 
      sonuc:=(fakn/(faknr*fakr)); 
      a:=a+6;
      gotoxy(a,(n+1)); 
      write(sonuc:5:0);
      end;
      writeln('');
      end;
      readln;
      end.

Linkback: https://www.buyuknet.com/pascal-ucgeni-programi-t38225.0.html