tempat BERJUANG
About Me
- arista WHIE
- hai.. welcome to my blog... namaku wiwik.. Asli BALI.. aku kuliah di ITS jurusan STATISTIKA.. NRP 1311100020.. silahkan menikmati blogku.. see it n' enjoy it... semoga bermanfaat... kalau ad kurang g usah sungkan kasi komentar ya..
Sabtu, 24 Desember 2011
program modus
program modus;
uses wincrt;
var i,n,j,a :integer;
jumlah:real;
hitung, x,modus: array [1..100] of real;
begin
readln (n);
for i:=1 to n do
readln (x[i]);
begin
for i:=1 to n do
for j:=i+1 to n do
if (x[i]>x[j]) then
begin
a:=x[i];
x[i]:=x[j];
x[j]:=a;
end;
jumlah:=0;
begin
for i:=1 to n-1 do
begin
for j:=1+i to n do
if x[i]=x[j] then hitung [i]:=hitung[i]+1 else if (hitung [i]>hitung[jumlah]) then
begin
jumlah:=hitung(x[i]);
modus:=(x[i]);
end;
end;
writeln ('modus= ',modus,'jumlah data= ',jumlah);
end;
end.
uses wincrt;
var i,n,j,a :integer;
jumlah:real;
hitung, x,modus: array [1..100] of real;
begin
readln (n);
for i:=1 to n do
readln (x[i]);
begin
for i:=1 to n do
for j:=i+1 to n do
if (x[i]>x[j]) then
begin
a:=x[i];
x[i]:=x[j];
x[j]:=a;
end;
jumlah:=0;
begin
for i:=1 to n-1 do
begin
for j:=1+i to n do
if x[i]=x[j] then hitung [i]:=hitung[i]+1 else if (hitung [i]>hitung[jumlah]) then
begin
jumlah:=hitung(x[i]);
modus:=(x[i]);
end;
end;
writeln ('modus= ',modus,'jumlah data= ',jumlah);
end;
end.
Jumat, 16 Desember 2011
1311100020
Fakultas Ilmu Pengetahuan Alam, Jurusan Statistika, Angkatan 2011, Prodi S1, dengan nomor pendaftaran 20..
itulah arti angka ini..
angka yang menyertaiku menggapai mimpi-mimpiku di kampus perjuangan Institut Teknologi Sepuluh Nopember.. ^^
itulah arti angka ini..
angka yang menyertaiku menggapai mimpi-mimpiku di kampus perjuangan Institut Teknologi Sepuluh Nopember.. ^^
Selasa, 13 Desember 2011
program bintang segitiga sama kaki
program pp;
uses wincrt;
var n,i,j :integer;
begin
readln (n);
for i:=n downto 1 do
begin
for j:=1 to n do
begin
if (j<i) then write (' ') else
write ('*');
end;
writeln;
end;
end.
uses wincrt;
var n,i,j :integer;
begin
readln (n);
for i:=n downto 1 do
begin
for j:=1 to n do
begin
if (j<i) then write (' ') else
write ('*');
end;
writeln;
end;
end.
penjumlahan angka ganjil
program penjumlahan_angka ganjil;
uses wincrt;
var i,j,n,sum :integer;
begin
readln (n);
begin
if n=1 then write ('1') else
if n>1 then
begin
for i:=n downto 2 do
begin
sum:=1;
j:=(2*i-1);
write (j,'+');
sum:=sum+j;
end;
writeln (1,'=',sum);
end;
end;
end.
uses wincrt;
var i,j,n,sum :integer;
begin
readln (n);
begin
if n=1 then write ('1') else
if n>1 then
begin
for i:=n downto 2 do
begin
sum:=1;
j:=(2*i-1);
write (j,'+');
sum:=sum+j;
end;
writeln (1,'=',sum);
end;
end;
end.
program bintang berbentuk belah ketupat
program bintang_belahketupat;
uses wincrt;
var i,j,n,t,r :integer;
begin
readln (n);
t:=n div 2;
for r:=1 to n do
begin
if (r=t) then
begin
for i:=t downto 1 do
begin
for j:=2*t-1downto 1 do
begin
if ((j<i) or (j>(2*t-1)-i+1)) then
write (' ') else
write ('*');
end;
writeln ;
end;
end
else
if r=t+1 then
begin
for i:=1 to t do
begin
for j:=1 to 2*t-1 do
begin
if ((j<i) or (j>(2*t-1)-i+1)) then
write (' ') else
write ('*');
end;
writeln ;
end;
end;
end;
end.
uses wincrt;
var i,j,n,t,r :integer;
begin
readln (n);
t:=n div 2;
for r:=1 to n do
begin
if (r=t) then
begin
for i:=t downto 1 do
begin
for j:=2*t-1downto 1 do
begin
if ((j<i) or (j>(2*t-1)-i+1)) then
write (' ') else
write ('*');
end;
writeln ;
end;
end
else
if r=t+1 then
begin
for i:=1 to t do
begin
for j:=1 to 2*t-1 do
begin
if ((j<i) or (j>(2*t-1)-i+1)) then
write (' ') else
write ('*');
end;
writeln ;
end;
end;
end;
end.
program matrik
program matrik;
uses wincrt;
type data = array[1..10,1..10] of real;
var matrikI,matrikII : data;
baris,kolom,pil : integer;
procedure isimatrik;
var i,j : integer;
begin
writeln('Penentuan ORDO MATRIK I');
write('Masukan banyak baris matrik I = ');readln(baris);
write('Masukan banyak kolom matrik I = ');readln(kolom);
for i:=1 to baris do
for j:=1 to kolom do
begin
gotoxy(j*10,i*5);
readln(matrikI[i,j]);
end;
clrscr;
writeln('Penentuan ORDO MATRIK II');
write('Masukan banyak baris matrik II = ');readln(baris);
write('Masukan banyak kolom matrik II = ');readln(kolom);
for i:=1 to baris do
for j:=1 to kolom do
begin
gotoxy(j*10,i*5);
readln(matrikII[i,j]);
end;
end;
procedure jumlahmatrik(m1,m2 : data);
var hasil : data;
i,j : integer;
begin
for i:=1 to baris do
for j:=1 to kolom do
begin
hasil[i,j]:=m1[i,j]+m2[i,j];
end;
clrscr;
writeln('Hasil Penjumlahan MATRIK');
for i:=1 to baris do
for j:=1 to kolom do
begin
gotoxy(j*10,i*5);
write(hasil[i,j]);
end;
end;
procedure kurangmatrik(m1,m2 : data);
var hasil : data;
i,j : integer;
begin
for i:=1 to baris do
for j:=1 to kolom do
begin
hasil[i,j]:=m1[i,j]-m2[i,j];
end;
clrscr;
writeln('Hasil Pengurangan MATRIK');
for i:=1 to baris do
for j:=1 to kolom do
begin
gotoxy(j*10,i*5);
write(hasil[i,j]);
end;
end;
procedure kalimatrik(m1,m2 : data);
var hasil : data;
i,j,z : integer;
begin
for i:=1 to baris do
for j:=1 to kolom do
begin
hasil[i,j]:=0;
for z:=1 to baris do
hasil[i,j]:=hasil[i,j]+matrikI[i,z]*matrikII[z,j];
end;
clrscr;
writeln('Hasil Perkalian MATRIK');
for i:=1 to baris do
for j:=1 to kolom do
begin
gotoxy(j*10,i*5);
write(hasil[i,j]);
end;
end;
begin
writeln(' M E N U');
writeln('(1) Penjumlahan Matrik');
writeln('(2) Pengurangan Matrik');
writeln('(3) Perkalian Matrik');
write('Pilihan = ');readln(pil);
clrscr;
case pil of
1 : begin
isimatrik;
jumlahmatrik(matrikI,matrikII);
end;
2 : begin
isimatrik;
kurangmatrik(matrikI,matrikII);
end;
3 : begin
isimatrik;
kalimatrik(matrikI,matrikII);
end;
end;
end.
uses wincrt;
type data = array[1..10,1..10] of real;
var matrikI,matrikII : data;
baris,kolom,pil : integer;
procedure isimatrik;
var i,j : integer;
begin
writeln('Penentuan ORDO MATRIK I');
write('Masukan banyak baris matrik I = ');readln(baris);
write('Masukan banyak kolom matrik I = ');readln(kolom);
for i:=1 to baris do
for j:=1 to kolom do
begin
gotoxy(j*10,i*5);
readln(matrikI[i,j]);
end;
clrscr;
writeln('Penentuan ORDO MATRIK II');
write('Masukan banyak baris matrik II = ');readln(baris);
write('Masukan banyak kolom matrik II = ');readln(kolom);
for i:=1 to baris do
for j:=1 to kolom do
begin
gotoxy(j*10,i*5);
readln(matrikII[i,j]);
end;
end;
procedure jumlahmatrik(m1,m2 : data);
var hasil : data;
i,j : integer;
begin
for i:=1 to baris do
for j:=1 to kolom do
begin
hasil[i,j]:=m1[i,j]+m2[i,j];
end;
clrscr;
writeln('Hasil Penjumlahan MATRIK');
for i:=1 to baris do
for j:=1 to kolom do
begin
gotoxy(j*10,i*5);
write(hasil[i,j]);
end;
end;
procedure kurangmatrik(m1,m2 : data);
var hasil : data;
i,j : integer;
begin
for i:=1 to baris do
for j:=1 to kolom do
begin
hasil[i,j]:=m1[i,j]-m2[i,j];
end;
clrscr;
writeln('Hasil Pengurangan MATRIK');
for i:=1 to baris do
for j:=1 to kolom do
begin
gotoxy(j*10,i*5);
write(hasil[i,j]);
end;
end;
procedure kalimatrik(m1,m2 : data);
var hasil : data;
i,j,z : integer;
begin
for i:=1 to baris do
for j:=1 to kolom do
begin
hasil[i,j]:=0;
for z:=1 to baris do
hasil[i,j]:=hasil[i,j]+matrikI[i,z]*matrikII[z,j];
end;
clrscr;
writeln('Hasil Perkalian MATRIK');
for i:=1 to baris do
for j:=1 to kolom do
begin
gotoxy(j*10,i*5);
write(hasil[i,j]);
end;
end;
begin
writeln(' M E N U');
writeln('(1) Penjumlahan Matrik');
writeln('(2) Pengurangan Matrik');
writeln('(3) Perkalian Matrik');
write('Pilihan = ');readln(pil);
clrscr;
case pil of
1 : begin
isimatrik;
jumlahmatrik(matrikI,matrikII);
end;
2 : begin
isimatrik;
kurangmatrik(matrikI,matrikII);
end;
3 : begin
isimatrik;
kalimatrik(matrikI,matrikII);
end;
end;
end.
Sabtu, 10 Desember 2011
program matrik jumlah, kurang, kali
program matrik;
uses wincrt;
var
a,b,c :array [1..10,1..10] of integer;
i,j,h, baris1, kolom1, baris2, kolom2:integer;
begin
readln(baris1);
readln(kolom1);
begin
for i:=1 to baris1 do
for j:=1 to kolom1 do
readln (a[i,j]);
writeln;
begin
readln (baris2);
readln (kolom2);
for i:=1 to baris2 do
for j:=1 to kolom2 do
readln (b[i,j]);
end;
begin
for i:=1 to baris1 do
begin
for j:=1 to kolom2 do
begin
c[i,j]:=0;
c[i,j]:=c[i,j]+a[i,j]+b[i,j];
write (c[i,j]:2,' ');
end;
writeln;
end;
begin
begin
for i:=1 to baris1 do
begin
for j:=1 to kolom2 do
begin
c[i,j]:=0;
c[i,j]:=c[i,j]+a[i,j]-b[i,j];
write (c[i,j]:2,' ');
end;
writeln;
end;
begin
for i:=1 to baris1 do
begin
for j:=1 to kolom2 do
begin
c[i,j]:=0;
for h:=1 to kolom1 do
c[i,j]:=c[i,j]+a[i,h]*b[h,j];
write (c[i,j]:2,' ');
end;
writeln;
end;
end;
end;
end;
end;
end;
end.
uses wincrt;
var
a,b,c :array [1..10,1..10] of integer;
i,j,h, baris1, kolom1, baris2, kolom2:integer;
begin
readln(baris1);
readln(kolom1);
begin
for i:=1 to baris1 do
for j:=1 to kolom1 do
readln (a[i,j]);
writeln;
begin
readln (baris2);
readln (kolom2);
for i:=1 to baris2 do
for j:=1 to kolom2 do
readln (b[i,j]);
end;
begin
for i:=1 to baris1 do
begin
for j:=1 to kolom2 do
begin
c[i,j]:=0;
c[i,j]:=c[i,j]+a[i,j]+b[i,j];
write (c[i,j]:2,' ');
end;
writeln;
end;
begin
begin
for i:=1 to baris1 do
begin
for j:=1 to kolom2 do
begin
c[i,j]:=0;
c[i,j]:=c[i,j]+a[i,j]-b[i,j];
write (c[i,j]:2,' ');
end;
writeln;
end;
begin
for i:=1 to baris1 do
begin
for j:=1 to kolom2 do
begin
c[i,j]:=0;
for h:=1 to kolom1 do
c[i,j]:=c[i,j]+a[i,h]*b[h,j];
write (c[i,j]:2,' ');
end;
writeln;
end;
end;
end;
end;
end;
end;
end.
Sabtu, 03 Desember 2011
program matrik transpose
program dimensi;
uses wincrt;
var
x:array [1..100,1..100] of integer;
p,l,i,j :integer;
begin
write ('p = '); readln (p);
write ('l = ');readln (l);
for i:=1 to p do
for j:=1 to l do
readln (x[i,j]);
writeln;
writeln ('bentuk matriknya');
for i:=1 to l do
begin
for j:=1 to p do
write (x[j,i],' ');
writeln;
end;
writeln ('bentuk matrik transpose');
for i:=1 to p do
begin
for j:=1 to l do
write (x[j,i],' ');
writeln;
end;
end.program dimensi;
uses wincrt;
var
x:array [1..100,1..100] of integer;
p,l,i,j :integer;
begin
write ('p = '); readln (p);
write ('l = ');readln (l);
for i:=1 to p do
for j:=1 to l do
readln (x[i,j]);
writeln;
writeln ('bentuk matriknya');
for i:=1 to l do
begin
for j:=1 to p do
write (x[j,i],' ');
writeln;
end;
writeln ('bentuk matrik transpose');
for i:=1 to p do
begin
for j:=1 to l do
write (x[j,i],' ');
writeln;
end;
end.
uses wincrt;
var
x:array [1..100,1..100] of integer;
p,l,i,j :integer;
begin
write ('p = '); readln (p);
write ('l = ');readln (l);
for i:=1 to p do
for j:=1 to l do
readln (x[i,j]);
writeln;
writeln ('bentuk matriknya');
for i:=1 to l do
begin
for j:=1 to p do
write (x[j,i],' ');
writeln;
end;
writeln ('bentuk matrik transpose');
for i:=1 to p do
begin
for j:=1 to l do
write (x[j,i],' ');
writeln;
end;
end.program dimensi;
uses wincrt;
var
x:array [1..100,1..100] of integer;
p,l,i,j :integer;
begin
write ('p = '); readln (p);
write ('l = ');readln (l);
for i:=1 to p do
for j:=1 to l do
readln (x[i,j]);
writeln;
writeln ('bentuk matriknya');
for i:=1 to l do
begin
for j:=1 to p do
write (x[j,i],' ');
writeln;
end;
writeln ('bentuk matrik transpose');
for i:=1 to p do
begin
for j:=1 to l do
write (x[j,i],' ');
writeln;
end;
end.
Jumat, 25 November 2011
program laurin (by mas iwan asdos pik s1 statistika 2011 A)
program laurin ;
uses wincrt;
var
x,y:array[1..1000] of real;
i,j,n:longint;
a,sum,p:real;
begin
readln(n);
readln(a);
sum:=0;
for i:=1 to n do
begin
x[i]:=-1/i;
p:=1;
for j:=1 to i do
p:=p*a;
y[i]:=p;
sum:=sum+x[i]*y[i];end;
writeln('hasil= ',sum:0:5);
writeln('asli= ',ln(1-a):0:5);
writeln('error= ',ln(1-a)-sum:0:5);
end.
uses wincrt;
var
x,y:array[1..1000] of real;
i,j,n:longint;
a,sum,p:real;
begin
readln(n);
readln(a);
sum:=0;
for i:=1 to n do
begin
x[i]:=-1/i;
p:=1;
for j:=1 to i do
p:=p*a;
y[i]:=p;
sum:=sum+x[i]*y[i];end;
writeln('hasil= ',sum:0:5);
writeln('asli= ',ln(1-a):0:5);
writeln('error= ',ln(1-a)-sum:0:5);
end.
program memanggil suatu data
program muncul;
uses wincrt;
var
x: array[1..100] of string;
i,n,z:integer;
begin
write('Masukkan banyak hari : ');readln(n);
writeln;
for i:=1 to n do
begin
write ('hari ke ',i,' = ');
readln (x[i]);
end;
begin
writeln;
write ('hari yang diinginkan= '); readln (z);
write ('Hari ke ' ,z,' adalah ',x[z]);
end;
end.
uses wincrt;
var
x: array[1..100] of string;
i,n,z:integer;
begin
write('Masukkan banyak hari : ');readln(n);
writeln;
for i:=1 to n do
begin
write ('hari ke ',i,' = ');
readln (x[i]);
end;
begin
writeln;
write ('hari yang diinginkan= '); readln (z);
write ('Hari ke ' ,z,' adalah ',x[z]);
end;
end.
Sabtu, 19 November 2011
program-program baru
program plus2;
uses wincrt;
var i,n:integer;
rata,vars,jml,jml1, sd, max, min, range:real;
x:array [1..100] of real;
begin
readln (n);
if n<0 then write ('tidak terdefinisi') else if n>0 then
begin
for i:=1 to n do
readln (x[i]);
begin
jml:=0;
for i:=1 to n do
jml:=jml+(x[i]);
rata:=jml/n;
writeln ('rata-rata= ',rata);
end;
begin
jml1:=0;
for i:=1 to n do
jml1:=jml1+((x[i]-rata)*(x[i]-rata));
vars:=jml1/(n-1);
writeln ('varian= ',vars);
end;
begin
sd:= sqrt (vars);
writeln ('standar deviasi= ',sd);
end;
begin
max:= (x[i]);
min:=(x[i]);
for i:=1 to n do
if (x[i]) > max then max:=(x[i])
else if (x[i]) < min then min :=(x[i]);
writeln ('nilai minimum= ',min);
writeln ('nilai maksimum= ',max);
range:= max-min;
writeln ('range= ',range);
end;
end;
end.
uses wincrt;
var i,n:integer;
rata,vars,jml,jml1, sd, max, min, range:real;
x:array [1..100] of real;
begin
readln (n);
if n<0 then write ('tidak terdefinisi') else if n>0 then
begin
for i:=1 to n do
readln (x[i]);
begin
jml:=0;
for i:=1 to n do
jml:=jml+(x[i]);
rata:=jml/n;
writeln ('rata-rata= ',rata);
end;
begin
jml1:=0;
for i:=1 to n do
jml1:=jml1+((x[i]-rata)*(x[i]-rata));
vars:=jml1/(n-1);
writeln ('varian= ',vars);
end;
begin
sd:= sqrt (vars);
writeln ('standar deviasi= ',sd);
end;
begin
max:= (x[i]);
min:=(x[i]);
for i:=1 to n do
if (x[i]) > max then max:=(x[i])
else if (x[i]) < min then min :=(x[i]);
writeln ('nilai minimum= ',min);
writeln ('nilai maksimum= ',max);
range:= max-min;
writeln ('range= ',range);
end;
end;
end.
Kamis, 03 November 2011
program bintang2
program bintang;
uses wincrt;
var i,j,n :integer;
begin
readln (n);
for i:=2*n-1 downto 1 do
begin
for j:=n downto 1 do
begin
if ((j>i) or (j>(2*n-1)-i+1)) then
write (' ') else
write ('*');
end;
writeln ;
end;
end.
uses wincrt;
var i,j,n :integer;
begin
readln (n);
for i:=2*n-1 downto 1 do
begin
for j:=n downto 1 do
begin
if ((j>i) or (j>(2*n-1)-i+1)) then
write (' ') else
write ('*');
end;
writeln ;
end;
end.
program faktorial
program fakto;
uses wincrt;
var i,n,f :integer;
begin
f:=1;
readln(n);
for i:=n downto 2 do
begin
write (i,'x');
f:=i*f;
end;
if n<0 then write ('tidak terdefinisikan') else
write (1,'=',f);
end.
uses wincrt;
var i,n,f :integer;
begin
f:=1;
readln(n);
for i:=n downto 2 do
begin
write (i,'x');
f:=i*f;
end;
if n<0 then write ('tidak terdefinisikan') else
write (1,'=',f);
end.
Minggu, 30 Oktober 2011
mengitung nilai mata kuliah
program nilai_makul;
uses wincrt;
var A, AB, B, BC, C, D, E : string;
i:integer;
begin
writeln ('nilai mata kuliah= ') ;readln (i);
if i<0 then write ('tidak terdefinisi') else if i>0 then
if (i)<41 then write ('E')
else
if (i)<61 then write ('D')
else
if (i)<66 then write ('C')
else
if (i)<71 then write ('BC')
else
if (i)<76 then write ('B')
else
if (i)<81 then write ('AB')
else
if (i)<101 then write ('A')
end.
uses wincrt;
var A, AB, B, BC, C, D, E : string;
i:integer;
begin
writeln ('nilai mata kuliah= ') ;readln (i);
if i<0 then write ('tidak terdefinisi') else if i>0 then
if (i)<41 then write ('E')
else
if (i)<61 then write ('D')
else
if (i)<66 then write ('C')
else
if (i)<71 then write ('BC')
else
if (i)<76 then write ('B')
else
if (i)<81 then write ('AB')
else
if (i)<101 then write ('A')
end.
program mengitung umur
program menghitung_umur;
uses wincrt;
var
nama:string;
umur,TL:integer;
begin
writeln ('input nama: '); readln (nama);
writeln ('input tahun lahir: ') ; readln (TL);
umur:=2011-TL;
writeln (umur);
end.
uses wincrt;
var
nama:string;
umur,TL:integer;
begin
writeln ('input nama: '); readln (nama);
writeln ('input tahun lahir: ') ; readln (TL);
umur:=2011-TL;
writeln (umur);
end.
deret angka
program deret_angka;
uses wincrt;
var n, i,j : integer;
begin
n:=1;
for i:=1 to 4 do
begin
for j:=1 to i do
begin
write (n,' ');
n:=n+1;
end;
writeln (' ');
end;
end.
uses wincrt;
var n, i,j : integer;
begin
n:=1;
for i:=1 to 4 do
begin
for j:=1 to i do
begin
write (n,' ');
n:=n+1;
end;
writeln (' ');
end;
end.
penjumlahan angka genap
program penjumlahan_angkagenap;
uses wincrt;
var i,j,n,sum :integer;
begin
readln (n);
if n=1 then write ('0') else
if n>1 then
begin
sum:=0;
for i:=n downto 2 do
begin
j:=(2*i-2);
write (j,'+');
sum:=sum+j;
end;
writeln (0,'=',sum);
end;
end.
uses wincrt;
var i,j,n,sum :integer;
begin
readln (n);
if n=1 then write ('0') else
if n>1 then
begin
sum:=0;
for i:=n downto 2 do
begin
j:=(2*i-2);
write (j,'+');
sum:=sum+j;
end;
writeln (0,'=',sum);
end;
end.
Sabtu, 22 Oktober 2011
program deret angka 1-10
program deret_angka;
uses wincrt;
var i,j : integer;
begin
for i:=1 to 10 do
i:= i+1;
begin
for j:=1 to i do
write (j,' ');
end;
writeln;
end.
uses wincrt;
var i,j : integer;
begin
for i:=1 to 10 do
i:= i+1;
begin
for j:=1 to i do
write (j,' ');
end;
writeln;
end.
Minggu, 16 Oktober 2011
deret pengurangan 3
program deret_angka;
uses wincrt;
var
i,a : integer;
begin
a:=16;
for i:= 6 downto 1 do
begin
write (a,' ');
a :=a-3;
end;
end.
uses wincrt;
var
i,a : integer;
begin
a:=16;
for i:= 6 downto 1 do
begin
write (a,' ');
a :=a-3;
end;
end.
Jumat, 14 Oktober 2011
program deret fibonacci
program fibonacci;
uses wincrt;
var a,b,c,i,n: integer;
begin
readln (n);
a:=1;b:=0;
for i:=1 to n do
begin
c:=a+b;
a:=b;
b:=c;
write (c,' ');
end;
end.
uses wincrt;
var a,b,c,i,n: integer;
begin
readln (n);
a:=1;b:=0;
for i:=1 to n do
begin
c:=a+b;
a:=b;
b:=c;
write (c,' ');
end;
end.
Kamis, 13 Oktober 2011
program atm
program atm_bersama
uses wincrt; var uang : longint; begin write('Nilai uang : ');readln(uang); if uang div 100000 > 0 then begin writeln(uang div 100000, ' lembar seratus ribuan'); uang := uang mod 100000; end; if uang div 50000 > 0 then begin writeln(uang div 50000, ' lembar lima puluh ribuan'); uang := uang mod 50000; end; if uang div 20000 > 0 then begin writeln(uang div 20000, ' lembar dua puluh ribuan'); uang := uang mod 20000; end; if uang div 10000 > 0 then begin writeln(uang div 10000, ' lembar sepuluh ribuan'); uang := uang mod 10000; end; if uang div 5000 > 0 then begin writeln(uang div 5000, ' lembar lima ribuan'); uang := uang mod 5000; end; if uang div 1000 > 0 then begin writeln(uang div 1000, ' lembar ribuan'); uang := uang mod 1000; end; if uang div 500 > 0 then begin writeln(uang div 500, ' lembar lima ratusan'); uang := uang mod 500; end; if uang div 100 > 0 then begin writeln(uang div 100, ' ratusan'); uang := uang mod 100; end; if uang div 50 > 0 then begin writeln(uang div 50, ' limapuluhan'); uang := uang mod 50; end; if uang > 0 then begin writeln(uang, ' satuan'); end; end.
Kamis, 06 Oktober 2011
Sejarah Komputer
Generasi Pertama
Dengan terjadinya Perang
Dunia Kedua, negara-negara yang terlibat dalam perang tersebut
berusaha mengembangkan komputer untuk mengeksploit potensi strategis yang dimiliki komputer. Hal ini meningkatkan
pendanaan pengembangan komputer serta mempercepat kemajuan teknik komputer. Pada tahun
1941, Konrad Zuse, seorang insinyur Jerman membangun sebuah komputer, Z3, untuk mendesain pesawat terbang dan peluru kendali.
Pihak sekutu juga membuat kemajuan lain dalam
pengembangan kekuatan komputer. Tahun 1943, pihak Inggris menyelesaikan komputer pemecah kode rahasia
yang dinamakan Colossus untuk memecahkan kode rahasia yang digunakan Jerman. Dampak
pembuatan Colossus tidak terlalu mempengaruhi perkembangan industri komputer dikarenakan
dua alasan. Pertama, Colossus bukan merupakan komputer serbaguna (general-purpose computer),
ia hanya didesain untuk memecahkan kode rahasia. Kedua, keberadaan mesin ini dijaga kerahasiaannya hingga satu
dekade setelah perang berakhir.
Usaha yang dilakukan oleh pihak Amerika pada saat itu
menghasilkan suatu kemajuan lain. Howard H. Aiken (1900-1973), seorang insinyur Harvard yang bekerja dengan
IBM, berhasil memproduksi kalkulator elektronik untuk US Navy. Kalkulator tersebut
berukuran panjang setengah lapangan bola kaki dan memiliki rentang kabel sepanjang 500 mil. The Harvard-IBM Automatic Sequence
Controlled Calculator, atau Mark I, merupakan komputer relai elektronik.
Ia menggunakan sinyal elektromagnetik
untuk menggerakkan komponen mekanik. Mesin tersebut beropreasi
dengan lambat (ia membutuhkan 3-5 detik untuk setiap perhitungan) dan tidak
fleksibel (urutan kalkulasi
tidak dapat diubah). Kalkulator
tersebut dapat melakukan perhitungan aritmatik dasar dan persamaan yang lebih kompleks.
Perkembangan komputer lain pada masa kini
adalah Electronic Numerical Integrator and Computer (ENIAC), yang dibuat oleh kerjasama antara
pemerintah Amerika
Serikat dan University of Pennsylvania. Terdiri dari 18.000 tabung vakum, 70.000 resistor, dan 5 juta titik solder, komputer tersebut merupakan mesin yang sangat besar
yang mengkonsumsi daya sebesar 160kW.
Komputer ini dirancang oleh John Presper Eckert (1919-1995) dan John W. Mauchly (1907-1980), ENIAC merupakan
komputer serbaguna (general purpose computer) yang bekerja 1000 kali lebih
cepat dibandingkan Mark I.
Pada pertengahan 1940-an, John von Neumann
(1903-1957) bergabung dengan tim University of Pennsylvania dalam usaha
membangun konsep desain komputer yang hingga 40 tahun mendatang masih dipakai
dalam teknik komputer. Von Neumann mendesain Electronic Discrete Variable
Automatic Computer (EDVAC) pada tahun 1945
dengan sebuah memori untuk menampung baik
program ataupun data.
Teknik ini memungkinkan komputer untuk berhenti pada suatu saat dan kemudian melanjutkan
pekerjaannya kembali. Kunci utama arsitektur von Neumann
adalah unit pemrosesan sentral (CPU), yang
memungkinkan seluruh fungsi komputer untuk dikoordinasikan melalui satu sumber
tunggal. Tahun 1951, UNIVAC I (Universal Automatic Computer I) yang dibuat oleh Remington Rand, menjadi komputer komersial
pertama yang memanfaatkan model arsitektur Von Neumann tersebut.
Baik Badan Sensus Amerika Serikat
dan General
Electric memiliki UNIVAC. Salah satu hasil mengesankan yang dicapai oleh UNIVAC
dalah keberhasilannya dalam memprediksi kemenangan Dwilight D. Eisenhower dalam pemilihan presiden tahun 1952.
Komputer Generasi pertama dikarakteristik dengan fakta bahwa instruksi operasi
dibuat secara spesifik untuk suatu tugas tertentu. Setiap komputer memiliki
program kode biner yang berbeda yang disebut “bahasa mesin” (machine
language). Hal ini menyebabkan komputer sulit untuk diprogram dan membatasi
kecepatannya. Ciri lain komputer generasi pertama adalah penggunaan tube vakum (yang membuat komputer pada masa
tersebut berukuran sangat besar) dan silinder magnetik untuk penyimpanan data.
Pada tahun 1948, penemuan transistor sangat
mempengaruhi perkembangan komputer. Transistor menggantikan tube vakum di
televisi, radio, dan komputer. Akibatnya, ukuran mesin-mesin elektrik berkurang drastis.
Transistor mulai digunakan di dalam komputer
mulai pada tahun 1956. Penemuan lain yang
berupa pengembangan memori inti-magnetik membantu pengembangan
komputer generasi kedua yang lebih kecil, lebih cepat, lebih dapat diandalkan,
dan lebih hemat
energi dibanding para pendahulunya. Mesin pertama yang memanfaatkan
teknologi baru ini adalah superkomputer.
IBM membuat superkomputer bernama Stretch, dan Sprery-Rand membuat komputer bernama LARC. Komputer-komputer ini, yang dikembangkan untuk laboratorium energi atom, dapat menangani sejumlah besar data,
sebuah kemampuan yang sangat dibutuhkan oleh peneliti atom. Mesin
tersebut sangat mahal dan cenderung terlalu kompleks untuk kebutuhan komputasi
bisnis, sehingga membatasi kepopulerannya. Hanya ada dua LARC yang pernah
dipasang dan digunakan: satu di Lawrence Radiation Labs di Livermore, California,
dan yang lainnya di US Navy Research and Development
Center di Washington
D.C. Komputer generasi kedua menggantikan bahasa mesin dengan bahasa
assembly. Bahasa assembly adalah bahasa yang menggunakan singkatan-singakatan
untuk menggantikan kode biner.
Pada awal 1960-an, mulai bermunculan komputer
generasi kedua yang sukses di bidang bisnis, di universitas, dan di pemerintahan.
Komputer-komputer generasi kedua ini merupakan komputer yang sepenuhnya
menggunakan transistor. Mereka juga memiliki komponen-komponen yang dapat
diasosiasikan dengan komputer pada saat ini: printer, penyimpanan dalam disket, memory, sistem
operasi, dan program.
Salah satu contoh penting komputer pada masa
ini adalah IBM 1401 yang diterima secara luas di kalangan industri. Pada tahun 1965, hampir seluruh bisnis-bisnis besar
menggunakan komputer generasi kedua untuk memproses informasi keuangan.
Program yang tersimpan di dalam komputer dan
bahasa pemrograman yang ada di dalamnya memberikan fleksibilitas kepada
komputer. Fleksibilitas ini meningkatkan kinerja dengan harga yang pantas bagi
penggunaan bisnis. Dengan konsep ini, komputer dapat mencetak faktur pembelian
konsumen dan kemudian menjalankan desain produk atau menghitung daftar gaji.
Beberapa bahasa
pemrograman mulai bermunculan pada saat itu. Bahasa pemrograman
Common Business-Oriented Language (COBOL)
dan Formula Translator (FORTRAN)
mulai umum digunakan. Bahasa pemrograman ini menggantikan kode mesin yang rumit
dengan kata-kata, kalimat, dan formula matematika yang lebih mudah dipahami
oleh manusia. Hal ini memudahkan seseorang untuk memprogram dan mengatur
komputer. Berbagai macam karir baru bermunculan (programmer, analis sistem, dan ahli sistem komputer). Industri piranti lunak juga mulai
bermunculan dan berkembang pada masa komputer generasi kedua ini.
Walaupun transistor dalam banyak hal
mengungguli tube vakum, namun transistor menghasilkan panas yang cukup besar, yang dapat berpotensi
merusak bagian-bagian internal komputer. Batu kuarsa (quartz rock) menghilangkan
masalah ini. Jack Kilby,
seorang insinyur di Texas Instrument, mengembangkan sirkuit
terintegrasi (IC : integrated circuit) di tahun 1958. IC mengkombinasikan tiga komponen
elektronik dalam sebuah piringan silikon
kecil yang terbuat dari pasir kuarsa. Pada ilmuwan kemudian berhasil memasukkan
lebih banyak komponen-komponen ke dalam suatu chip tunggal yang disebut semikonduktor. Hasilnya,
komputer menjadi semakin kecil karena komponen-komponen dapat dipadatkan dalam chip. Kemajuan komputer generasi ketiga
lainnya adalah penggunaan sistem operasi (operating system) yang memungkinkan
mesin untuk menjalankan berbagai program yang berbeda secara serentak dengan
sebuah program utama yang memonitor dan
mengkoordinasi memori komputer.
Setelah IC, tujuan pengembangan menjadi lebih
jelas: mengecilkan ukuran sirkuit dan komponen-komponen elektrik. Large Scale
Integration (LSI) dapat memuat ratusan komponen dalam sebuah chip. Pada
tahun 1980-an, Very Large Scale Integration (VLSI) memuat ribuan komponen dalam sebuah chip tunggal.
Ultra-Large Scale Integration (ULSI)
meningkatkan jumlah tersebut menjadi jutaan. Kemampuan untuk memasang
sedemikian banyak komponen dalam suatu keping yang berukurang setengah keping uang logam mendorong turunnya
harga dan ukuran komputer. Hal tersebut juga meningkatkan daya kerja, efisiensi
dan keterandalan komputer. Chip Intel 4004 yang dibuat pada
tahun 1971 membawa kemajuan pada
IC dengan meletakkan seluruh komponen dari sebuah komputer (central processing
unit, memori, dan kendali input/output) dalam sebuah chip yang sangat kecil. Sebelumnya, IC
dibuat untuk mengerjakan suatu tugas tertentu yang spesifik. Sekarang, sebuah mikroprosesor dapat
diproduksi dan kemudian diprogram untuk memenuhi seluruh kebutuhan yang
diinginkan. Tidak lama kemudian, setiap piranti rumah tangga seperti microwave, oven, televisi, dan mobil dengan electronic fuel injection (EFI) dilengkapi dengan mikroprosesor.
Perkembangan yang demikian memungkinkan
orang-orang biasa untuk menggunakan komputer biasa. Komputer tidak lagi menjadi
dominasi perusahaan-perusahaan besar atau lembaga pemerintah. Pada pertengahan
tahun 1970-an, perakit komputer menawarkan produk komputer
mereka ke masyarakat umum.
Komputer-komputer ini, yang disebut minikomputer, dijual dengan paket piranti
lunak yang mudah digunakan oleh kalangan awam. Piranti lunak yang paling populer pada saat itu adalah
program word processing dan spreadsheet. Pada awal
1980-an, video game seperti Atari 2600
menarik perhatian konsumen pada komputer rumahan yang lebih canggih dan dapat
diprogram.
Pada tahun 1981, IBM memperkenalkan penggunaan Personal
Computer (PC) untuk penggunaan di rumah, kantor, dan sekolah. Jumlah PC yang
digunakan melonjak dari 2 juta unit di tahun 1981 menjadi 5,5 juta unit di
tahun 1982. Sepuluh tahun kemudian, 65 juta PC digunakan. Komputer melanjutkan
evolusinya menuju ukuran yang lebih kecil, dari komputer yang berada di atas meja
(desktop computer) menjadi komputer yang dapat
dimasukkan ke dalam tas (laptop),
atau bahkan komputer yang dapat digenggam (palmtop).
IBM PC
bersaing dengan Apple
Macintosh dalam memperebutkan pasar komputer. Apple Macintosh
menjadi terkenal karena mempopulerkan sistem grafis pada komputernya, sementara
saingannya masih menggunakan komputer yang berbasis teks. Macintosh
juga mempopulerkan penggunaan piranti mouse.
Pada masa sekarang, kita mengenal perjalanan
IBM compatible dengan pemakaian CPU: IBM PC/486, Pentium, Pentium II, Pentium III, Pentium IV (Serial dari CPU buatan Intel). Juga kita kenal AMD k6, Athlon,
dsb. Ini semua masuk dalam golongan komputer generasi keempat.
Seiring dengan menjamurnya penggunaan
komputer di tempat kerja, cara-cara baru untuk menggali potensial terus
dikembangkan. Seiring dengan bertambah kuatnya suatu komputer kecil,
komputer-komputer tersebut dapat dihubungkan secara bersamaan dalam suatu
jaringan untuk saling berbagi memori, piranti lunak, informasi, dan juga untuk
dapat saling berkomunikasi satu dengan yang lainnya. Jaringan komputer
memungkinkan komputer tunggal untuk membentuk kerjasama elektronik untuk
menyelesaikan suatu proses tugas. Dengan menggunakan perkabelan langsung
(disebut juga Local Area Network atau LAN), atau kabel telepon, jaringan ini dapat berkembang
menjadi sangat besar.
Mendefinisikan komputer generasi kelima
menjadi cukup sulit karena tahap ini masih sangat muda. Contoh imajinatif
komputer generasi kelima adalah komputer fiksi HAL9000 dari novel karya Arthur C. Clarke berjudul 2001: Space Odyssey. HAL menampilkan seluruh fungsi yang diinginkan dari sebuah
komputer generasi kelima. Dengan kecerdasan buatan (artificial intelligence
atau AI), HAL dapat cukup memiliki nalar
untuk melakukan percapakan dengan manusia, menggunakan masukan visual, dan belajar dari pengalamannya sendiri.
Walaupun mungkin realisasi HAL9000 masih jauh
dari kenyataan, banyak fungsi-fungsi yang dimilikinya sudah terwujud. Beberapa
komputer dapat menerima instruksi secara lisan dan mampu meniru nalar manusia.
Kemampuan untuk menterjemahkan bahasa asing juga menjadi
mungkin. Fasilitas ini tampak sederhana. Namun fasilitas tersebut menjadi jauh
lebih rumit dari yang diduga ketika programmer menyadari bahwa pengertia
manusia sangat bergantung pada konteks dan pengertian ketimbang sekedar
menterjemahkan kata-kata secara langsung.
Banyak kemajuan di bidang desain komputer dan
teknologi semkain memungkinkan pembuatan komputer generasi kelima. Dua kemajuan
rekayasa yang terutama adalah kemampuan pemrosesan paralel, yang akan
menggantikan model non Neumann. Model non Neumann akan digantikan dengan sistem
yang mampu mengkoordinasikan banyak CPU untuk bekerja secara serempak. Kemajuan
lain adalah teknologi superkonduktor yang memungkinkan aliran elektrik tanpa
ada hambatan apapun, yang nantinya dapat mempercepat kecepatan informasi.
Jepang
adalah negara yang terkenal dalam sosialisasi jargon dan proyek komputer generasi
kelima. Lembaga ICOT (Institute for new Computer Technology) juga dibentuk
untuk merealisasikannya. Banyak kabar yang menyatakan bahwa proyek ini telah gagal,
namun beberapa informasi lain bahwa keberhasilan proyek komputer generasi
kelima ini akan membawa perubahan baru paradigma komputerisasi di
dunia.
Senin, 03 Oktober 2011
konversi biner ke desimal
program konversi_desimal;
uses wincrt;
var desimal,b,sisa,biner: longint;
begin
write ('angka biner= '); readln (biner);
b:=0;
repeat
sisa:=biner mod 10;
biner:=biner div 10;
if (b=0) then
b:=1
else
b:=b*2;
desimal:=desimal+sisa*b;
until biner=0;
write ('desimal= ',desimal);
end.
uses wincrt;
var desimal,b,sisa,biner: longint;
begin
write ('angka biner= '); readln (biner);
b:=0;
repeat
sisa:=biner mod 10;
biner:=biner div 10;
if (b=0) then
b:=1
else
b:=b*2;
desimal:=desimal+sisa*b;
until biner=0;
write ('desimal= ',desimal);
end.
konversi desimal ke biner
program konversi_biner;
uses wincrt;
var desimal,d,sisa,biner: longint;
begin
write ('angka desimal'); readln (desimal);
d:=0;
repeat
sisa:=desimal mod 2;
desimal:=desimal div 2;
if (d=0) then
d:=1
else
d:=d*10;
biner:=biner +sisa*d;
until desimal=0;
write ('biner= ',biner);
end.
uses wincrt;
var desimal,d,sisa,biner: longint;
begin
write ('angka desimal'); readln (desimal);
d:=0;
repeat
sisa:=desimal mod 2;
desimal:=desimal div 2;
if (d=0) then
d:=1
else
d:=d*10;
biner:=biner +sisa*d;
until desimal=0;
write ('biner= ',biner);
end.
Langganan:
Postingan (Atom)