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 ^^.

Posted in: Pelajaran,TIK,tugas