Thursday, January 14, 2016

glossary word classification

pada kesempatankali ini saya akan membahas tentang pelajaran bahasa inggris informatika. didalammempelajariilmu komputer kita juga perlu belajar yang namanya bahasa inggris karena perintah pernitah pada komputer mau pun jaringan internet itu umumnyamemakai bahasa inggris.jika kita tidak tahu perintah apa yang harus kita jalankan, nanti malah kita yang bingung.

baiklah saya akan memberikan glossary word yang telah di classification kan.

Hardware
  1. adapter
  2. Alu
  3. At
  4. auxilliary memory
  5. batrai Cmos
Software
  1. application
  2. Bascom (basic complier)
  3. AMI BIOS
 operating system
  1. AI(articifial intellegence)
  2. AMI Bios
  3. Bash(bourne againt shell)
  4. BIOS 
  5. Catalog
Networking
  1. AGP (Accelerated graphic sport)
  2. BBS(Bulletin Board service)
  3. Broadband
Sistem analize
  1. arbiter
  2. comparator

ya, ini hanya sebagian nya saja, bila anda berkomentar maka akan tampil glossary word berikutnya. .

Wednesday, January 6, 2016

looping perulangan repeat..until



LOOPING DALAM PASCAL




C. PERULANGAN REPEAT..UNTIL
Repeat..Until adalah proses looping suatu statement secara terus menerus hingga
ekspresi yang ada di dalam until bernilai false atau sudah terpenuhi. Dengan kata lain
looping repeat..until prosesnya berkebalikan dengan looping while-do. Bentuknya:
Repeat statement; until ekspresi_logika/relasi;
Perhatikan contoh berikut :
Program repeat_until;
useswincrt;
var i:byte;
begin
i:=0;
repeat
i:=i+1;
writeln(i);
until i=5;
end.
Output yang dihasilkanadalah :
12345
Proses looping akan terus dilakukan
Hingga ekspresi terpenuhi. Pada contoh,
Penambahan terus dilakukan hinggai=5.
Sekarang pada program repeat_until, coba anda ganti ekspresi di dalam until
Menjadi i>5. Kemudian anda compile dan apa yang terjadi ??! Coba bandingkan contoh
Looping menggunakan repeat..until dengan looping while-do ini!!



Program sample_repeat;
useswincrt;
var i:integer;
begin
i:= 10;
repeat
writeln(i);
i:=i + 1;
until i>5;
end.
Output :
11
Program sample_while;
useswincrt;
var i:integer;
begin
i:= 10;
while i<5 do
begin
writeln(i);
i:=i+1;
end;
end.




Output  : Tidakadahasil
Dari kedua contoh diatas dapat disimpulkan perbedaan kedua operasi tersebut :
Ø Paling sediki statement di dalam looping repeat diprosessekali, karena pemenuhan
syarat until terletak setelah statement. Sedangkan looping while statement-nya paling
sedikit dikerjakan nol kali, karena pemenuhan syarat while terletak sebelum statement.
Ø Looping repeat  tidak memerlukan blok statement (begin..end;) pada statement yang
Lebih dari satu, karena batasnya sudah ditunjukkan oleh repeat..until. Sedangkanwhile
Memerlukan blok statement (begin..end;) jika statementnya lebih dari satu.
Didalam looping repeat..unti ljuga terdapat looping tersarang (nested repeat). Sama
sepertinested for dannested while  dalam halaturan, yaitu di dalam looping terdapat
looping yang lain. Perhatikan code program berikut yang menggunakan nested repeat.
Program ini akan menghitung sisi-sisi segitiga siku-siku dengan menggunakan rumus
Phytagoras yaitu C = A2 + B2.
programphytagoras; uses wincrt;
vara,b,c:real;
begin
writeln(‘----------------------‘);
writeln(‘Sisi A Sisi B Sisi C’);
writeln(‘----------------------‘);
a:=1;
repeat
b:=0;
repeat
c:=sqrt(a*a + b*b);
writeln(a:5:2,b:8:2,c:8:2);
b:=b + 1;

until b>4;
a:=a + 1;
until a>4;
end.
Setelah anda memahami program tersebut, coba anda analisis proses dari program
berikutini :
programbengong; uses wincrt;
vara,b:byte;
begin
a:=10;
b:=0;
repeat
b:=b+1;
a:=a-b;
until a>b;
writeln(a,’ ‘,b);

looping perulangan while-do

LOOPING DALAM PASCAL

B. PERULANGAN WHILE-DO
Looping dengan while-do mempunyaibentukseperiberikut :
whileekspresi_logika/relasido statement;
Statement while-do digunakanuntukmelakukan proses looping suatustatemen
terus-menerus selama ekspresi_logika/relasi bernilai benar atau belum terpenuhi.
Program while_do;
useswincrt;
var i:byte;
begin
i:=0;
while i < 5 do
begin
writeln(i);
i:=i+1;
end;
end.
Outputnyaadalah :
0
1
2
3
4
Ekspresirelasi-nya yaitu i < 5.Jadi jikamasih
Lebih kecil dari maka statement akanterus
Diproses berulang, dan proses akan berhenti
setelahtidak lagi lebih besar dari 5 (i > 5).
Maka dari itu di dalam statement ada i:=i+1; yang akan menambahkan nilaisatu
Persatu supaya >5. Lihat code berikut yang mebaca input dan mengoperasi-kannya.
Kemudian adapenyeleksian input jika memenuhiakan diulangi  jika tidak akan berhenti.
programcel_to_fah; uses wincrt;
varcel,fah:real; lagi:char;
begin
lagi:=’y’;
while lagi=’y’ do
begin
clrscr; {proseduruntukmenghapuslayar}
write(‘Nilaicelcius ? ‘);
readln(cel);
fah:=1.8 * cel + 32;
writeln(‘Fahrenheit = ‘,fah:5:2);
write(‘Menghitunglagi (y/t) ? ‘);
readln(lagi);
end;
end.
Di dalam looping while-do juga terdapat while-do tersarang (nested while-do). Dan
Pada prinsipnya adalah sama dengan nested for-do.

Looping perulangan for-do



LOOPING DALAM PASCAL

A. PERULANGAN FOR-DO
Looping for-do digunakanuntukmengulang statement berulang kali sejumlah yang ditentukan.Bila terdapat lebih dari satu statement yang ada di dalam looping maka menggunakan begin...end;, jika hanya satu blok saja tidak perlu menggunakan begin...end;.

Ada 3 bentuk looping for-do yaitu for-do positif, for-do negatifdan for-do tersarang.

1. Looping Positif/Negatif
Looping positif adalah looping dari perhitungan kecil keperhitungan besar.
Sedangkan looping negatif kebalikan dari looping positif.Bentuknya sebagai berikut :
For var_int:= nilai_awalto nilai_akhirdo statement; (+)
For var_int:= nilai_awaldowntonilai_akhirdo statement; (-)
Var_int adalah variabel kontrol yang menentukan looping tersebut.Variabel
Kontrol harus bertipe sejenis integer. Example code :
Program looping_without_begin; uses wincrt;
var x:integer;
begin
For x:= 1 to 5 do writeln(‘Sixizgitulho..!!’);
end.
programlooping_with_begin; uses wincrt;
var x:integer;
begin
For x:= 5 downto 1 do
Begin
write(x);
writeln(‘ Sixizgitulho..!!’);
end;
end.
Output program looping_without_begin :
Sixizgitulho..!!
Sixizgitulho..!!
Sixizgitulho..!!
Sixizgitulho..!!
Sixizgitulho..!!
Output program looping_with_begin :
5 Sixizgitulho..!!
4 Sixizgitulho..!!
3 Sixizgitulho..!!
2 Sixizgitulho..!!
1 Sixizgitulho..!!
Coba perhatikan listing program berikut :
Program yang_mana_bukan_looping; uses wincrt;
var x:integer;
begin
For x:= 5 downto 1 do
write(x);
writeln(‘ Sixizgitulho..!!’);
end.
Outputnya adalah 54321 Sixizgitulho..!! Statement writeln(‘ Six...)
Tidak termasuk kedalam looping karena looping berakhir pada satement write(x);.
Sekarang anda analisis output dari kedualsiting code program berikut.
Program mikir_donk; uses wincrt;
varx,y:byte;
begin
for x:= 10 downto 1 do y:=y+(x-1);
writeln(x);
end.
IV
Program perpangkatan; uses wincrt;
var x,x2,x3:integer;
begin
writeln(‘--------------‘);
writeln(‘ x x2 x3’);
writeln(‘--------------‘);
for x:= 1 to 10 do
begin
x2:=x*x;
x3:=x2*x;
writeln(x:3,x2:5,x3:6);
end;
end.

2. Looping For-Do Tersarang (Nested For)
Looping tersarang yaitu looping yang ada di dalam looping lainnya. Looping
Yang lebih dalam akan diproses terlebih dahulu hingga habis kemudian looping yang
Lebih luar bertambah atau berkurang dan memproses kembali looping yang paling
dalam. Untuk lebih jelasnya, perhatikan listing code program berikut :
program looping_tersarang;
useswincrt;
vari,j:integer;
begin
for i:= 1 to 2 do
begin
for j:=1 to 3 do
write(i,j,’ ‘);
writeln;
end;
end.
Biladicompile, maka outputnya :
11 12 13
21 22 23
Dengan digit/angka yang kiriadalahi
dan yang kanan adalahj. Bagaimana
bisa terjadi demikian?!??
Looping disamping bisa digambarkan
Seperti berikut :
Untuk i=1 è Untuk j=1 è write(i,j,’ ‘); = 11
Untuk j=2 è write(i,j,’ ‘); = 12
Untuk j=3 è write(i,j,’ ‘); = 13 writeln;
Untuk i=2 è Untuk j=1 è write(i,j,’ ‘); = 21
Untuk j=2 è write(i,j,’ ‘); = 22
Untuk j=3 è write(i,j,’ ‘); = 23 writeln;
Bingung khan..?!?? Cara kerja program diatas yaitu cabang looping harus
Didahulukan operasi loop-nya kemudian baru sub-nya. Looping tersebut berakhir
sampai sub dan cabang bernilai akhir.. Sekarang analisis kedua listing code berikut :
program triple_sum;
useswincrt;
vari,j,k:integer;
begin
for i:= 5 downto 1 do
begin
for j:=1 to 3 do
k:=k+(i+j);
writeln(k);
end;
end.
Program kombinasi;
useswincrt;
vari,j,k:integer;
begin
for i:= 1 to 3 do
for j:=3 downto 1 do
for k:=i to j do
writeln(i,j,k);
end.