Sms Online Gratis

Selasa, 29 November 2011

Aritmatika Sederhana DI Pascal

Sekarang jam 19:23 , mau share apa ya...
Pikir punya pikir akhirnya share ilmu tentang pemrograman bahasa pascal aja dech.
Bahasa pascal tidaklah sesulit yang sebelumnya saya bayangkan , karena dengan kecermatan dan pemahaman yang sedikit demi sedikit lama lama menjadi bukit,,,waaaaa, jadi ngaco begini kata-katanya.
Angkap semua bahasa pemrograman itu mudah untuk dipelajari dan dipahami, seperti bahasa pemrograman yang satu ini 'pascal'
User: Langsung aja contohnya kelamaan ?wek..
Admin: yaudah nieh ...
Sintak untuk pembuatan Aritmatika kalkulator sederhana :

PROGRAM ARITMATIKA_SEDERHANA;
USES CRT;

FUNCTION JUMLAH(I:INTEGER;C:INTEGER):INTEGER;
BEGIN
JUMLAH:=I+C;
GOTOXY(11,8);WRITE('=',JUMLAH);
DELAY(1500);
END;

FUNCTION KURANG(I:INTEGER;C:INTEGER):INTEGER;
BEGIN
KURANG:=I-C;
GOTOXY(11,8);WRITE('=',KURANG);
DELAY(1500);
END;

FUNCTION KALI(I:INTEGER;C:INTEGER):INTEGER;
BEGIN
KALI:=I*C;
GOTOXY(11,8);WRITE('=',KALI);
DELAY(1500);
END;

FUNCTION BAGI(I:INTEGER;C:INTEGER):DOUBLE;
BEGIN
BAGI:=I/C;
GOTOXY(11,8);WRITE('=',BAGI:0:2);
DELAY(1500);
END;

FUNCTION KUADRAT(I:INTEGER):INTEGER;
BEGIN
KUADRAT:=I*I;
GOTOXY(9,6);WRITE('=',KUADRAT);
DELAY(1500);
END;

PROCEDURE MAIN;
VAR PIL:BYTE;
NILAI1,NILAI2:INTEGER;
BEGIN
REPEAT
CLRSCR;
GOTOXY(3,2);WRITE('CALCULATOR MANUAL');
GOTOXY(3,4);WRITE('1. PENAMBAHAN [+]');
GOTOXY(3,6);WRITE('2. PENGURANGAN [-]');
GOTOXY(3,8);WRITE('3. PERKALIAN [x]');
GOTOXY(3,10);WRITE('4. PEMBAGIAN [/]');
GOTOXY(3,12);WRITE('5. PENGKUADRATAN [^]');
GOTOXY(3,14);WRITE('PILIHAN ANDA : ');
GOTOXY(18,14);READ(PIL);
IF PIL=1 THEN
BEGIN
CLRSCR;
GOTOXY(3,2);WRITE('PENAMBAHAN');
GOTOXY(3,4);WRITE('NILAI 1 =');READ(NILAI1);
GOTOXY(3,6);WRITE('NILAI 2 =');READ(NILAI2);
JUMLAH(NILAI1,NILAI2);
END;
IF PIL=2 THEN
BEGIN
CLRSCR;
GOTOXY(3,2);WRITE('PENGURANGAN');
REPEAT
GOTOXY(3,4);WRITE('NILAI 1 =');READ(NILAI1);
GOTOXY(3,6);WRITE('NILAI 2 =');READ(NILAI2);
UNTIL (NILAI1 >= NILAI2);
KURANG(NILAI1,NILAI2);
END;
IF PIL=3 THEN
BEGIN
CLRSCR;
GOTOXY(3,2);WRITE('PERKALIAN');
GOTOXY(3,4);WRITE('NILAI 1 =');READ(NILAI1);
GOTOXY(3,6);WRITE('NILAI 2 =');READ(NILAI2);
KALI(NILAI1,NILAI2);
END;
IF PIL=4 THEN
BEGIN
CLRSCR;
GOTOXY(3,2);WRITE('PEMBAGIAN');
REPEAT
GOTOXY(3,4);WRITE('NILAI 1 =');READ(NILAI1);
GOTOXY(3,6);WRITE('NILAI 2 =');READ(NILAI2);
UNTIL (NILAI1>=NILAI2);
BAGI(NILAI1,NILAI2);
END;
IF PIL=5 THEN
BEGIN
CLRSCR;
GOTOXY(3,2);WRITE('PENGKUADRATAN');
GOTOXY(3,4);WRITE('NILAI =');READ(NILAI1);
KUADRAT(NILAI1);
END;
UNTIL (PIL <= 5);
END;

BEGIN
MAIN;
DELAY(1500);
END.

Itu coding yang saya buat, mungkin bisa juga dipersingkat lagi..
Sekian ,semoga bermanfaat bagi diri pribadi maupun anda semua..
Thanks...

0 komentar:

Poskan Komentar