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.