Jumat, 15 November 2013

Program Menu Menggunakan Cobol

       IDENTIFICATION DIVISION.
       PROGRAM-ID. UJIAN.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 MENU PIC 9(1).
       01 SISI PIC 9(2).
       01 LUAS PIC Z(3).
       01 NILAI PIC 9(2).
       01 X PIC 9.
       01 Y PIC 9.
       01 MHS.
           02 J PIC 9(2).
           02 I PIC 9(2).
           02 ANGKA PIC 9(2).
           02 NPM PIC A(8) OCCURS 20 TIMES.
           02 NAMA PIC A(20) OCCURS 20 TIMES.
           02 KELAS PIC A(5) OCCURS 20 TIMES.
       SCREEN SECTION.
       01 HAPUS.
           02 BLANK SCREEN.

Membuat Organisasi

Kali ini saya akan membuat posting yang isinya akan menceritakan tentang organisasi apa yang akan saya buat setelah saya lulus nanti. Kebanyakan orang Indonesia setelah lulus ingin bekerja di suatu perusahaan, memang tidak salah bekerja di suatu perusahaan, tapi karena banyaknya orang yang ingin bekerja ketimbang membuat suatu perusahaan membuat banyak orang di Indonesia menjadi penggangguran. Penggangguran ini mengakibatkan banyak masalah di dalam negeri. Maka sebagai pemuda Indonesia seharusnya kita bisa membuat perusahaan sendiri untuk memajukan bangsa ini.
Pertama-tama kita harus tahu arti organisasi itu apa. Organisasi berasal dari bahasa Yunani, yaitu organon yg artinya adalah alat. Organisasi adalah suatu kelompok orang dalam suatu wadah untuk tujuan bersama. Dalam ilmu-ilmu sosial, organisasi dipelajari oleh periset dari berbagai bidang ilmu, terutama sosiologi, ekonomi, ilmu politik, psikologi, dan manajemen. Kajian mengenai organisasi sering disebut studi organisasi (organizational studies), perilaku organisasi (organizational behaviour), atau analisis organisasi (organization analysis).

Tujuan, Struktur, dan Proses dari TELKOM - PT. Telekomunikasi Indonesia Tbk

Definisi PT
Perseroan Terbatas (PT), dulu disebut juga Naamloze Vennootschaap (NV), adalah suatu persekutuan untuk menjalankan usaha yang memiliki modal terdiri dari saham-saham, yang pemiliknya memiliki bagian sebanyak saham yang dimilikinya. Karena modalnya terdiri dari saham-saham yang dapat diperjualbelikan, perubahan kepemilikan perusahaan dapat dilakukan tanpa perlu membubarkan perusahaan.
Perseroan terbatas merupakan badan usaha dan besarnya modal perseroan tercantum dalam anggaran dasar. Kekayaan perusahaan terpisah dari kekayaan pribadi pemilik perusahaan sehingga memiliki harta kekayaan sendiri. Setiap orang dapat memiliki lebih dari satu saham yang menjadi bukti pemilikan perusahaan. Pemilik saham mempunyai tanggung jawab yang terbatas, yaitu sebanyak saham yang dimiliki. Apabila utang perusahaan melebihi kekayaan perusahaan, maka kelebihan utang tersebut tidak menjadi tanggung jawab para pemegang saham. Apabila perusahaan mendapat keuntungan maka keuntungan tersebut dibagikan sesuai dengan ketentuan yang ditetapkan. Pemilik saham akan memperoleh bagian keuntungan yang disebut dividen yang besarnya tergantung pada besar-kecilnya keuntungan yang diperoleh perseroan terbatas.
Selain berasal dari saham, modal PT dapat pula berasal dari obligasi. Keuntungan yang diperoleh para pemilik obligasi adalah mereka mendapatkan bunga tetap tanpa menghiraukan untung atau ruginya perseroan terbatas tersebut.
PT yang akan saya bahas dalam posting ini adalah TELKOM – PT. Telekomunikasi Indonesia Tbk.

Sabtu, 09 November 2013

Program Pertambahan Matrik Pada Pascal

uses wincrt;
var
   x,y : integer;
   a,b,tot,min : array [1..2,1..2] of integer;
begin
     for x := 1 to 2 do
     begin
          for y := 1 to 2 do
          begin
               write('Masukkan Nilai Matriks A = ');
               read(a[x,y]);
          end;
     end;
     for x := 1 to 2 do
     begin
          for y := 1 to 2 do
          begin
               write('Masukkan Nilai Matriks B = ');
               read(b[x,y]);
          end;
     end;
     clrscr;
     writeln('Matriks A');
     for x := 1 to 2 do
     begin
          for y := 1 to 2 do
          begin
               write(a[x,y], ' ');
          end;
          writeln;
     end;
     writeln('Matriks B');
     for x := 1 to 2 do
     begin
          for y := 1 to 2 do
          begin
               write(b[x,y], ' ');
          end;
          writeln;
     end;
     for x := 1 to 2 do
     begin
          for y := 1 to 2 do
          begin
               tot[x,y]:=a[x,y]+b[x,y];
          end;
     end;
     writeln('Matriks A + Matriks B');
     for x := 1 to 2 do
     begin
          for y := 1 to 2 do
          begin
               write(tot[x,y], ' ');
          end;
          writeln;
     end;
     for x := 1 to 2 do
     begin
          for y := 1 to 2 do
          begin
               min[x,y]:=a[x,y]-b[x,y];
          end;
     end;
     writeln('Matriks A - Matriks B');
     for x := 1 to 2 do
     begin
          for y := 1 to 2 do
          begin
               write(min[x,y], ' ');
          end;
          writeln;
     end;
end.