Pascal Üçgeni programı.

tarantula90109.07.2012 - 03:32
Pascal Üçgeni programı.

Kod: [Seç]
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

Etiket:
Pascal Üçgeni programı. 

Bu bilgi size yardimci oldu mu?

EvetHayır
Pascal Üçgeni programı.
Pascal Üçgeni programı.
(Ortalama: 5 üzerinden 2.5 - 2 Oy)
2