Hai, terima kasih sudah mengunjungi blog ini. langsung saja tanpa basa basi berikut ini adalah codingan program kalkulator sederhana menggunakan bahasa pascal.


program kalkulator;

uses crt;


var 

angka1, angka2, hasil : integer;

operasi : char;


begin

clrscr;


    writeln('Selamat datang di Kalkulator Pascal');

    writeln('-----------------------------------');

    writeln;


    write('Masukan operator (+, -, *, /): ');

    readln(operasi);


    write('Masukan angka pertama : ');

    readln(angka1);


    write('Masukan angka kedua : ');

    readln(angka2);


    writeln;


    case operasi of

    '+' : hasil := angka1 + angka2;

    '-' : hasil := angka1 - angka2;

    '*' : hasil := angka1 * angka2;

    '/' : hasil := angka1 div angka2;

    else 

    writeln('Operator tidak valid');

    end;


    writeln('Hasil operasi = ',hasil);

    writeln;


    writeln('Terima kasih jangan lupa SUBSCRIBE');


readln;

end.





PROGRAM KALKULATOR SEDERHANA MENGGUNAKAN BAHASA PASCAL