You stay here Not With Me

I'm walking up from my summers dreams again
try to thinking if you're alright
then I'm shattered by the shadows of your eyes
knowing you're still here by my side

I can see you if you're not with me
I can say to my self if you're OKAY
I can feel you if you're not with me
I can reach you my self, yuo show me the way

life was never be so easy as it seems
'till you come and bring your love inside
no matter space and distance make it look so far
still I know you're still here by my side

you've made me so alive ,you give the best for me..love and fantasy
and i never feel so lonely, coz you're always here with me..yeah..always here with me

Read More

Operasi While Dalam pascal

Contoh Porgram While untuk mengoperasikan output dari 0 sampai 5 :
uses crt;
var i : integer;
begin
clrscr;
i := 0 ;
while i < 6 do
begin
writeln(i);
i := i +1;
end;
end.
outputnya akan tampil seperti berikut :

Read More

Pernyataan While

 Pernyataan while biasa dipakai untuk melakukan pengulangan yang jumlahnya tidak diketahui di depan atau selang pencacah tidak sebesar 1 atau -1, sehingga pernyataan akan dilakukan terus menerus selama kondisi bernilai true bentuk pernyataan while :

While kondisi DO pernyataan 

Contoh program pernyataan while:

Program Cobawhile_1;

Uses crt;

Var

ulang : integer;

Begin

Clrscr;

ulang := 10;                   

While ulang >=1 do

Begin

Writeln(ulang);

ulang := ulang -1;

End;

Readln;

End.

 

Read More

KONVERSI SUHU DALAM PASCAL

Ini Adalah Coding Program Konversi Suhu untuk mengetahui pengkonversian dari suhu derajat ke suhu lainnya

Program KonversiSuhu;

uses crt;

var

     celcius, reamur, fahrenheit, kelvin : real;

begin

clrscr;

     write(’Masukan besarnya suhu dalam derajat : ‘);readln(celcius);

     reamur:=((4/5)*celcius);

     fahrenheit:=(32+(9/5)*celcius);

     kelvin:=(celcius+273);

Read More

MERUBAH WARNA LATAR PASCAL

MENGATUR WARNA LATAR
ARTIKEL INI DARI SUMBER LAINNYA
Pernah merasa bosan dengan tampilan program pascal yang warna latar nya (background) hitam polos ketika di-compile?
Kalau iya, ayo ikuti tutorial di bawah ini

Persiapan :

Salin semua file yang ada di folder BGI dan UNITS ke folder dimana Anda menaruh file TPX.EXE
Tekan Alt+Enter untuk berubah ke layar fullscreen

Terus?
Jangan lupa menggunakan unit graph. Unit graph digunakan dengan menambahkan 'uses graph' (tanpa tanda petik) di awal program/di bawah 'program nama_program', sebaiknya gunakan unit crt juga:
uses crt,graph
Jangan lupa untuk mendeklarasikan variabel yang berupa integer untuk digunakan dengan initgraph, contoh :
var
gp,gm:integer;
Selanjutnya, di bagian program utama tambahkan 3 baris program sebagai berikut (contohnya dengan menggunakan variabel di atas) :
gp:=detect;
initgraph(gp,gm,'');
setbkcolor(warna);

Read More

Contoh Sederhana Program Pascal

Read More