Labels

B.Indonesia (4) b.inggris (3) b.sunda (1) biografi (2) Biologi (7) cerita pengalaman (18) cerpen (2) Cheat Point Blank (20) Cheats (18) cracking (3) ekonomi (2) Fisika (13) games (3) Geografi (5) hari raya (1) HPO (1) informasi (11) jualan (3) kimia (20) koleksi (3) matematika (8) musik (1) ngakak (16) ninja saga (9) Pelajaran (127) Pengetahuan (52) perenungan (27) PKN (29) PLH (6) rajutan (1) rempah (1) Request (7) sejarah (8) Seni Budaya (7) Seram (2) sinopsis film (2) software (10) sosiologi (2) story telling (1) TIK (13) tugas (121) Tutorial (38)

Saturday, December 1, 2012

Membuat bintang diamond dan segitiga bintang dari rata kanan dengan menggunakan pascal (TIK KELAS XI)

kali ini saya akan men share tentang source code untuk membentuk diamond menggunakan pascal. disini kita menggunakan cara for to do positif dan for todo negatif . karena windows di laptop saya tidak kompatibel dengan turbo pascal jadi saya mengakalinya dengan menggunakan DOS BOX. okey langsung saja silahkan liat hasilnya akan seperti ini


oke langsung saja ini dia kodenya :
program Bintang;
uses crt;

var x,y :integer;
begin
clrscr;
       for x:=1 to  4do
         begin
         for y:=1 to 4-x do
           begin
           write (' ');
           end;
             for y:=x downto 1 do
             begin
             write('* ');
             end;
             writeln;
             end;
      for x:=1 to  3do
         begin
         for y:=2 downto 3-x do
           begin
           write (' ');
           end;
             for y:=x to 3 do
             begin
             write('* ');
             end;
             writeln;
             end;

readln;
end.

yang kedua adalah membuat segitiga menggunakan for todo positif dan negatif dari rata kanan
lihat hasilnya seperti ini


source codenya:
program Bintang;
uses crt;

var x,y :integer;
begin
clrscr;
       for x:=1 to  4do
         begin
         for y:=1 to 4-x do
           begin
           write (' ');
           end;
             for y:=x downto 1 do
             begin
             write('*');
             end;
             writeln;
             end;
      for x:=1 to  3do
         begin
         for y:=2 downto 3-x do
           begin
           write (' ');
           end;
             for y:=x to 3 do
             begin
             write('*');
             end;
             writeln;
             end;

readln;
end.


okey mungkin cukup segitu saja postingan saya kali ini mohon maaf apabila ada kesalahan , semoga dapat membantu kallian semua dan semoga kalian selalu membuka blog saya TERIMA KASIH ^^

jangan lupa tinggalkan komentar dan follow blog ini ^^.


4 comments:

Anonymous said...

nice, keep posting :)

Anonymous said...

tpi klo disuruh bwt pinggirannya doang(frame) gimana gan ? pusing ane mikirin tugas bikin frame segitiga

KELURAHAN BOJONGHERANG said...

Minta programnya

Nikson Dinar Fransela Sihombing said...

Kok gak bisa kode programanya

Post a Comment

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Hot Sonakshi Sinha, Car Price in India