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...
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...