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.

CARA MENGETAHUI MAKS DAN MINIMUM DATA

Uses crt;

Var     a : array[1..5] of integer;
    j,k, temp : integer;

begin
    clrscr;
    write(‘masukan angka pertama = ‘);readln(a[1]);
    write(‘masukan angka ke-dua = ‘);readln(a[2]);
    write(‘masukan angka ke-tiga = ‘);readln(a[3]);
    write(‘masukan angka ke-empat = ‘);readln(a[4]);
    write(‘masukan angka ke-lima = ‘);readln(a[5]);
    for k:=1 to 5-1 do
    begin
        for j:=5 downto k+1 do
        begin
            if a[j] < a[j-1]then
            begin
                temp := a[j];
                a[j] := a[j-1];
                a[j-1] := temp;
            end;
        end;
    end;
    writeln;
    writeln(‘nilai maksimal dan minimum’);
    writeln(‘maksimum = ‘,a[5]);
    writeln(‘manimum = ‘,a[1]);
    readln;
end.

MENGURUTKAN NAMA (LOOPING)

Uses crt;

Var     kata:string;
    a,b,j,k : integer;

begin
    clrscr;
    write(‘masukan kata = ‘);readln(kata);
    a:=length(kata);
    b:=length(kata);
    begin
        for j:=1to a do
        begin
            for k:=1 to a do
                begin
                        write(kata[k]);
                    end;
            writeln;
            a:=a-1;
        end;
        for j:=1 to b do
        begin
            for k:=1 to j do
                    begin
                        write[kata[k]);
                    end;
            writeln;
        end;
    end;
    readln;
end.