Senin, 29 Maret 2010


output program binner ke desimal
listing program rekursi biner ke desimal.

uses crt;
var
biner:string;
function convert(biner:string):real;
var
i,m,x,code,dum,hasil:integer;
begin
m:=0;
hasil:=0;
for i:=length(biner) downto 1 do
begin
val(biner,x,code);
dum:=x*trunc(exp(m*ln(2)));
hasil:=hasil+dum;
inc(m);
end;
convert:=hasil;
end;
begin
clrscr;
write('Input Bilangan Biner : ');
readln(biner);
write('Bilangan Desimalnya : ',convert(biner):3:0);
readln;
end.

output program berupa
input bilangan binner : 25
bilangan desimalnya : 75

maksudnya, jika kita masukkan bilangan binner 25
maka akan muncul bilngan desimalnya yaitu 75

Senin, 22 Maret 2010

uses wincrt;
var
input: real;
c, f, r: real;
suhu: char;
nilai: real;
back: char;
Celcius, Reamur, Fahrenheit: real;
label 100;

begin

100:
write(’Masukkan Jenis Suhu Celcius/ Fahrenheit/ Reamur (c/f/r) : ‘);
readln(suhu);

if(suhu <> ‘c’)then
if(suhu <> ‘f’)then
if(suhu <> ‘r’)then

begin
writeln(’Jenis suhu yang anda masukan salah, silahkan coba kembali’);
writeln;
goto 100;
end;

begin
write(’Masukkan nilai : ‘);
read(nilai);
readln;
end;

if(suhu = ‘c’)then
begin
f:=(angka * 9/5) + 32;
r:=angka * 4/5;
writeln(’Hasil konversi suhu : Celcius’);
writeln(’Dalam Fahrenheit adalah : ‘,f:4:2);
writeln(’Dalam Reamur adalah : ‘,r:4:2);
end;

if(suhu = ‘f’)then
begin
c:=(angka * 5/9);
r:=(angka * 4/9) + 32;
writeln(’Hasil konversi suhu : Fahrenheit’);
writeln(’Dalam Celcius adalah : ‘,c:4:2);
writeln(’Dalam Reamur adalah : ‘,r:4:2);
end;

if(suhu = ‘r’)then
begin
c:=angka * 5/4;
f:=(angka * 9/4) + 32;
writeln(’Hasil konversi suhu : Reamur’);
writeln(’Dalam Celcius adalah : ‘,c:4:2);
writeln(’Dalam Fahrenheit adalah : ‘,f:4:2);
end;

write(’Apakah Anda Ingin Kembali? (y/n) : ‘);
readln(back);

if(back=’n’)then
goto 100

end.
FOR ...TO...DO

uses crt;
var
i,j,n: integer;
begin
clrscr;
write('Masukkan Angka: ');readln(n);
for i := 1 to n do
begin
for j := 1 to i do
begin
write(i);
end;
writeln;
end;
readln;
end.



FOR...DOWNTO...DO

uses crt;
var
k,l,n : integer;
begin
clrscr;
write('Masukkan Angka: ');readln(n);
for k := n downto 1 do
begin
for l := 1 to (k-1) do
begin
write(l);
end;
writeln;
end;
readln;
end.



REPEAT..UNTIL

uses crt;
var
a: integer;
begin
clrscr;
a := 1;
repeat
write(a,' ');
a := a + 1;
until a > 20;
readln;
end.



WHILE..DO..BEGIN

uses crt;
var
a: integer;
begin
clrscr;
a :=0;
while(a <=5) do
begin
writeln( A);
A :=A+1;
end;
readln;
end.



WHILE..DO

uses crt;
var
p: integer;
begin
clrscr;
p := 1;
while p <= 20 do
begin
write(p,' ');
p := p + 1;
end;
readln;
end.


CASE ...OF

uses crt;
var
pil :integer;
begin;
clrscr;
writeln('===== MENU =====');
writeln('1: Pilihan 1');
writeln('2: Pilihan 2');
writeln('3: Pilihan 3');
writeln('4: exit');
write('Masukkan pilihan anda = ');readln(pil);
case pil of
1:begin
clrscr;
writeln('Pilihan 1');
readln;
end;
2:begin
clrscr;
writeln('Pilihan 2');
readln;
end;
3:begin
clrscr;
writeln('Pilihan 3');
readln;
end;
4:begin
clrscr;
writeln('EXIT');
readln;
end;
readln;
end.


IF...THEN

uses crt;
var
x : integer;
begin
clrscr;
write ('Masukkan Nilai anda : ');readln(x);
if x >= 75 then
writeln('baik')
readln;
end.
contoh program pascal dengan kondisi IF...THEN...ELSE


program Data_Nilai;

uses
crt;

var
nilai: integer;
begin
clrscr;
write('Masukkan nilai : '); readln(nilai);
if nilai >= 82 then
write ('Nilai A')
else if nilai >= 72 then
write ('Nilai B')
else if nilai >= 56 then
write ('Nilai C')
else if nilai >= 41 then
write ('Nilai D')
else if nilai <= 40 then
write ('Nilai E');
readln;
end.

Minggu, 21 Maret 2010

Manusia dan cinta kasih merupakan suatu hal yang tidak dapat dipisahkan. Cinta memiliki peranan yang penting dalam kehidupan, karena cinta merupakan dasar untuk menciptakan suasana hidup menjadi lebih indah. Coba bayangkan apabila di dunia ini tidak ada cinta, tentu saja manusia akan merasa tidak tenang hidup di dunia.

Sejak lahir manusia telah memiliki cinta, yaitu cinta kasih yang didapat dari seorang ayah dan ibu. Begitu besar rasa cinta yang dimiliki seorang ibu ketika melahirkan seorang anak dengan memperjuangkan hidup dan matinya. Dan juga pengorbanan seorang ayah ketika menunggu ibu melahirkan sampai anak tersebut lahir. Begitu bahagianya perasaan seorang ayah dan ibu, setelah mereka mengetahui anaknya lahir dengan selamat.

Setiap orang tua merawat, membesarkan, menjaga, dan mendidik anaknya berdasarkan cinta dan kasih yang mereka miliki. Mereka tidak kenal lelah dalam melakukan itu semua, karena rasa cinta yang mereka miliki terhadap anaknya begitu besar. Namun, terkadang seorang anak tidak dapat melakukan hal yang sama seperti apa yang dilakukan oleh orang tua mereka.

Dalam mendidik anaknya, terkadang orang tua sering memarahi sikap atau perilaku anaknya yang tidak baik dan melanggar norma. Tentunya, itu semua dilakukan demi kebaikan anaknya agar menjadi seseorang yang lebih baik dan mengerti akan norma-norma yang ada. Namun, terkadang seorang anak tidak mau mendengarkan nasehat-nasehat tersebut, mereka cenderung mengikuti apa yang ada dipikiran mereka, padahal perasaan orang tua (terutama ibu) lebih besar daripada dirinya sendiri.

Akan tetapi, tidak semua hal yang dilakukan oleh orang tua selalu benar karena terkadang mereka tidak tahu dan mengerti apa yang dirasakan oleh seorang anak. Mungkin pada dasarnya mereka melakukan itu semua demi kebaikan anaknya, namun terkadang seorang anak juga dapat merasa tertekan jika harus mengikuti apa yang diinginkan orang tuanya, karena mereka juga memiliki hak dalam menjalani hidupnya. Jadi antara orang tua dan anak harus saling mengerti agar rasa cinta yang telah dimiliki sejak lahir tidak hilang hanya karena kurangnya pengertian.

Seperti kata pepatah, kasih sayang orang tua sepanjang jalan dan kasih sayang seorang anak sepanjang gala. Itu berarti cinta yang dimiliki oleh orang tua tidak terbatas yaitu sepanjang jalan sedangkan cinta yang dimiliki oleh seorang anak terbatas hanya sepanjang gala. Namun, itu semua tergantung pada inidividu masing-masing.

Senin, 01 Maret 2010

2 Contoh Program Pascal:

1. Menghitung Dua Buah Bilangan

program Menghitung_Dua_Buah_Bilangan;

uses
crt;

var
x,y : real;
kali,tambah : real;

begin
clrscr;
write('Masukkan Bilangan ke 1= ');
readln(x);
write('Masukkan Bilangan ke 2= ');
readln(y);
kali := x * y;
tambah := x + y;
writeln;
writeln('Hasil Perkalian : ', x:0:0, '*', y:0:0, '= ', kali:0:0);
writeln('Hasil Penambahan : ', x:0:0, '+', y:0:0, '= ', tambah:0:0);
readln;
end.

hasil output:
Masukkan Bilangan ke 1 = 2(misalkan)
Masukkan Bilangan ke 2 = 4(misalkan)

Hasil Perkalian : 2*4= 8
Hasil Penambahan : 2+4= 6


2. Menghitung Keliling dan Luas Persegi

program persegi;

uses
crt;

var
sisi : integer;
keliling, luas : real;

begin
clrscr;
write('Masukkan sisi persegi: ');
readln(sisi);
keliling := 4 * sisi;
luas := sisi * sisi;
writeln;
writeln('keliling persegi = ', keliling:0:2);
writeln('luas persegi = ', luas:0:2);
readln;
end.

hasil output:
Masukkan sisi persegi: 2(misalkan)

keliling persegi = 8.00
luas persegi = 4.00