Cynthia Diana Sinaulan

Pancasila sebagai pandangan hidup digunakan dalam kehidupan sehari-hari masyarakat Indonesia dari segi sikap maupun perilaku harus dijiwai oleh nilai-nilai pancasila. Nilai-nilai pancasila dalam kehidupan sehari-hari menerapkan tata kehidupan yang harmonis diantara masyrakat Indonesia dapat terwujud. Dalam mewujudkannya masyrakat tidak bisa hidup sendiri, mereka harus berhubungan atau bersosialisasi dengan masyarakat lain, dengan begitu setiap masyarakat dapat beradaptasi dengan pandangan hidup kelompok karena pada dasarnya pancasila mengakui adanya kehidupan individu maupun kelompok. Pancasila sebagai pandangan hidup bangsa merupakan perwujudan dari nilai-nilai budaya bangsa Indonesia yang digali dari budaya bangsa Indonesia yang sudah ada, tumbuh, dan berkembang. Dan pancasila sebagai pandangan hidup juga mencerminkan jiwa dan kepribadian bangsa Indonesia. Masyarakat Indonesia harus bersikap yang dimana pancasila tersebut sebagai pandangan hidupnya dalam bermasyarkat, dapat menj

Source Codenya: procedure TForm1.BitBtn1Click(Sender: TObject); var   a,b,c,d,e:real; begin   a:= StrToFloat(Edit1.Text);   b:= StrToFloat(Edit2.Text);   c:= StrToFloat(Edit3.Text);   d:= StrToFloat(Edit4.Text);   e:= (a*d)-(b*c);   Edit5.Text:= FloatToStr(e); end; end. Hasil tampilannya seperti gambar berikut:

Source Codenya: procedure TForm1.BitBtn1Click(Sender: TObject); var   a,b,c,d,e,f,g,h,i,j,k,l:real; begin   a:= StrToFloat(Edit1.Text);   b:= StrToFloat(Edit2.Text);   c:= StrToFloat(Edit3.Text);   d:= StrToFloat(Edit4.Text);   e:= StrToFloat(Edit5.Text);   f:= StrToFloat(Edit6.Text);   g:= StrToFloat(Edit7.Text);   h:= StrToFloat(Edit8.Text);   i:= StrToFloat(Edit9.Text);   j:= (a*e*i)+(b*f*g)+(c*d*h);   k:= (c*e*g)+(a*f*h)+(b*d*i);   l:= j-k;   Edit10.Text:= FloatToStr(l); end; end. Dan tampilannya seperti gambar berikut:

Langkah-langkah pengisiannya: 1)       Mengisi Gaji Pokok. Caranya yaitu:             a.        Ketik =VLOOKUP(             b.       Klik atau ketik C8             c.        Ketik ;             d.       Blok gambar dibawah ini             Keterangan, Golongan 1: Gaji Pokok 2: Tunjangan Istri 3: Tunjangan Anak 4.             e.        Kemudian tekan F4 supaya hasilnya absolut             f.        Ketik ;             g.       Dan ketik 2, 2 artinya bahwa Gaji Pokok terdapat pada kolom kedua             h.       Ketik ) 2)       Mengisi Tunjangan Istri. Caranya yaitu:             a.        Ketik =VLOOUP(             b.       Klik atau ketik C8             c.        Ketik ;             d.       Blok gambar dibawah ini             Keterangan, Golonga 1: Gaji Pokok 2: Tunjangan Istri 3: Tunjangan Anak 4.             e.        Kemudian tekan F4             f.        Ketik ;             g.       Dan ketik 3, 3 artinya bahwa Tunjan

Listing program: a=input('Masukkan banyak baris : ') b=0 d=a while(b<a):     b+=1     c=0     d-=1     e=0     while(c<d):         c+=1     while(e<b):         print'*' ,         e+=1     print Logika program: Variable a adalah inputan angka yang kita masukkan dari cetakan ‘Masukkan banyak baris : ‘. Variable b bernilai 0, dan variable d sama dengan a. Menggunakan  perulangan while dalam mengerjakan program ini. While yang pertama kondisinya adalah b lebih kecil dari a. Dan statementnya adalah, variable b nya setiap dilooping akan bertambah 1, variable c adalah 0, variable d setiap dilooping akan berkurang 1, dan variable e adalah 0. While yang kedua kondisinya adalah c lebih kecil dari d. Dan statementnya adalah variable c setiap dilooping akan bertambah 1. Dan while yang ketiga kondisinya adalah e lebih kecil dari b. Statementnya adalah mencetak symbol bintang (*) dan spasi lalu tanda koma (,) supaya nanti pindah bar

Listing program: procedure TForm1.Button1Click(Sender: TObject); var a,b,c,d,e:real; n : double; begin a:=50000; b:=StrToFloat(Edit1.Text); c:=a*b; d:=c*00.3; e:=c*00.2; n :=StrToFloat(Edit1.Text); Label8.Caption:=FloatToStr(c); begin if n >= 10 then Label9.Caption := '30%' else if (n >= 5)  then Label9.Caption := '20%' else if (n <= 5)  then Label9.Caption := '-' end; begin if n >= 10 then Label10.Caption := FloatToStr(d) else if (n >= 5)  then Label10.Caption := FloatToStr(e) else if (n <= 5)  then Label10.Caption := FloatToStr(c) end; begin if n >= 10 then Label11.Caption := 'Permen kino' else if (n >= 5)  then Label11.Caption := 'Permen mint' else if (n <= 5)  then Label11.Caption := '-' end; end; end. Logika program: procedure TForm1.Button1Click(Sender: TObject); var a,b,c,d,e:real; n : double; Prosedur TFor