Free Pascal Segitiga Angka Berurutan

 

Siapa yang mau liat gimana Codingnya silahkan liat...

.

.

.

.

.

.

.

.

.

.

Dibawah...

uses crt;
var     i,j,k,l,ang,kel: integer;

begin
textbackground(cyan);
textcolor (white);
   clrscr;
        write ('Masukkan Angka : '); readln (ang);
        write ('Masukkan Kelipatan : '); readln (kel);
        l:=1;
        writeln;
        writeln;
        for i := 1 to ang do
           begin
           for k := 1 to ang-i do
              begin
              write('   ');
              end;
              for j := 1 to (2*i)-1 do
                 begin
                 write(' ',l:2);
                 l:=l+1; delay(200);
                 if l mod kel = 0 then textcolor (green);
                 if l mod kel = 1 then textcolor (white);
                 end;
                 writeln;
                 end;

readkey;
end.

Jangan lupa comen dibawah....

Terimaksih Abang Sadana dan kawan-kawan, yang telah membantu tugas ini....

>>> Sadana Agung<<<

Hidup Free Pascaler.....