RSS

Program Segitiga Pascal

Berikut adalah Source Code untuk membuat Segitiga dalam Pascal :
uses wincrt;
var i,j,n,z : integer;
function sgtg(baris,posisi:integer):longint;
var output:integer;
begin
   if(posisi= 1) or (posisi =baris)  then
   begin
      sgtg:= 1;
   end
   else
      sgtg:= Sgtg(baris-1,posisi)+ Sgtg(baris-1,posisi-1);
end;
begin
   write (' Masukan Tingkat ==> ');readln(z);
   writeln;
   for i:=1 to z do
   begin
      for n:=z downto i do
      write(' ');
      for j:=1 to i do
      write(sgtg(i,j):2);
      writeln;
      writeln;
   end;
   readln;
end.

Hasil Keluaran :

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

0 komentar:

Posting Komentar

Berita Terpopuler

  • Welcome Message

Program Segitiga Pascal

| Kamis, 26 Mei 2011 |

Berikut adalah Source Code untuk membuat Segitiga dalam Pascal :
uses wincrt;
var i,j,n,z : integer;
function sgtg(baris,posisi:integer):longint;
var output:integer;
begin
   if(posisi= 1) or (posisi =baris)  then
   begin
      sgtg:= 1;
   end
   else
      sgtg:= Sgtg(baris-1,posisi)+ Sgtg(baris-1,posisi-1);
end;
begin
   write (' Masukan Tingkat ==> ');readln(z);
   writeln;
   for i:=1 to z do
   begin
      for n:=z downto i do
      write(' ');
      for j:=1 to i do
      write(sgtg(i,j):2);
      writeln;
      writeln;
   end;
   readln;
end.

Hasil Keluaran :


0 komentar:

Posting Komentar

Label

Tags: