Baca Juga

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