kode program calculator

Program calculator;

Uses crt;

Var      a,b,j:real;

Pill:char;

Procedure penjumlahan;

Begin

                        Write(‘masukan angka pertama yg ingin di jumlahkan= ‘);readln(a);

                        Write(‘masukan angka ke-2  yg ingin di jumlahkan = ‘);readln(b);

                        j=a+b;

                        Writeln(‘jumlah dari hasil penjumlahan ‘,a,’+’,b,’ = ‘, j:0:2);

Readln;

End;

Procedure pengurangan;

Begin

                        Write(‘masukan angka pertama yg ingin dikurangkan ‘);readln(a);

                        Write(‘masukan angka ke-2  yg ingin dikurangkan = ‘);readln(b);

                        j=a-b;

                        Writeln(‘jumlah dari hasil pengurangan ‘,a,’-’,b,’ = ‘, j:0:2);

                        Readln;

End;

Procedure perkalian;

Begin

                        Write(‘masukan angka pertama yg ingin dikalikan ‘);readln(a);

                        Write(‘masukan angka ke-2  yg ingin dikalikan = ‘);readln(b);

                        j=a*b;

                        Writeln(‘jumlah dari hasil penjumlahan ‘,a,’*’,b,’ = ‘, j);

                        Readln;

End.

Procedure pembagian;

Begin

                        Write(‘masukan angka pertama yg ingin di bahagi ‘);readln(a);

                        Write(‘masukan angka ke-2  yg ingin di bahagi = ‘);readln(b);

                        j=a/b;

                        Writeln(‘jumlah dari hasil penjumlahan ‘,a,’/’,b,’ = ‘, j);

                        Readln;

End;

Label ulang;

Begin

            Ulang:

            Clrscr;

            Writeln(‘pilih operasi bilangan yang anda inginkan’);

            Writeln(‘1.penjumlahan’);

            Writeln(‘2.pengurangan’);

            Writeln(‘3.perkalian’);

            Writeln(‘4.pembagian’);

Writeln(‘5.exit’);

Write(‘masukan pilihan anda = ‘);readln(pill);

‘1’ :      begin

                        Penjumlahan;

                        Goto ulang;

            End;

‘2’ :      begin

                        Pengurangan;

                        Goto ulang;

            End;

‘3’ :      begin

                        Pengurangan;

                        Goto ulang;

            End;

‘4’ :      begin

                        Perkalian;

                        Goto ulang;

            End;

‘5’ :      begin

                        exit;

                        Goto ulang;

            End;

End;

Readln;

End.