www.rhz90210.com

it’s about Eko Hartanto daily task and moment

Macam-macam perintah LINUX

dikutip dari blog seseorang

ls

Code: Select all

Melihat isi file dari direktori aktif. Pada linux perintah "dir" hanya berupa alias dari perintah "ls". Untuk perintah "ls" sendiri sering dibuatkan alias "ls --color", agar pada waktu di "ls" ditampilkan warna-warna sesuai dengan file-filenya, biasanya hijau untuk execute, dsb.

ls -al

Code: Select all

Melihat seluruh isi file pada direktori aktif beserta file hidden + attribute/permission filenya , lalu ditampilkan layar perlayar.

cd (directory)

Code: Select all

Change directory. Menggunakan "cd" tanpa nama direktori akan menghantarkan anda ke home direktor. Dan "cd -" akan menghantarkan anda ke direktori sebelumnya.

cp source destination

Code: Select all

mengcopy suatu file. contohnya : cp /home/sleepholic/Desktop/Joomla.zip /opt/lampp/htdocs/ .Ini berarti saya mengcopyfile Joomla.zip yang ada di desktop ke folder htdocs di lampp Read more »

January 24, 2009 Posted by rhz90210 | Computer Article, My Study, computer Tips dan trick | , , , | No Comments Yet

ex turbo pascal 2

PROGRAM BUS_MALAM;
USES CRT;
VAR
N,I:BYTE;
NAMA:ARRAY[1..20] OF STRING;
JUMLAH,TOTAL:ARRAY[1..20]OF LONGINT;
TP:LONGINT;

BEGIN
CLRSCR;
WRITE(‘MASUKKAN JUMLAH PENUMPANG : ‘);READLN(N);
FOR I:=1 TO N DO
BEGIN
CLRSCR;
WRITELN(‘AGEN BUS MALAM “SUMBER ALAM”‘);
WRITELN;
WRITELN(‘DATA KE-’,I);
WRITE (‘NAMA PENUMPANG :’);READLN(NAMA[I]);
WRITE (‘JUMLAH BELI :’);READLN(JUMLAH[I]);

TOTAL[I]:=JUMLAH[I]*25000
END;
CLRSCR;
WRITELN(‘DATA PENJUALAN TIKET’);
WRITELN(‘AGEN BUS MALAM “SUMBER ALAM”‘);
WRITELN(‘——————————————————’);
WRITELN(‘NO. NAMA PENUMPANG JUMLAH BELI JUMLAH PEMBAYARAN’);
WRITELN(‘——————————————————’);
FOR I:= 1 TO N DO
WRITELN(I:2,NAMA[I]:16,JUMLAH[I]:15,’Rp.’,TOTAL[I]:12);
WRITELN;
WRITELN(‘——————————————————’);

FOR I:=1 TO N DO
TP:=TP+TOTAL[I];
WRITELN(‘TOTAL PEMBAYARAN Rp. ‘,TP:10);
WRITELN;
WRITELN(‘——————————————————’);
READLN;
END.

May 5, 2008 Posted by rhz90210 | My Study | | No Comments Yet

ex turbo pascal

program Uts;
uses crt;
var
total:real;
n,i:byte;
np,jenis:array[1..10]of string;
kd:array[1..10]of char;
jumbel:array[1..10]of integer;
harga,pot,jml_byr,hrg_bersih:array[1..10]of real;

begin
clrscr;
writeln(‘ BARANG ELEKTRONIK’);
writeln(‘—————————–’);
writeln;
write(‘Input Jumlah Data:’);readln(n);
for i:=1 to n do
begin
writeln(‘Data Ke-’,i);
write(‘nama pembeli:’);readln(np[i]);
write(‘kode[A/B/C/D/E]:’);readln(kd[i]);
write(‘Jumlah beli:’);readln(jumbel[i]);
writeln;
case kd[i] of
‘A’,'a’:begin
Jenis[i]:=’Komputer’;
Harga[i]:=3000000;
end;
‘B’,'b’:begin
Jenis[i]:=’TV’;
Harga[i]:=1500000;
end;
‘C’,'c’:begin
Jenis[i]:=’Mesin Cuci’;
harga[i]:=1000000;
end;
‘D’,'d’:begin
Jenis[i]:=’Radio’;
harga[i]:=800000;
end;
‘E’,'e’:begin
Jenis[i]:=’Mesin Tik’;
Harga[i]:=1300000;
end;
end;
jml_byr[i]:=jumbel[i]*harga[i];
if jumbel[i]>15 then
pot[i]:=0.1*jml_byr[i]
else
if jumbel[i]>10 then
pot[i]:=0.05*jml_byr[i]
else
pot[i]:=0.03*jml_byr[i];
hrg_bersih[i]:=jml_byr[i]-pot[i];
end;
writeln(‘—————————————————-’);
writeln(‘No Nama Jenis Barang Harga Potongan Harga Bersih’);
writeln(‘—————————————————-’);
for i:= 1 to n do
begin
writeln(i:2,np[i]:5,jenis[i]:13,harga[i]:15:0,pot[i]:13:0,hrg_bersih[i]:20:0);
end;
writeln(‘—————————————————-’);
for i:=1 to n do
begin
total:=total+hrg_bersih[i];
end;
writeln(‘total Pendapatan:’,total:0:0);
readln;
end.

May 5, 2008 Posted by rhz90210 | My Study | | No Comments Yet