Kewajiban Warga Negara Indonesia

Warga negara merupakan terjemahan kata citizens (bahasaInggris) yang mempunyai arti warganegara, petunjuk dari sebuah kota, sesama warga negara , sesama penduduk,orang setanah air bawahan atau kaula. Warga negara artinya warga atau anggota dari organisasi yg bernama Negara. Rakyat menunjuk pada orang-orang yang berada dibawah satu pemerintahan dan tunduk pada pemerintahan itu. Istilah rakyat umumnya dilawankan dengan penguasa. Penduduk adalah orang-orang yang bertempat tinggal di suatu wilayah negara dalam kurun waktu tertentu. Seperti yang telah disampaikan di muka, bahwa warga negara merupakan anggota negara yang mempunyai kedudukan khusus terhadap negaranya. Dengan demikian, warga negara memiliki hak dan kewajiban terhadap negaranya.

Kewajiban adalah Sesuatu yang harus dilakukan dengan penuh rasa tanggung jawab.

Kewajiban Warga Negara Indonesia

1.     Setiap warga negara memiliki kewajiban untuk berperan serta dalam membela, mempertahankan kedaulatan negara indonesia dari serangan musuh

2.     Setiap warga negara wajib membayar pajak dan retribusi yang telah ditetapkan oleh pemerintah pusat dan pemerintah daerah (pemda)

3.     Setiap warga negara wajib mentaati serta menjunjung tinggi dasar negara, hukum dan pemerintahan tanpa terkecuali, serta dijalankan dengan sebaik-baiknya

4.     Setiap warga negara berkewajiban taat, tunduk dan patuh terhadap segala hukum yang berlaku di wilayah negara indonesia.

5.     Setiap warga negara wajib turut serta dalam pembangunan untuk membangun bangsa agar bangsa kita bisa berkembang dan maju ke arah yang lebih baik.

Hak Warga Negara Indonesia

Warga negara merupakan terjemahan kata citizens (bahasaInggris) yang mempunyai arti  warganegara, petunjuk dari sebuah kota, sesama warga negara , sesama penduduk,orang setanah air; bawahan atau kaula. Warga negara artinya warga atau anggota dari organisasi yg bernama Negara. Rakyat menunjuk pada orang-orang yang berada dibawah satu pemerintahan dan tunduk pada pemerintahan itu. Istilah rakyat umumnya dilawankan dengan penguasa. Penduduk adalah orang-orang yang bertempat tinggal di suatu wilayah negara dalam kurun waktu tertentu. Seperti yang telah disampaikan di muka, bahwa warga negara merupakan anggota negara yang mempunyai kedudukan khusus terhadap negaranya. Dengan demikian, warga negara memiliki hak dan kewajiban terhadap negaranya.

Hak adalah  Sesuatu yang mutlak menjadi milik kita dan penggunaannya tergantung kepada kita sendiri.

Hak Warga Negara Indonesia

1.     Setiap warga negara berhak mendapatkan perlindungan hokum

2.     Setiap warga negara berhak atas pekerjaan dan penghidupan yang layak

3.  Setiap warga negara memiliki kedudukan yang sama di mata hukum dan di dalam pemerintahan

4.     Setiap warga negara berhak memperoleh pendidikan dan pengajaran (pasal 31)

5.    Setiap warga negara berhak mempertahankan wilayah negara kesatuan Indonesia atau NKRI dari serangan musuh

6.  Setiap warga negara memiliki hak sama dalam kemerdekaan berserikat, berkumpul mengeluarkan pendapat secara lisan dan tulisan sesuai undang-undang yang berlaku.

7.     Negara menjamin kemerdekaan tiap-tiap penduduk untuk memeluk agamanya masing-masing dan untuk beribadat menurut agamanya dan kepercayaannya itu.(pasal 29)

PROGRAM MULTI LIST MENGGUNAKAN TURBO PASCAL

buat file yang berisi biodata :

Buat file NIRM :

Koding program :

uses crt;
type
filebio = record
     npm:string[8];
     nirm:string[3];
     nama:string[15];
     alamat:string[10];
     end;
filenirm = record
     nirm2:string[3];
     masuk:string[10];
     akhir:string[10];
     end;
var
biodata :array[1..10] of filebio;
tglnirm :array[1..10] of filenirm;
isi:text;
a,x,y:integer;


Procedure tbio;
begin
a:=5;
assign(isi,'biodata.dat');
reset(isi);
writeln('Biodata');
writeln('************************************************************');
writeln('*    Npm     * Nirm  *         Nama        *     alamat    *');
writeln('************************************************************');
for x:=1 to 10 do
begin
readln(isi,biodata[x].npm);
readln(isi,biodata[x].nirm);
readln(isi,biodata[x].nama);
readln(isi,biodata[x].alamat);
write('*  ',biodata[x].npm,'  *  ',biodata[x].nirm,'  *   ',biodata[x].nama,'   *    ',biodata[x].alamat:5);
gotoxy(60,a);
writeln('*');
a:=a+1;
end;
close(isi);
writeln('************************************************************');
readln;
end;

procedure tnirm;
begin
assign(isi,'filenirm.dat');
reset(isi);
writeln('File Nirm');
writeln('*****************************************************');
writeln('* Nirm   *    Tanggal Masuk    *    Tanggal Akhir   *');
writeln('*****************************************************');
for x := 1 to 10 do
begin
readln(isi,tglnirm[x].nirm2);
readln(isi,tglnirm[x].masuk);
readln(isi,tglnirm[x].akhir);
writeln('*  ',tglnirm[x].nirm2,'   *     ',tglnirm[x].masuk,'      *     ',tglnirm[x].akhir,'     *');
end;
writeln('*****************************************************');
close(isi);
readln;
end;


procedure daftarsiswa;
begin
a:=5;
gotoxy(1,30);writeln('Daftar Siswa');
writeln('***********************************************************************');
writeln('* No *    Npm   * Nirm *       Nama       *  Tgl masuk  *  Tgl Akhir  *');
writeln('***********************************************************************');
for x := 1 to 10 do
begin
write('* ',x,'  * ',biodata[x].npm,' * ',biodata[x].nirm,'  * ',biodata[x].nama,'            *','             *','       ');
for y := 1 to 10 do
if biodata[x].nirm = tglnirm[y].nirm2 then
begin
gotoxy(46,a);
writeln(tglnirm[y].masuk);
gotoxy(60,a);
writeln(tglnirm[y].akhir);
a:=a+1;
end;
end;
writeln('***********************************************************************');
readln;
end;

begin
clrscr;tbio;
clrscr;tnirm;
clrscr;daftarsiswa;
end.

Hasil program multi list :

Program File Sequensial

IDENTIFICATION DIVISION .
PROGRAM – ID. SEQUEL .
AUTHOR . JOGIYANTO HM .
SECURITY . PROGRAM MEMASUKAN DATA ORGANISASI FILE SEQUENTIAL
ENVIRONMENT DIVISION .

INPUT – OUTPUT SECTION .

FILE – CONTROL.

SELECT PENJUALAN ASSIGN TO DISK.

ORGANIZATION IS SEQUENTIAL.

ACCESS MODE IS SEQUENTIAL.

FILE STATUS IS STATUS – SALAH .

DATA DIVISION .

FILE SECTION .

FD PENJUALAN.

LABEL RECORD IS STANDARD.

VALUE OF FILE – ID IS ‘ JUAL . DAT ‘

DATA RECORD IS RECORD – RELASI .

01 DATA – PENJUALAN .

02 NOMER – FAKTUR PIC X ( 12 ) .

02 NAMA – LANGGANAN PIC X ( 25 ) .

02 KODE – JUAL PIC A .

88 TUNAI VALUE IS ‘ T ‘ .

88 KREDIT VALUE IS ‘ K ‘ .

02 NILAI – JUAL PIC 9 ( 6 ) .

WORKING – STORAGE SECTION .

77 STATUS – SALAH PIC XX .

01 SUDAH – BENAR PIC X .

88 BENAR VALUE ‘ Y ‘ , ‘ y ‘ .

88 BELUM VALUE ‘ T ‘ , ‘ t ‘ .

01 MASUKKAN – LAGI – TIDAK PIC X .

88 LAGI VALUE ‘ Y ‘ , ‘ y ‘ .

88 TIDAK VALUE ‘ T ‘ , ‘ t ‘ .

SCREEN SECTION .

01 HAPUS LAYAR .

02 BLANK SCREEN .

01 LAYAR – DATA .

02 LINE 4 COLUMN 5 ‘ NOMER FAKTUR

02 COLUMN PLUS 1 PIC X ( 12 ) TO NOMER – FAKTUR  REQUIRED .

02 LINE 6 COLUMN 5 ‘ NAMA LANGGANAN .

02 COLUMN PLUS 1 PIC X ( 25 ) TO NAMA – LANGGANAN .

02 LINE 8 COLUMN 5 ‘ KODE TRANSAKSI

02 COLUMN PLUS 1 PIC A TO KODE – JUAL .

02 LINE 10 COLUMN 5 ‘ NILAI PENJUALAN .

02 COLUMN PLUS 1 PIC 9 ( 6 ) TO NILAI – JUAL .

PROCEDURE DIVISION .
RUTIN – UTAMA SECTION .
BUKA – FILE .
OPEN OUTPUT PENJUALAN .
MULAI .
MOVE SPACE TO SUDAH – BENAR
PERFORM MASUKKAN – DATA UNTIL BENAR
PERFORM REKAM – DATA
PERFORM ADA – LAGI – TIDAK .
SELEKSI – MASUKKAN – LAGI – TIDAK .
IF LAGI
GO TO MULAI .
SELESAI .
CLOSE PENJUALAN
STOP RUN .
RUTIN – BAGIAN SECTION .
MASUKKAN – DATA .
DISPLAY HAPUS – LAYAR
DISPLAY LAYAR – DATA
ACCEPT LAYAR – DATA .
DISPLAY ( 18 , 5 ) ‘ SUDAH BENAR ( Y / T ) ? ‘
ACCEPT ( , ) SUDAH – BENAR .
REKAM – DATA .
MOVE ‘ ‘ TO STATUS – SALAH.
WRITE DATA – PENJUALAN.
PERFORM SELEKSI – REKAMAN .
ADA – LAGI – TIDAK .
DISPLAY ( 10 , 5 ) ‘ ADA LAGI DATA LAINNYA ( Y / T ) ? ‘.
ACCEPT ( , ) MASUKKAN – LAGI – TIDAK .
SELEKSI – REKAMAN .
IF STATUS – SALAH = ‘ 34 ‘.
DISPLAY ( 18 , 5 ) ‘ TIDAK TEREKAM , DISK PENUH ‘ .
IF STATUS – SALAH = ‘ 91 ‘.
DISPLAY ( 18 , 5 ) ‘ STRUKTUR FILE RUSAK ‘ .

Contoh Program bahasa C "membalikkan string"

HASILNYA :