Rabu, Juni 08, 2016

Program Pascal Membuat Bilangan Segitiga Pascal

6/08/2016 11:53:00 PM  "sahabat informasi"  No comments

var
  b,c,d:integer;
  a:array [1..255,1..255] of integer;

begin
write('masukkan sebuah bilangan bulat >= 0 sebagai koefisien binomial! '); readln(d);
for b:=1 to d+1 do
 begin writeln;
 for c:=1 to b do
  begin
   if (c=1) OR (c=d+1) then a[b,c]:=1 else
   a[b,c]:=a[b-1,c-1] + a[b-1,c];
   write(a[b,c],' ');
  end;
 end;
readln
end.



Kalau ada yang mau ditanya silakan ya, akan segera ditanggapi... : )

Posted in:

0 komentar:

Posting Komentar