Aplikasi Pohon Bintang dengan Pascal

pohon

Berikut ini adalah penjelasan coding dari program Pohon Bintang buatan saya dengan menggunakan Turbo Pascal For Windows

program bintang_piramid;
uses wincrt;

var c,a,b,n : integer;
begin
write (‘masukkan angka : ‘);readln(n);
writeln;
if n mod 2 = 0 then
for a := 1 to (n div 2) do begin
for b := 1 to (n div 2)-a do
write (‘ ‘);
for c := 1 to (a*2) do
write (‘*’);
writeln;
end
else
for a := 1 to (n div 2)+1 do begin
for b := 1 to (n div 2)+(1-a) do
write (‘ ‘);
for c := 1 to (a*2)-1 do
write (‘*’);
writeln;
end;
end.

Untuk mendownload laporan dan program serta source kodenya dapat di download di link di bawah ini

NAMA_NRP_KELOMPOK_Aplikasi_Pohon_Bintang
Aplikasi Pohon Bintang

10 thoughts on “Aplikasi Pohon Bintang dengan Pascal

  1. askoemm…
    gal,tar klo gi gad krjaan nie.. mnta tlong bwtin pascalnya pohon angka n huruf…
    yg simpel2 gt… yg mdh dplajari ya…. hehe…

    ex: *
    *1*
    *22*
    *1*
    *

    matur skalangkong b4…

  2. gal.. aku minta tolong buatin bintang bentuk angka 8(delapan)
    misal: inputanya 5
    outputnya :
    *****
    * *
    *****
    * *
    *****
    sebenernya 1-9 tapi ntar aku kembangkan sendiri. segera yo… buat uts.
    kirim ke email ku ya.. ifudbm@gmail.com
    thanks..

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s