PASCAL BINTANG RATA KANAN,SIKU ATAS..!

PASCAL BINTANG RATA KANAN,SIKU ATAS..!
 INPUTNYA KARAKTER.

===============================================

BERIKUT CODINGNYA..!!!

Program SegitigaPascalTerbalik;
uses crt;
var
   a,b,d:integer;
   c:char; {pemberian bentuk variabel karakter }
begin
     clrscr;
     write('masukkan angka    :'); readln(a);
     write('masukkan karakter :'); readln(c);
     for b:=a downto 1 do
        { downto menghitung dari besar ke kecil,
          dimana dari baris a sampai 1}
      begin
        for d:= a-b downto 1 do
          { menghitung dari jumlah a(banyak angka/baris)
            dikurangi b(urutan baris) sampai 1,
            jadi kolom 1 akan bernilai 0,kolom ke2 1, dan
             tris ke bawah }
        begin
         write(' '); {pemberian sepasinya}
        end;
     for d:= 1 to b do { menampilkan kolom dari 1 sampai baris b }
      begin
       write(c);  { karakter yang ditampilkan }
     end;

     writeln; { agar tersusun ke bawah }

     end;
     readln;
end.

"PROGRAM PASCAL"

=> Algoritma adalah susunan yang logis dan sistematis untuk memecahkan suatu masalah atau untuk mencapai tujuan tertentu.

=> FLOWCHART merupakan gambar atau bagan yang memperlihatkan urutan dan hubungan antar proses beserta instruksinya.

=>PSEUDOCODE => bahasa yang digunakan untuk menyederhanakan penulisan algoritma


            (    =================================================== )

1.Buatlah program untuk menampilkan jumlah kotak.
 dimana inputnya adalah plastik kopi.satu kotak berisi 5 pelastik kopi.

program kotak_kopi;
uses crt;
  var
  pk:integer;
  kk:real;

begin
  clrscr;
  write('masukkan jumlah plastik kopi:');
  readln(pk);
  kk:=pk/5;
  write('jumlah kotak kopi adalah:',kk:4:2);
  readln;
end.

2.buatlah orogram merubah cm ke inchi,dimama 1 inch=2.54 cm.

program cm_inchi;
 uses crt;
 const:inchi=2.54
 var
   Tin,Tcm:real;
 begin
   clrscr;
   write( 'Cm ke Inchi'); readln;
    write(=========); readln;
   write:('masukkan tinggi dalan cm:');
   readln(Tcm);
   Tin:=Tcm/2.54;
   write('tinggi dalam inchi adalah:',Tin:4:2);
   readln;
end.

===> itu adalah coding pascalnya ...!!! selamat mencoba kawan..!!!