05:34    Unknown

---

CONTOH PROGRAM MEMBUAT SEGITIGA GABUNGAN DENGAN PASCAL

Demikian codingnya :

            Uses crt;

            Var

                        a,b,c : integer;

            begin

                        clrscr;

                        for b:=5 downto 1 do

                        begin

                        for c:=1 to b do

                        write(‘*’);

                        writeln;

                        end;

                        for b:=1 to 4 do

                        begin

                                    for c:=0 to b do

                                    write(‘*’);

                                    writeln;

                                    end;

                                    readln;

                        end.

Demikianlah hasil daripada coding diatas :

Semoga apa yang saya ini bermamfaat bagi saudara sekalian, kami sangat bersyukur jika saudara hendaknya meninggalkan pesan di blog kami…….

Terima kasih.