SEPARUH AKU by NOAH BAND

Lirik Lagu Separuh Aku Noah Band | Lirik Separuh Aku Milik Noah Band -

Sepertinya perjalanan Noah Band untuk mengarungi ketatnya persaingan di industri musik Indonesia berjalan mulus, walaupun ada kontroversi mengenai nama band ini sendiri.

Single pertama dari Noah Band berjudul 'Separuh Aku' telah resmi dirilis dan fans Peterpan yang kini beralih menjadi fans Noah Band pun larut dalam euforia untuk download lirik lagu Noah Band Separuh Aku, berikut ini liriknya kami persembahkan untuk anda.

SEPARUH AKU

 Noah Band

dan terjadi lagi

kisah lama yang terulang kembali

kau terluka lagi

dari cinta rumit yang kau jalani

aku ingin kau merasa

kamu mengerti aku mengerti kamu

aku ingin kau sadari

cintamu bukanlah dia

dengar laraku

suara hati ini memanggil namamu

karena separuh aku dirimu

ku ada di sini

pahamilah kau tak pernah sendiri

karena aku selalu

didekatmu saat engkau terjatuh

dengar laraku

suara hati ini memanggil namamu

karena separuh aku

menyentuh laramu

semua lukamu telah menjadi milikku

karena separuh aku dirimu

Program Kalkulator

 

HI...WELCOME TO MY BLOG

Blog ini saya buat untuk sekedar sharing dan berbagi ilmu....

jika berminat silahkan buka dan bacalah....

PROGRAM PASCAL

Untuk membuat kalkulator

program kalkulator;
uses wincrt;
var
tanya : char;
BIL1,BIL2,JUMLAH,PIL : INTEGER;
PEM:REAL;

begin
tanya := 'Y';
while tanya = 'Y' do
begin
WRITELN('KALKULATOR');WRITELN;
GOTOXY(25,2);WRITELN(':::::::::::MENU:::::::::::');

GOTOXY(25,4);WRITELN(' 1. PENJUMLAHAN BILANGAN');
GOTOXY(25,5);WRITELN(' 2. PERKALIAN BILANGAN');
GOTOXY(25,6);WRITELN(' 3. PENGURANGAN BILANGAN');
GOTOXY(25,7);WRITELN(' 4. PEMBAGIAN BILANGAN');
GOTOXY(25,8);WRITELN(' 5. PERSENAN (%) BILANGAN');
GOTOXY(25,9);WRITELN(' 6. EXIT');

GOTOXY(25,11);WRITE('PILIH SALAH SATU [1..6] = '); READLN(PIL);
CLRSCR;


CASE PIL OF
1: BEGIN
GOTOXY(25,4);WRITELN(':::PENJUMLAHAN BILANGAN:::');

GOTOXY(25,6);WRITE('MASUKKAN BILANGAN 1 = ');READLN (BIL1);
GOTOXY(25,7);WRITE('MASUKKAN BILANGAN 2 = '); READLN (BIL2);
JUMLAH:=BIL1+BIL2;
GOTOXY(25,9);WRITELN('JUMLAHNYA ADALAH : ',JUMLAH);
WRITELN;
WRITELN;
WRITE('Anda ingin mengulang lagi ? [Y-T]'); READLN(TANYA);
CLRSCR;
END;
2: BEGIN
GOTOXY(25,4);WRITELN(':::PERKALIAN BILANGAN:::');
WRITELN;
GOTOXY(25,6);WRITE('MASUKKAN BILANGAN 1= ');READLN (BIL1);
GOTOXY(25,7);WRITE('MASUKKAN BILANGAN 2= '); READLN (BIL2);
JUMLAH:=BIL1*BIL2;
GOTOXY(25,9);WRITELN('JUMLAHNYA ADALAH : ',JUMLAH);
WRITELN;
WRITE('Anda ingin mengulang lagi ? [Y-T]'); READLN(TANYA);
CLRSCR;
END;
3: BEGIN
GOTOXY(25,4);WRITELN(':::PENGURANGAN BILANGAN:::');
WRITELN;
GOTOXY(25,6);WRITE('MASUKKAN BILANGAN 1= ');READLN (BIL1);
GOTOXY(25,7);WRITE('MASUKKAN BILANGAN 2= '); READLN (BIL2);
JUMLAH:=BIL1-BIL2;
GOTOXY(25,9);WRITELN('JUMLAHNYA ADALAH : ',JUMLAH);
WRITELN;
WRITE('Anda ingin mengulang lagi ? [Y-T]'); READLN(TANYA);
CLRSCR;
END;
4: BEGIN
GOTOXY(25,4);WRITELN(':::PEMBAGIAN BILANGAN:::');
WRITELN;
GOTOXY(25,6);WRITE('MASUKKAN BILANGAN 1= ');READLN (BIL1);
GOTOXY(25,7);WRITE('MASUKKAN BILANGAN 2= '); READLN (BIL2);
PEM:=BIL1/BIL2;
GOTOXY(25,9);WRITELN('JUMLAHNYA ADALAH : ',PEM:2:2);
WRITELN;
WRITE('Anda ingin mengulang lagi ? [Y-T]'); READLN(TANYA);
CLRSCR;
END;
5: BEGIN
GOTOXY(25,4);WRITELN(':::PERSENAN (%) BILANGAN:::');
WRITELN;
GOTOXY(25,6);WRITE('MASUKKAN BILANGAN 1= ');READLN (BIL1);
GOTOXY(25,7);WRITE('MASUKKAN % = '); READLN (BIL2);
PEM:=(BIL1*BIL2) /100;
GOTOXY(25,9);WRITELN('JUMLAHNYA ADALAH : ',PEM:2:1);
WRITELN;
WRITE('Anda ingin mengulang lagi ? [Y-T]'); READLN(TANYA);
CLRSCR;
END;
6: BEGIN
DONEWINCRT
END;
END;
END;
DONEWINCRT

END.